• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

khz

اعضاء
  • عدد المشاركات

    52
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

-10 مقبول

عن khz

  • الرتبة
    عضو

طرق الإتصال

  • ICQ 0

معلومات الملف الشخصي

  • الجنس ذكر
  1. كورس ado او Data Access من الصفر للاحتراف

    تحياتي للجميع .... يا مشرفين والله الموضوع لابد من تثبيته .... فهو مرجع للمبتدئيين ....
  2. كورس ado او Data Access من الصفر للاحتراف

    ياسلام عليك اخوي والله قمه ..... ويعجز اللسان عن الشكر لك ...... حقيقة شرح وافي ..... بس حبذا لو تشرح بالتفصيل بتطويل المقطع ... لاني لاحظت في اول شئ فيه سرعه بالشرح وخاصة بالجزء النظري وبعد مشاهدتي لكتابة الاكواد لاحظت سرعتك في كتابة الاكواد .... بس والله روعه اشكرك من اعماق قلبي
  3. تحياتي للجميع اعمل حاليا على تصميم قاعدة بيانات لمتابعة عمليات فصل التيار في عملي وعملت الجداول واللاستعلامات والنماذج : واجتهدت حسب علمي بالتصميم الا انه واجهتني مشاكل في عمليات الحفظ والتعديل وخلافه من العمليات التي تجرى على السجلات ومنها : 1: اريد في نموذج frmaddcusnum عند الضغط على زر الحفظ يتم ادخال البيانات في الحقول في جدول Meteres طمع الاخذ بالاعتبار عدم تكرار رقم الاشتراك لانه هو المفتاح الاساسي ... طبعا هذه النموذج يتم فتحه عن طريق خطوتين في الشاشه الرئيسية يتم الضغط دل كليك على اسم المشترك ويفتح النموذج بعدادات المشترك ثم الضغط على اضافة وبالتالي من المفترض ان رقم البطاقة لا يتم ادخالها في النموذج يفترض اليا تدخل . 2: من الشاشة الرئيسية في زر ادخال بيانات الفصل الاول وزر الفصل الثاني .. الخ عملت 3 استعلامات مختلفة بحسب طريقة الفصل عندي ... والنموذج لا يوجد به مشاكل ما عدا انني ارغب ان يتم ادراج تاريخ الفصل من جدول jad لان فيه تاريخ الفصل بحسب اليوم فمثلا : عند الوقوف عند السجل الاول وادخال القراءة اريد ان يتم ادخال التاريخ في حقل تاريخ الفصل وذلك بمعرفة اليوم والدورة وربطه بجدول jad في هذا الجدول اليا 3: وضعت زرلعملية الاستيراد من جدول اكسل بس كيف يتم الاستيراد برمجيا حيث اني اعرف الاستيراد من خلال معالج الاكسس وحيث ان بياناتي يتم جلبها من نظام رئيسي تابع للشركة لدينا وهو يسهل علي ادخال البيانات كما تشاهدون من تصميم النماذج مجرد ادخال قراءات وتواريخ فقط الباقي كله استعلامات هذا ما اريده حاليا ً..... مرفق القاعدة .... هذا ولكم جزيل الشكر khz.7z
  4. تحياتي للجميع اعمل حاليا على تصميم قاعدة بيانات لمتابعة عمليات فصل التيار في عملي وعملت الجداول واللاستعلامات والنماذج : واجتهدت حسب علمي بالتصميم الا انه واجهتني مشاكل في عمليات الحفظ والتعديل وخلافه من العمليات التي تجرى على السجلات ومنها : 1: اريد في نموذج frmaddcusnum عند الضغط على زر الحفظ يتم ادخال البيانات في الحقول في جدول Meteres طمع الاخذ بالاعتبار عدم تكرار رقم الاشتراك لانه هو المفتاح الاساسي ... طبعا هذه النموذج يتم فتحه عن طريق خطوتين في الشاشه الرئيسية يتم الضغط دل كليك على اسم المشترك ويفتح النموذج بعدادات المشترك ثم الضغط على اضافة وبالتالي من المفترض ان رقم البطاقة لا يتم ادخالها في النموذج يفترض اليا تدخل . 2: من الشاشة الرئيسية في زر ادخال بيانات الفصل الاول وزر الفصل الثاني .. الخ عملت 3 استعلامات مختلفة بحسب طريقة الفصل عندي ... والنموذج لا يوجد به مشاكل ما عدا انني ارغب ان يتم ادراج تاريخ الفصل من جدول jad لان فيه تاريخ الفصل بحسب اليوم فمثلا : عند الوقوف عند السجل الاول وادخال القراءة اريد ان يتم ادخال التاريخ في حقل تاريخ الفصل وذلك بمعرفة اليوم وربطه بجدول jad في هذا الجدول اليا 3: وضعت زرلعملية الاستيراد من جدول اكسل بس كيف يتم الاستيراد حيث ان بياناتي يتم جلبها من نظام رئيسي تابع للشركة لدينا وهو يسهل علي ادخال البيانات كما تشاهدون من تصميم النماذج مجرد ادخال قراءات وتواريخ فقط الباقي كله استعلامات هذا ما اريده حاليا ً..... مرفق القاعدة .... هذا ولكم جزيل الشكر khz.7z
  5. Private Sub cmdaddcus_Click() Dim recCustomer As New ADODB.Recordset Dim conSceco As New ADODB.Connection Set conSceco = CurrentProject.Connection recCustomer.Open "Customer", conSceco, adOpenKeyset, adLockPessimistic 'Do Until recCustomer.EOF Dim mark As Variant 'هذا متغير لوضع قيمة موقع السجل الحالي If Me.texid = "" Or IsNull(Me.texid) Then 'اذا كان عنصر التحكم النص يساوي فراغ او قيمة خالية MsgBox 'ساله تفيد بان لا يكم ترك هذا الحقل فارغ"لا يمكن ترك رقم البطاقة فارغ" GoTo ExitMe 'الخروج من مربع الرسالة والعودة لمربع النص End If 'الخروج من قاعدة الشرط recCustomer.Find "[CardID] Like '" & Me.texid & "'" 'هذه دالة للبحث بمعرفة القيمة المدخلة بمربع النص والبحث في حقل رقم البطاقة Do While Not recCustomer.EOF 'هذه جملة التكرار ومفادها انه طالمالم نصل الى اخر سجل لمجموعة السجل 'continue if last find succeeded MsgBox "رقم البطاقة مكرر : " & recCustomer!CardID 'هذه رسال تفيد بانه وجد رقم البطاقة المكرر والمؤشر علية ورقم البطاقه هو ' note current position mark = recCustomer.Bookmark 'هذا اسناد موقع السجل الحالي للمتغير مارك recCustomer.Find "[CardID] Like '" & Me.texid & "'", 1, adSearchForward, mark 'جملة للبحث مرة اخرى من الموقع الحالي ' above code skips current record to avoid finding the same row repeatedly; ' last arg (bookmark) is redundant because Find searches from current position GoTo ExitMe 'لم افهمها Loop 'باقي الكود مفهوم recCustomer.AddNew recCustomer.Fields("CardID").Value = Me.texid recCustomer.Fields("CustomerName").Value = Me.texnam recCustomer.Fields("Jawal").Value = Me.texjaw recCustomer.Fields("Note").Value = Me.texmem recCustomer.Update MsgBox "تمت الاضافة" ExitMe: 'لم افهمها recCustomer.Close Set recCustomer = Nothing End Sub اللي فهمته كالتالي 1: القسم الاول من الكو يتم فيه تعريف المتغيرات للاتصال وتكوين مجموعة السجل ومتغير لموع السجل وجمل الاسناد وفتح الاتصال ..... هذا القسم الاول 2: القسم الثاني عبارة if وهي هنا لاختبار مربع النص هل يحتوي على قيمة فارغه واستخدام دالة isnull السؤال الان لماذا كتبت Me.texid = "" مع استخدام دالة isnull 3: جملة التكرار وللي فهمته انه طالما لم نصل الى اخر سجل فكرر الجمل وبناء على عبارة البحث recCustomer.Find "[CardID] Like '" & Me.texid & "'" فاذا وجد السجل فمعنى هذا لم نصل الى اخر سجل واذا لم يجده فمعنى هذا اننا باخر سجل وسوف يخرج من عبارة التكرار ويكمل باقي الكود لللاضافة 4:هذه عبارة اعادة البحث recCustomer.Find "[CardID] Like '" & Me.texid & "'", 1, adSearchForward, mark لم افهم وسائطها 5: لم افهم عبارة ExitMe على العموم اشكرك اخوي ومرفق لك القاعدة بكاملها لم استطيع رفع القاعدة khz.zip
  6. طلب اخوي اياد طيب في حالة التعديل والحذف
  7. حقيقة اشكرك اخوي اياد الان ضبط كل شي تم اضافة الكود في حدث عند النقر على زر حفظ بس ياليت لو تشرح خطأي بالكود اللي انا كاتبة علشان استفيد او شرح الكود اللي كتبته انت للفائدة صحيح يعجز لساني للايفاء بشكرك .... والله شلت هم من راسي لي اسبوعين وانا احاول وعجزت
  8. حياتي للجميع انا في طور التعلم فقد انات قاعدة بيانات خاصة بالعمل ولدينا عملاء ووضعت نموذج لللاضافة وزر لحفظ البيانات المدخلة النموذج لا يعتمد على اي استعلام مجرد 3 نصوص للادخال رقم بطاقة العميل واسمة وجوالة فقلت استخدم Ado بدل من ماكرو للحفظ فعملت الكوت التالي : Private Sub cmdaddcus_Click() Dim recCustomer As New ADODB.Recordset Dim conSceco As New ADODB.Connection Set conSceco = CurrentProject.Connection recCustomer.Open "Customer", conSceco, adOpenKeyset, adLockPessimistic Do Until recCustomer.EOF If recCustomer.Fields("CardID").Value <> Me.texid Then recCustomer.AddNew recCustomer.Fields("CardID").Value = Me.texid recCustomer.Fields("CustomerName").Value = Me.texnam recCustomer.Fields("Jawal").Value = Me.texjaw recCustomer.Fields("Note").Value = Me.texmem recCustomer.update Else MsgBox "ÑÞã ÇáÈØÇÞÉ ãßÑÑ ÇáÑÌÇÁ ÇáÊÃßÏ", vbOKOnly End If recCustomer.MoveNext Loop recCustomer.Close Set recCustomer = Nothing End Sub الان الخطأ اني لما اضيف عميل غير مكرر كويس يعمل كما هو متوقع واذا رقم البطاقة مكرر لا تخرج رسالة التنبية وحاولت اكثر من مره بتعديل الكود وتخرج الرسالة بس تظل دون استجابة يعني لما تخرج واضغط اوكيه لا يرجع للنموذج لتعديل رقم البطاقة ... والله تعبت وان اغير دون فائدة فهل احد من الاخوان يتكرم علينا ويوضح ماهو الخطأ
  9. والله ما ادري ماذا اقول .... والله اني بحثت وقرات اكثر من مقال وكتاب عن استخدام الجمل التكرارية سواء do او عبارة while...wend واكتب الكود كما هو موجود بالاسفل ولا يتم تفعيل الكود او عمله ... ما ادري وين الخطأ حتى اني وضعت هذه المشاركه في اكثر من منتدى ولا مجيب .... اذا نن في خلل ما ...ز وانا لاحظت ان اغلب النتديات تهتم بعملية كيف تزيين النماذج وترقيصها وكيف استعلم عن المعلومه هذه او تللك ... وعندما نسأل عن البرمجة الحقيقية وهو استخدام الكود في التعامل مع البيانات لا مجيب اذا اقترح اغلاق جميع المنتديات حيث اني جالس اكثر من اسبوعين بحث بجميع المنتديات اريد شرح تفصيلي يعني مو شرح ان تقوم بوضع التركيب النحوي لها وتقوم باعطاء مثال من رأسك والتعليم الصحيح الذي يقوم على استخدام امثله واقعية وتقولي ليش استخدمت هذه العباره ولماذا في هذه الموضع طيب اتركم لكم الكود الاتي ومن يقول لي ليش لم يعمل اكون له من الشاكرين Private Sub texacc_Exit(Cancel As Integer) Dim cus As Dao.Database Dim reccus As Dao.Recordset Set cus = CurrentDb Set reccus = cus.OpenRecordset("ÇáÚÏÇÏÇÊ", dbOpenTable) reccus.MoveFirst Do Until reccus.EOF If reccus![ÇáÍÓÇÈ] = Me.texacc.Value Then MsgBox "åÐÇ ÇáÍÓÇÈ ÓÈÞ ÊÓÌíáå" Cancel = True Exit Do End If reccus.MoveNext Loop reccus.Close cus.Close Set reccus = Nothing Set cus = Nothing End Sub
  10. تحياتي للجميع .... وكل عام وانتم بخير انا لدي قاعدة بيانات من ضمن جداولها بيانات تخص العدادات التابعة للمشترك فانشأة نموذج ادخال بيانات واستخدمت فيه الاداة dao ومن ضمن الحقول حقل رقم الحساب والهو المفتاح الاساسي للجدول واريد في حدث الخروج من مربع النص بالنموذج ان يتم التكرار والمرور على جميع السجلات لمعرفة هل السجل موجود من قبل والا لا واستخدمات الكود التالي ولكنه لا يعمل ... ارجوا تصحيح ماهو الخطأ Dim cus As Dao.Database Dim reccus As Dao.Recordset Set cus = CurrentDb Set reccus = cus.OpenRecordset("ÇáÚÏÇÏÇÊ", dbOpenTable) While Not reccus.EOF If reccus![ÇáÍÓÇÈ] = Me.texacc.Value Then MsgBox "åÐÇ ÇáÍÓÇÈ ÓÈÞ ÊÓÌíáå" End If reccus.MoveNext Wend reccus.Close cus.Close Set reccus = Nothing Set cus = Nothing End Sub
  11. اهلين اخوي الخبير ... شكرا على التجاوب اخي انا ممكن ان احل هذه المساله ببساطه تامه من خلال عمل لكل صف في الجدول الاول واللي هو جدول الاشهر بعمود مستقل يعني اعمل جدول يتكون من 12 حقل وتنتهي المشكله ولكن هذا الحل ليس بالعملي حيث انني انشأت قاعدة البيانات بناءا على اسس ولا اريد ان اهدم ما بنيت ولذا انا لدي قناعه تامه بان هناك حل ما من خلال البرمجه علما بان هذا موجود بالاكسس .. على العموم انا متاكد انني سوف اصل لحل ولكن انا متعب الان من التفكير وحبيت انكم تساعدونني على الحل .. عموما شكرا اخي وتحياتي
  12. تحياتي لجيمع الاعضاء المحترمين انا لدي ثلاثة جداول 1- جدول يمثل الاشهر الهجرية ويتضمن حقل واحد وتمثل البيانات فيه بشكل نصي 1428/1 1428/2 1428/3 وهكذا .... 2- جدول يمثل ارقام حسابات مشتركين لدي ويتضمن رقم الحساب - رقم الاشتراك - ... الخ .... 3- جدول يمثل العلاقة بين حسابات المشتركين لدي بحيث ان لكل رقم حساب اكثر من دوره وكل دوره لها اكثر من حساب وبالتالي وضعت الجدول الاتي ويتضمن رقم الحساب - الدوره - المبلغ الان سؤالي اريد ان اعمل استعلام بحيث تكون صفوف جدول الاشهر الهجريه بمثابة اعمدة وتكون الصفوف فيه عباره عن الحسابات بمعنى اكثر توضحياً اريد ان اعمل استعلام لكل رقم حساب لكل شهر بعمود مستقل ... وبشكل اوضح اريد الاتي رقم الحساب -1/1428 -2/1428 - 3/1428 - 4/1428 -5/1428 -6/1428 -7/1428 - 8/1428 - 9/1428 - 10/1428 -11/1428 - 12/1429 وجزاكم الله الف خير ....
  13. الله يوفقكم لما هو خير للمسلمين ولكن لي رجاء اذا كنتم صادقين في المشاركة كما تقولون ان تقرؤا هذا .... وبلاش ازدواجية http://www.arabteam2000-forum.com/index.php?showtopic=60789
  14. تحياتي للجميع : ما شاء الله جهد طيب ولكن لي ملاحظه يا اخواني انا محاسب وهاوي برمجة ولدي الرغبه الشديده في المشاركة ولكن ..... هكذا نحن ياتي واحد ويقول انا سوف افيد اخواني في طرح تحليل وتصميم برنامج ما وارغب المشاركة من الجميع .. ونحن المبتدئبن نتابع لعل الله يفتح لنا باب من ابواب العلم .. وفي النهاية ينسحب هذا الشخص عن عرض دروسه وتصميمه .. ويترك لنا الاحباط ... فانا عن نفسي قررت ان لا ادخل باي شي اسمه تحليل او تصميم فانا حاليا احاول ان اتعلم بذاتي دون ان انتظر اي شخص يتكرم علينا ويضع درس وفي النهاية يقول انا مشغول ... يا اخواني اتقوا الله فينا نحن مبتدئين اما ان تكمل الى الاخر او لاتضع اي درس ... ولكن ما اقول الا هكذا نحن العرب ؟؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!! سامحوني يا اخواني ان اخطيت على البعض ولكن ان مقهور كلما اتابع شخص يشرح شئ في مجال تخصصي او هوايتي لمدة شهر او شهرين وسبحان الله بقدرة قادر تبحث عن هذا الشخص والى اين وصل من الدروس فلا تجد احد ..... يالله كم انا محبط من هذه المنتديات ... وصراحة خلوكم من البرمجة وتعب الراس ... فهذه الموضوعات تحتاج الى جهد وتنظيم وتضحيات من المعلم ... ما يجي ويقول انا ابغى احد يشارك انا ابغى تفاعل انا ابغى ناس ... انا ابغى.... الخ والله عجب الا تلاحظون ان الطلبات كلها له وماذا يبقى لنا مجرد تضيع وقت في نقاشات وتحليلات وبالنهاية تموت الاحلام والاماني .. على العموم الله يوفق الجميع .... انا متاكد ان هذا الموضوع بعد شهر او شهرين سوف يموت ولن تجد احد حتى يتنزل ويقرا فيه ليش لان الشخص الذي ابتدا الفكره او المشروع نام نوم عميق في اشغاله واهتماماته الاخرى وترك الاخرين يهيمون بالانتظار ... يالله الا ترون معي مدى احتكار العقول فاين التشارك واين التنظيم كلنا نعتمد على شخص واحد نتظر ان يحن قلبه علينا وينزل درس اودرسين بكيفية صنع زر او نموذج يتم من خلاله فتح القاعدة وادخال بيانات ... طيب بعدين ..... يا اخواني والله اني تعبت من الكتابه يالله ما هذا الاحباط .. والله اني كرهت شي اسمه برمجة بسبب هذا المنتدى