تغییر رنگ فیلدهای خالی در اکسس

بسم الله الرحمن الرحیم

سلام

در این آموزش قصد دارم تا بوسیله کدنویسی رنگ فیلدهای خالی در فرممون رو نسبت به بقیه فیلدها متمایز کنیم.

به عنوان مثال اگر بعد از تکمیل فرم توسط کاربر، یک فیلد خالی ماند (فعلا به ضروری بودن یا اختیاری بودن آن کاری نداریم)، علاوه بر نمایش یک جعبه متن، رنگ پس‌زمینه فیلد مورد نظر را هم تغییر دهیم.

برای جلوگیری از پردازش زیاد اطلاعات، پیشنهاد می‌کنم این کد را بر روی یک دکمه قرار دهید تا کاربر در زمان ذخیره سازی اطلاعات و یا بررسی اطلاعات، این کد اجرا شود.

Dim x As Integer
Dim ctl As Control
Dim setColor As String
setColor = RGB(255, 244, 164)
For Each ctl In Me.Controls
   If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
      If IsNull(ctl.Value) Or ctl.Value = "" Then
         x = 1
         
         ctl.BackColor = setColor
      End If
   End If
Next
If x = 1 Then
   MsgBox "Field Khali Darid..."
End If

پیشنهاد می‌کنم برای دوستان تازه کار تا کد رو با دقت بخونند تا از باقی نکات آموزشی هم استفاده کنند.

به علت ساده بودن کد نمونه قرار داده نشده ولی اگر سوالی بود در بخش نظرات در خدمتم.