عندى جدوليين احدهم بهة جدول الموظفيين Emp_data وآخر جدول تاريخى بترقياتة
اريد عمل ترقية لكل الموظفين المستحقيين للترقية باضافة سطر فى الجدول الخاص بالترقيات
ماقمت بعملة
تحديد السطر الاول فى الجدول الخاص بالموظفين المستحقين للترقية
عمل loob لبيانات الجدول الثانى بدلالة رقم الموظف من جدول المستحقيين
حينما اقوم بفتح الجدول الثانى بدلالة رقم الموظف
يعترض على اغلاق الـــ record set
فما الحل
برجاء الافادة
*********************************************************************
SQL = "select * from emp_data order by emp_name" ' where code= '" & Val(Lbl_Emp_Code.Caption) & "' " & "order by date"
If adoPrimaryRS.State = adStateOpen Then adoPrimaryRS.Close
adoPrimaryRS.Open SQL, db, adOpenDynamic, adLockOptimistic
adoPrimaryRS.MoveLast
adoPrimaryRS.MoveFirst
Count = adoPrimaryRS.RecordCount
For i = 1 To Count
Emp_Code = adoPrimaryRS.fields("Emp_code")
adoPrimaryRS.MoveNext
SQL1 = "select * from sgl_test where code= '" & Val(Emp_Code) & "' " & "order by date"
If ado_add.State = adStateOpen Then ado_add.Close
ado_add.Open SQL1, db, adOpenDynamic, adLockOptimistic
ado_add.MoveLast
ado_add.MoveFirst
'--------------------------------------------------------------------------------------
' الكود الكطلوب تكرارة
'--------------------------------------------------------------------------------------
Next i
