• 0
رامي

كيف اعمل اضافة من كمبو بوكس !

سؤال

عندي كمبو بوكس في نموذج استخدمه لاضافة اسم عميل وياتي بباقي بياناته العنوان والهاتف .. ولكن في حالة وجود عميل جديد فانني اريد ان اضيفه من خلال الكومبوكس بالاضافة لباقي بياناته العنوان والهاتف ...

فكيف هذه الطريقة

ولكم جزيل الشكر !!!!!

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

7 إجابة على هذا السؤال .

  • 0

أخي رامي

حسب ما افتهم الحل بسيط

في أحداث الكومبو بوكس :-

ستضيف في حدث ( بعد التحديث "After Update" ) التالي

Me.Refresh

في الحقيقة اني لم اجرب الحل اعلاه لكن جربه انت وفي حالة عدم اشتغاله بالشكل الصحيح وضح لي الفكرة اكثر وإن شاء الله سأعطيك الحل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

للاسف اخي الكريم ابو كورد جربتها وما ضبطت

الموضوع وما فيه انني اريد ان اضيف من خلال الكومبوكس

لانو في حالة لما اضف في العميل من خلال نموذج اخر وانا فاتح نموذج اللي فيه الكومابوكس فانني الاحظ انه لايضيفها الا في حالة اغلاق النوذج وفتحه مرة اخرى لتتم عملية الاضافة وهذا لا اريده وانا اريد ان تتم الاضافة مباشرة في الكومابوكس

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

في خاصية الحقل في النموذج و في وضع التصميم , في الكل تجد خاصية الالتزام بالقائمة ضع لا و سوف تتمكن من الاضافة.

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي biskra

انا اريد ان اضيف اسم العميل وعنوانه وهاتفه في جدول العملاء وعنما افتح الكوما بوكس اجد هذا العميل في نفس اللحظة واختاره منها

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

أخي الكريم

الحل الذي قاله لك ابو كورد صحيح

إذا كان مصدر الصف في أداة الكومبوبوكس هو الجدول

فضع في حدث بعد التحديث لأداة الكومبو بوكس :

combo1.reqeury

وهذه ستجعل الأداة تحدث مصدر الصف فيها

إذا كان ما تريده هو شيء آخر فأرجو الشرح بمثال لنتمكن من مساعدتك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

فى حدث عند عدم الوجود فى القائمة ضع هذا الكود

   MsgBox "انقر نقراً مزدوجاً فوق الحقل لإضافة العميل إلى القائمة.", vbQuestion, "إضافة عميل جديد"
   Response = acDataErrContinue

وفى حدث عند النقر ضع هذا الكود

Dim lngEmployeeID As Long

   If IsNull(Me![اسم العميل]) Then
       Me![اسم العميل].Text = ""
   Else
       lngEmployeeID = Me![اسم العميل]
       Me![اسم العميل] = Null
   End If
   DoCmd.OpenForm "coustmers", , , , , acDialog, "GotoNew"
   Me![اسم العميل].Requery
   If lngEmployeeID <> 0 Then Me![اسم العميل] = lngEmployeeID

مع تغيير حقل اسم العميل هنا ألى اسم مربع النص لديك

وتغيير coustmers إلى اسم نموذج العملاء وبعد ادخال العميل الجديد ستجد اسمه يأتي مباشرة فى القائمة .

ملحوظة : غير خصائص القائمة الى التزام بالقائمة .

أشرف خليل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حسب مافهمته منك أخ رامي المسألة سهله

في الكمبوبوكس في خيار عند التركيز اختر إجراء حدث و ضع كود التحديث .

جرب

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .