وهذه طريقة اخرى اضافة الى ما تقدم به اخى جعفر
انشات جدول اخر لحفظ الاستعلامات به table2
وضع هذا الكود فى زر حفظ
If IsNull(TextID) Or IsNull(Text1) Or IsNull(Text2) Or IsNull(Text3) Then
MsgBox "عفوا احد الحقول فارغة "
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO Table2 (ID,FullName,Mem,salry)values ('" & [TextID] & "','" & [Text1] & "','" & [Text2] & "','" & [Text3] & "');"
MsgBox "تم اضافة البيانات بنجاح"
End If
DLookup - Copy.rar