اعزائي
دائما يرجع هذا الكود العدد -1 لعدد السجلات رغم وجودها في الجدول الهدف Main
ارجو منكم المساعدة حتى يعمل بالشكل الصحيح
وهو فقط من اجل معرفة ان كان يوجد سجل مطابق لعمل اجراء اخر
ولكن كما ذكرت لكم يعود المتغير Cont بالقيمة -1 ما هو السبب
Dim cn As ADODB.Connection Dim Rs As ADODB.Recordset Set cn = CurrentProject.Connection Set Rs = New ADODB.Recordset 'Dim fname As Integer 'Dim TxtGno As String Dim Cont As Integer Rs.Open "select * from main where Gnumber = '" & Gnumber & "'", cn Cont = Rs.RecordCount If Cont > 0 Then
شكراً لكم
