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