تكفون انقذوني ، تسليم المروع السبت وانا عندي مشكله

السلام عليكم و رحمة الله و بركاته

أختي المدعوة سمسومه, حعطيك بس الفكرة الرئيسية للبرنامج لضيق الوقت ( عذراً ) فأنا أيضاً لدي مشروع أسلمه هذا الأسبوع,

for i = 1 to (number of rows)

if text1.text = Flexgrid.textmatrix(i,رقم حقل الأسماء) then

msgbox("الأسم موجود")

else

ضيف الأسم

end if

حيث أن Text1.text هو الأسم المُدخل.

و يمكن أستخدام الـ Datagrid بدلاً من الـFlexgrid و لكن فقط تختلف أيعاوات الأدخال و الأضافة و أنتي تعرفيها إن شاء الله.

أخوك ميثم كمال

شكرا اخي الكريم

الاخت سمسومة

ارجو ان يكون الاخ Maythem Kamal قد افادك

ولكن هاهو كود اخر للتاكد من عدم تكرار القيمة والفظ فى حالة اذا ماكانت القيمة غير مكررة

Public Sub save()
'suring that the value isnot reabeated
frmdmain.Ado_ci.Recordset.MoveFirst
Do While frmdmain.Ado_ci.Recordset.EOF = False
If (frmdmain.Ado_ci.Recordset.Fields(0).Value = Text1.Text) Then GoTo err
frmdmain.Ado_ci.Recordset.MoveNext
Loop
'saving to client_info
On Error Resume Next
frmdmain.Ado_ci.Recordset.AddNew
frmdmain.Ado_ci.Recordset.Fields(0).Value = Text1.Text
frmdmain.Ado_ci.Recordset.Update
err:
  Exit Sub

End Sub

انا هنا طبقت هذا الكود على حقل واحد ويمكنك تكراره لباقى الحقول

وهذا المثال ستجدينه بالتفصيل فى المشاركة

/index.ph...topic=65818&hl=

وارجو لك التوقيق