16-10-15, 01:03 PM
(16-10-15, 01:00 PM)وادي العوضي كتب : استاذي الفاضل vb6_coder شكرا لاهتمامك بالموضوع
لكن الكود لم يضبط معي
لكني بعد محاولات توصلت الى الحل وهو كالاتي :
داخل زر الامر كتب هذا الكود فنجح معي الكود هو :
If rs.EOF = False Then
rs.Addnew
Text1.text = ""
text2.text = ""
الى نهاية ال Textn.text
End If
ضبط عندي هذا بعد التجربة
المهم شكرا لتعاونك معي استاذي الفاضل ربي يوفقك يارب
على الرحب والسعة
