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

أخي رامي

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

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

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

Me.Refresh

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

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

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

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

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

اخي biskra

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

أخي الكريم

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

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

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

combo1.reqeury

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

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

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

   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 إلى اسم نموذج العملاء وبعد ادخال العميل الجديد ستجد اسمه يأتي مباشرة فى القائمة .

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

أشرف خليل

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

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

جرب