محتاج كود لعملية اضافة سجل بشروط.

[abdullhadi999]

السلام عليكم ...

لدي جدولين بنموذجين مستقلين ومرتبطه ببعض,. نموذج موظفين ونموذج عهد . اريد بعد كتابة رقم الموظف في نموذج العهد يبحث لي عنه في جدول الموظفين اذا وجده يسمح باضافة سجل . واذا لم يجده يعطيني رسالة بعدم وجوده وهل ارغب باضافته ويقوم بفتح نموذج الموظفين للاظافه . ولكم جزيل الشكر 

[kaser906]

وعليكم السلام

اضف مرفق للتطبيق

::بالتوفيق::

 

إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم

[abdullhadi999]

اشكرك اخي الكريم كاسر ستجد المثال في المرفقات وهناك نص موجود  في نموذج الاجازات مشورح عليه المطلوب .تقبل تحياتي ياغالي

Database10.accdb

[أبو آدم]

أخي العزيز

استخدم الكود التالي

Private Sub Emp_ID_BeforeUpdate(Cancel As Integer)
'By Nart Lebzo for www.officena.net 05/05/2018

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Answer As String
Dim MyMsg As String
 
    MyMsg = "Employee number is not registered " & _
    vbNewLine & "Would you like to add the new employee?"
    
 
If DCount("*", "TBL_Employee", "Emp_ID=" & Me.Emp_ID & "") = 0 Then
    
    'Display MessageBox
    Answer = MsgBox(MyMsg, vbQuestion + vbYesNo, "Unknown Number")
 
    If Answer = vbYes Then

    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("TBL_Employee", dbOpenDynaset, dbSeeChanges)

    With rs
        .AddNew
        rs("Emp_ID") = Me.Emp_ID
        .Update
        .Close
    End With

       Set db = Nothing
       Set rs = Nothing
     
       DoCmd.OpenForm "FormEmployee", , , "Emp_ID =" & Me.Form.Emp_ID
    
    
    Else
        'Code for No button Press
    DoCmd.Close acForm, Me.Name, acSaveNo
    Exit Sub
    End If
 
 Else
 End If
 
 
End Sub

تمت التجربة ويعمل بنجاح

[abdullhadi999]

جزاك الله اخي الكريم ابو ادم . ساجربه 

[abdullhadi999]

7 ساعات مضت, أبو آدم said:

أخي العزيز

استخدم الكود التالي

Private Sub Emp_ID_BeforeUpdate(Cancel As Integer)
'By Nart Lebzo for www.officena.net 05/05/2018

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim Answer As String
Dim MyMsg As String
 
    MyMsg = "Employee number is not registered " & _
    vbNewLine & "Would you like to add the new employee?"
    
 
If DCount("*", "TBL_Employee", "Emp_ID=" & Me.Emp_ID & "") = 0 Then
    
    'Display MessageBox
    Answer = MsgBox(MyMsg, vbQuestion + vbYesNo, "Unknown Number")
 
    If Answer = vbYes Then

    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("TBL_Employee", dbOpenDynaset, dbSeeChanges)

    With rs
        .AddNew
        rs("Emp_ID") = Me.Emp_ID
        .Update
        .Close
    End With

       Set db = Nothing
       Set rs = Nothing
     
       DoCmd.OpenForm "FormEmployee", , , "Emp_ID =" & Me.Form.Emp_ID
    
    
    Else
        'Code for No button Press
    DoCmd.Close acForm, Me.Name, acSaveNo
    Exit Sub
    End If
 
 Else
 End If
 
 
End Sub

تمت التجربة ويعمل بنجاح

 

الله يجزاك الجنة ياغالي . شغال 100 %

 

تم تعديل مايو 5, 2018 بواسطه abdullhadi999

[أبو آدم]

الحمد لله الذي بفضله تقضى الحاجات