انا أعمل على قاعدة البيانات بستخدام مربعات نصوص وأريد أن يقوم البرنامج بالبحث قبل الحفظ فمثلاً : عند كتابة رقم 5 في مربع نص والضغط على زر حفظ يكون التالي
1- عند وجود سجل بنفس الأسم يظهر رسالة تحذير من ثم لا يحفظ شيء
2- في حالة انه لم يجد سجل بنفس الأسم فأنه يحفظه حالأ
3- امكانية التعديل للسجل
ولكم جزيل الشكر
السلام عليكم
هل تستخدم مكتبة DOA أو ADO
السلام عليكم
هذا كود لعمل ما طلبت
'Declaration
Dim DB as Databse
Dim Rec as Recordset
'Form Load
Set DB = Dbengine.OpenDatabase ("c:\mydb.mdb")
'Command1_Click()
SQl = "Select * from Table Where Field = '" & Value & "'"
Set rec = DB.open (sql)
if rec.eof then
rec.addnew
else
Msg_001 = msgbox ("هل تريد التعديل ؟",vbQuestion + VByesNo ,"")
if Msg_001 = VBYes then
Rec.Edit
Else
Exit Sub
End if
End IF
Rec!Field1 = Value1
Rec!Field2 = Value3
'etc.
Rec.Update
Rec.Closeتم تعديل هذه المشاركة بواسطة prof_1982 في 23 يونيو 2004 في 10:54
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
شكراً للأخ prof_1982 فلقد أعجبني اسلوبك في حلول المشاكل
alaali
اي خدمة انا جاهز
الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.
إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.
هذا الموضوع مغلق.