ارجو المساعدة في هذا الكود

ارجو المساعدة في هذا الكود

حيث ان النموذج عندي يحتوي على مربعات نص تكون احيانا نشطة واحيانا غير نشطة مثلا حينما يكون الدفع نقدا يكون رقم الشيك واسم البنك غير نشط لان الخاصية نقدا فعند تشغيل الكود يعطيني رسالة تفيد بانه لايستطيع نقل المؤشر الى مربع النص للتاكد منه ان خالي او يوجد به قيمة لانه غير نشط

Dim ctlTextbox As Control
     For Each ctlTextbox In Me.Controls
     If ctlTextbox.ControlType = acTextBox Then
        If IsNull(ctlTextbox) Then
  
 MsgBox " لقد تركت احد مربع البيانات فارغا  ", 48
        ctlTextbox.SetFocus
        Exit Sub
        End If
     End If

تحياتي للجميـــــع