abdullhadi999

الله يجزاك الجنة ياغالي . وكل عام وانت بخير وجميع اعضاء هذا المنتدى الرائع

تبقى كلمة #محذوف#

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

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

@أبو آدمDatabase3.accdb

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 %

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

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

Database10.accdb

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

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