اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

رابط هذا التعليق
شارك

أخي العزيز

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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 %

 

تم تعديل بواسطه abdullhadi999
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information