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

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

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

الصق الكود التالي في خصائص نص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, , "تم التسجيل"