السادة الأفاضل :
قمت بتطبيق الكود الخاص بتبديل لون السجل الحالي والذي حصلت عليه من المنتدى ، إلا أن الكود عمل للسجلات المعروضة في بداية النموذج فقط ، أي أنه تم تلوين السجل الحالي بلون مختلف لأول 21 سجل فقط ، وفشل الكود عند باقي السجلات .
Private Sub Form_Current()
Dim blRet As Boolean
blRet = fScrollInfoCurrentRecord(Me, False)
End Sub
Private Sub Form_Load()
Dim blRet As Long
blRet = fCreateDib(Me)
blRet = fScrollInfoCurrentRecord(Me, True)
Me.TimerInterval = 250
End Sub
وأرفق لكم مثالناً لتطبيقي للكود . رجاء المساعدة ممن يجد حلاً لتبديل لون السجل الحالي مهما بلغ عدد السجلات .