- إذا كان الحقل num نصي فيجب إضافة علامة تنصيص مفرد قبل وبعد إسم التكست بوكس الموجود فيه الذي تريد البحث عنها . وإذا كان رقمي فقم بإزالة علامتي التنصيص المفرد. وكذلك قم بحذف هاذين السطرين من جميع الفورمات :
كود :
Dim db As New ADODB.Connection
Dim RS As New ADODB.Recordset
- وقم بتغيير نفس السطرين الموجود في الموديل لتصبح :
كود :
Public db As New ADODB.Connection
Public RS As New ADODB.Recordset
- وهذا كود الحفظ بعد تعديله قليلا :
كود :
If RS.State = 1 Then RS.Close
RS.Open "select * from item Where num='" & Trim$(Text1.Text) & "'", db, adOpenStatic, adLockPessimistic
If RS.RecordCount <= 0 Then
RS.AddNew
RS!num = Text1.Text
RS!nameitem = Text2.Text
RS!prins = Text3.Text
RS!prins = Text3.Text
RS!users = frmdate.Label2.Caption
RS.Update
MsgBox "تم حفظ البيانات بنجاح"
Else
MsgBox " هذا الرقم موجود مسبقا"
End If