إلى الأخوة الأعزاء :
لقد قمت بتحويل قاعدة بيانات أكسس إلى فيجوال بيسك بواسطة برنامج Access To VB . وقد تم ترجمة كافة عناصر البرنامج .
إلا أنه عند تشغيل البرنامج يعطي رسالة خطأ في الإجراء التالي :
Private Sub dat1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error Resume Next
dat1.Caption = "Record " & dat1.Recordset.AbsolutePosition & " of "
& dat1.Recordset.RecordCount
End Sub
فيرجى لمن يعرف ما عمل هذا الاجراء وما سبب خطأه ألا يبخل علينا فيه .
ابلاغ المشرف | مشاهدة ip