Dim r As String
Set RS = DB.OpenRecordset("HYTHAMMM", 2)
If T1 = "" Or T2 = "" Or T3 = "" Or T4 = "" Or T5 = "" Then
msgbox("أدخل البيانات")
T1.SetFocus
Exit Sub
End If
If RS.RecordCount = "0" Then GoTo Ss
RS.MoveFirst
Do While Not RS.EOF
If Not RS.EOF Then
If RS![st_no] = Val(Txt1) Then
r=msgbox("السجل موجود هل تريد حفظ التغيرات",, vbYesNo, SAAVE)
If r = vbYes Then
RS.Edit
RS![st_no] = Val(T1)
RS![st_name] = T2
RS![address] = T
RS![b_date] = T4
RS![phone] = T5
RS.Update
Else
T1.SetFocus
Exit Sub
End If
Exit Sub
End If
End If
RS.MoveNext
Loop
Ss:
RS.AddNew
RS![st_no] = Val(Txt1)
RS![st_name] = Txt2
RS![address] = Txt3
RS![b_date] = Txt4
RS![phone] = Txt5
RS.Update
ارجواء المساعده
وجزاكم الله كل الخير
سورس وكود برنامج التجسس علي لوحه المفاتيح