مطلوب إضافة سجل جديد عند البحث

[عبدالقدوس48]

السلام عليكم 

عند البحث  في نموذح بحث عن رقم لم يتم تسجيله أريد ان يفتح لي نموذج التسجيل 

If MsgBox(" معذرة اخي الكريم .... هذا الرقم لم يتم تسجيله بعد هل ترغب بتسجيله ؟", vbCritical + vbYesNo, "تنبيه") = vbNo Then

[kkhalifa1960]

تفضل أخي .

 

DD133.mdb

تم تعديل أبريل 12, 2023 بواسطه kkhalifa1960

[Eng.Qassim]

بعد اذن استاذي @kkhalifa1960

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

Private Sub cboNumber_NotInList(NewData As String, Response As Integer)
     Dim strTmp As String
     strTmp = "Add '" & NewData & "' as a new  EmpNumber?"
    If MsgBox(" هذا الرقم لم يتم تسجيله", vbCritical + vbYesNo, "تنبيه") = vbYes Then
        strTmp = "INSERT INTO Employee ( EmpNumber ) " & _
            "SELECT """ & NewData & """ AS EmpNumber;"
        DBEngine(0)(0).Execute strTmp, dbFailOnError
        
        Response = 0
        Me.cboNumber = ""
        Me.Requery
     Else
        Response = 0
        Me.cboNumber = ""
    End If
End Sub

ولاتنسى..

limit to list=yes

[عبدالقدوس48]

جزاكم الله خيرا

[عبدالقدوس48]

قاعدة البيانات.zipرفعت لكم قاعدة البيانات وأريد تعديل فيها تكست daman في نموذج موظف2 إذا وجد بيانات يجلب البيانات من جدول موظف إذا لم يجد يفتح نموذج موظف1 وجزاكم الله خيرا

 

[kkhalifa1960]

31 دقائق مضت, عبدالقدوس48 said:

رفعت لكم قاعدة البيانات وأريد تعديل فيها تكست daman في نموذج موظف2 إذا وجد بيانات يجلب البيانات من جدول موظف إذا لم يجد يفتح نموذج موظف1 وجزاكم الله خيرا

أين نموذج موظف2 ؟؟؟؟؟؟

[عبدالقدوس48]

داخل قاعدة البيانات

[kkhalifa1960]

تفضل أخي .

قاعدة البيانات-2.mdb

[عبدالقدوس48]

نعم أخي kkhalifa1960هذا هو مطلوب وجزاكم الله خيرا

[kkhalifa1960]

7 ساعات مضت, عبدالقدوس48 said:

نعم أخي kkhalifa1960هذا هو مطلوب وجزاكم الله خيرا

اذا كان هذا طلبك رجاء الضغط على أفضل اجابة .