الكومبوبوكس

[jamal2080]

السلام عليكم ورحمة الله وبركاتة

عندى الكومبوبوكس اريد عندى ادخال قيمة غير موجودة تظهر رسائل تنبية 

رسائل تنبية.rar

[Barna]

50 دقائق مضت, jamal2080 said:

السلام عليكم ورحمة الله وبركاتة

عندى الكومبوبوكس اريد عندى ادخال قيمة غير موجودة تظهر رسائل تنبية 

طبق الموجود في الصورة ...........

 

[Eng.Qassim]

في حدث بعد التحديث استخدم الكود التالي..

If DCount("*", "Table1", "[datea]=" & "#" & Me.cbo1 & "#") = 0 Then
    MsgBox "التاريخ غير موجود!"
End If

 

تم تعديل فبراير 26, 2023 بواسطه Eng.Qassim

[jamal2080]

اخى لا اريد الرسالة الفترضي الاكسيس تظهر اريد اظهر رسالة تنبية خاص بى الكومبوبوكس  خاص بالموردين وليس تاريخ 

[kkhalifa1960]

4 ساعات مضت, jamal2080 said:

اخى لا اريد الرسالة الفترضي الاكسيس تظهر اريد اظهر رسالة تنبية خاص بى الكومبوبوكس  خاص بالموردين وليس تاريخ 

ياأخي كود المهندس قسم يعمل جيداً حسب معطياتك .  انت من ادرجت حقل التاريخ ولم تدرج أي شيء عن الموردين راجع مرفقك وأرسل المرفق الصح .

 

[Eng.Qassim]

5 ساعات مضت, jamal2080 said:

وليس تاريخ

🤔

[ازهر عبد العزيز]

في 26‏/2‏/2023 at 16:28, jamal2080 said:

خى لا اريد الرسالة الفترضي الاكسيس تظهر اريد اظهر رسالة تنبية خاص بى الكومبوبوكس  خاص بالموردين وليس تاريخ 

استعمل الكود الاخير للاستاذ @Eng.Qassim  ثم اجعل الالتزام بالقائمة لا لن تظهر لك الرسالة  واضف الكود التالي في نهاية الكود 

Me.Combo0 = Null

تحياتي

تم تعديل فبراير 28, 2023 بواسطه ازهر عبد العزيز

[qathi]

اختر الحقل القائمة المنسدلة ( الكومبوبوكس ) ومن خصائص اختر حدث ومنه عند عدم الوجود في القائمة

ضع الكود التالي:

On Error GoTo myError:
    Response = acDataErrContinue
    Me.km2.Undo
    MsgBox " أدخال خاطىء - أختر من القائمة  ", vbInformation, "تنبيـــــة !"
Exit Sub
myError:
    MsgBox "Error " & Err.Number & ": " & Error$

مع تغيير اسم حقل القائمة km2 في الكود  Me.km2.Undo الى اسم الحقل لديك

 

ثم من قائمة البيانات قم بالتعليم على نعم على التزام بالقائمة كما بالصورة

تم تعديل فبراير 28, 2023 بواسطه qathi

[سامي الحداد]

السلام عليكم 

بالاضافة لما تقدم به جميع الاساتذة اليك الحل التالي على حسب فهمي لطلبك.

يرجى موافاتنا بالنتيجة.

Private Sub Supplier_NotInList(NewData As String, Response As Integer)

    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset
    Dim Msg As String

    Msg = " " & NewData & "  المورد  " & Supplier & vbCr & vbCr & " غير موجود في القائمة " & vbCr & vbCr
    Msg = Msg & "هل تود إضافة هذا المورد ؟"
    If MsgBox(Msg, vbQuestion + vbYesNo) = vbNo Then
        Response = acDataErrContinue
        MsgBox "تم إلغاء عملية الإضافة", vbInformation, "تنبية"
        Supplier = ""
        Exit Sub
    End If

    On Error GoTo CancelAddNew
    Set Db = CurrentDb
    Set Rs = Db.OpenRecordset("Table1", dbOpenDynaset)

    Rs.AddNew
    Rs![Supplier] = NewData
    Rs.Update
    Response = acDataErrAdded

    Rs.Close
    Set Rs = Nothing
    Set Db = Nothing
    Exit Sub

CancelAddNew:
    
    Response = acDataErrContinue
    Set Rs = Nothing
    Set Db = Nothing
    Exit Sub
    

End Sub

الملف بعد التعديل 

تحياتي

رسائل تنبية.accdb