السلام عليكم ورحمة الله وبركاته....
لقد وجدت في هذا المنتدى مثال جميل وهو عبارة عن مذكرة تحتوي اسم ورقم ومذكرة ... ولما تضيف اسم جديد ... إذا وجد تكرار في البيانات يعلمك عن وجود هذا الأسم .. وأنا عملت مثل هذا المثال بالضبط ولكن للأسف فوق كل ذلك يوجد خطأ في جملة( Set Rec = DB.OpenRecordset(SQL لا أعرف ما السبب وعند استخدامي للمثال لا يظهر هذا الخطأ ... أرجو إفادتي بالخطأ ...والكود إلي عاملنه كامل في الأسفل ....لا زد ولا نقصت فيه وهو نقلا عن الملف الذي حملته من هنا
Dim DB As Database
Dim Rec As Recordset
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Command2_Click()
If Trim(Text1.Text) = "" Then MsgBox "الرجاء التأكد من المدخل ", vbInformation, "": Exit Sub
If Trim(Text2.Text) = "" Or Not IsNumeric(Text2.Text) Then MsgBox "الرجاء التأكد من المدخل ", vbInformation, "": Exit Sub
'------------------------
'البحث عن القيمتين رقم الملف والاسم قبل عملية الاضافة فاذا وجدا لم يقم بالاضافة بل سيسألك اذا رغبت بالتعديل عليه
SQL = ""
SQL = "Select * from [tab3] Where [name] = " & Trim(Text1.Text) & " and [numb] = '" & Trim(Text2.Text) & "'"
Set Rec = DB.OpenRecordset(SQL)
With Rec
If Rec.EOF Then
'في عدم وجود السجل سيتم تنفيذ الكود التالي
.AddNew
Else
'في حال وجود السجل سيتم تنفيذ الكود التالي
Msg_1000 = MsgBox("السجل موجود هل تريد التعديل عليه", vbQuestion + vbYesNo, "")
If Msg_1000 = vbYes Then
.Edit
Else
Exit Sub
End If
End If
!Name = Trim(Text1.Text)
!numb = Trim(Text2.Text)
.Update
Data1.Refresh
End With
End Sub
Private Sub Form_Load()
Set DB = DBEngine.OpenDatabase(App.Path & "\db1.mdb")
'Data
With Data1
.DatabaseName = App.Path & "\db1.mdb"
.RecordSource = "tab3"
End With
End Sub