إخواني أعضاء المنتدي الكرام ، تحية طيبة وبعد ،
كائن ال Recordset يحتوي علي العديد من الأحداث ، ولإستخدام الأحداث يمكن من خلال الكود التالي :
Dim WithEvents Rs As RecordSet Private Sub Form_Load() Set Rs = New ADODB.Recordset End Sub
وعند إستخدام حدث FetchProgress ، لا ينفذ أوامر الحدث ، والكود كما يلي :
Private Sub Rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) Static X As Long X = X + 1 Me.Caption = X DoEvents End Sub
فما هو حل هذه المشكلة ، ولماذا لا ينفذ الحدث ، مع العلم بأنني أعلم أن هذا الحدث ينفذ مرة واحدة وبشكل دوري أثناء تعبئة مجموعة السجلات به
وشكراً
