اضافة عنصر جديد بمربع التحرير والسرد عند التسجيل

[محمود _ المصري]

السلام عليكم ورحمة الله وبركاتة لدي قاعدة بيانات بها مربع تحرير وسرد باسماء الشركات المطلوب عند كتابة اسم شركة غير مدرجة بالقائمة يعطيني رسالة بان الشركة غير مدرجة وسيتم اضافتها بنعم او لاLANDS2.rarLANDS2.rar

تم تعديل منذ 19 ساعات بواسطه محمود _ المصري
نسيت اضافة المرفق

[kanory]

10 ساعات مضت, محمود _ المصري said:

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

وعليكم السلام ورحمة الله وبركاته 
لاحظ الشرح ثم استخدم هذا ................

Private Sub NEM_SH_NotInList(NewData As String, Response As Integer)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim MsgBoxResult As VbMsgBoxResult

    MsgBoxResult = MsgBox("العنصر '" & NewData & "' غير موجود. هل ترغب في إضافته؟", vbYesNo + vbQuestion, "إضافة عنصر جديد")
    If MsgBoxResult = vbYes Then
        Set db = CurrentDb
        Set rs = db.OpenRecordset("SH", dbOpenDynaset)
        NewID = Nz(DMax("ID_SH", "SH"), 0) + 1
        rs.AddNew
        rs!ID_SH = NewID
        rs!ASASE = NewData
        rs.Update
        rs.Close
        Set rs = Nothing
        Set rs1 = Nothing
        Set db = Nothing
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If

End Sub