-9
اولا انا اقوم بتصميم برنامج دليل هاتف باستخدام الاداة datacontrol
وقد قمت بعمل كود اضافة سجل جديد هكذا
Private Sub Command1_Click() Data1.Recordset.MoveLast Data1.Recordset.AddNew If Not Text1.Text = "" Then If Text2.Text = "" Then Text2.Text = "لا يوجد بيانات" End If If Text3.Text = "" Then Text3.Text = "لا يوجد بيانات" End If If Text4.Text = "" Then Text4.Text = "لا يوجد بيانات" End If If Text5.Text = "" Then Text5.Text = "لا يوجد بيانات" End If If Text6.Text = "" Then Text6.Text = "لا يوجد بيانات" End If Data1.Recordset.Fields(0).Value = Text1.Text Data1.Recordset.Fields(1).Value = Text2.Text Data1.Recordset.Fields(2).Value = Text3.Text Data1.Recordset.Fields(3).Value = Text4.Text Data1.Recordset.Fields(4).Value = Text5.Text Data1.Recordset.Fields(5).Value = Text6.Text Data1.Recordset.Update Unload Me Else MsgBox "الرجاء ادخل الاسم اولاً", vbCritical + vbMsgBoxRtlReading, "تنبيه" End If End Sub
ولكن المشكلة هى عندما ادخل اسم موجود سابقا فى حقل الاسماء تظهر هذه الرسالة
وقد قمت باستخدام هذا الكود ولكنه لم يضبط معى
Data1.Recordset.FindFirst "name = '" & Text1.Text & "'" If Data1.Recordset.NoMatch = True Then MsgBox "هذا الاسم موجوووووووووووودً", vbCritical + vbMsgBoxRtlReading, "تنبيه" Exit Sub End If
--------------------------------------------------------------
السؤال هنا كيف استطيع تعديل الكود بحيث عند ادخال اسم موجود سابقا تظهر رسالة تسأل المستخدم
" هذا الاسم موجود سابقا ... هل تريد استبداله؟ "
ويكون بها خياران نعم ولا عند الضغط على نعم يقوم باستبدال الاسم الموجود فى قاعدة البيانات بالاسم الجديد والبيانات الجديدة
-------------------------------------------------------------
السؤال صعب جدا بالنسبة لى ولكنه لا يصعب عليك ارجو الرد السريع
وجزاكم الله خيرا