الحاق بيانات فى جدول بشرط

[wehadyxp 1]

الرجاء المساعدة

اريد النموذج المرفق بالقاعدة عند اختيار الموظف وتحديد اليوم يقوم حقل الايراد بتسجيل المبلغ فى ها اليوم المحدد 

db1.mdb

تم تعديل 28 Nov 2020 بواسطه wehadyxp
تعديل الوصف

[wehadyxp 1]

لو تكرمتم المساعدة 

[wehadyxp 1]

الرجاء من الإخوة الأفاضل المساعدة لو فى شى مش واضح ممكن اوضحه

[محمد عوض 1]

الصق الكود التالي في خصائص نص2 في حدث (بعد التحديث)

If IsNull(Me.نص5) Then
  Me.نص2 = Null
  MsgBox "اكتب قيمة الإيراد"
  Me.نص5.SetFocus
  Exit Sub
  
ElseIf IsNull(Me.نص0) Then
  Me.نص2 = Null
  MsgBox "اختر رقم الموظف"
  Me.نص0.SetFocus
  Me.نص0.Dropdown
  Exit Sub
End If

CurrentDb.Execute "INSERT INTO [تسجيل الحركة] ( [رقم الموظف], " & Me.نص2 & " )" _
& " SELECT " & Me.نص0 & ", " & Me.نص5 & ";"
MsgBox "تم تسجيل الحركة للموظف رقم: " & Me.نص0, , "تم التسجيل"