キャプションが空の時にテキストボックスを入力不可にする

曜日のラベルのキャプションが空の時に、その列の各テキストボックスを
入力不可にしたいです。
月に寄って最終日が異なるので、例えば最終日が28日までの日は29～31は入力不可にしたいです。
(29日、30日までの日も同様です)

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

Private Sub cmbYear_Change()
    SetWeekLabel
   
End Sub

Private Sub cmbMonth_Change()
    SetWeekLabel
  
End Sub

Private Sub SetWeekLabel()
Dim intDay As Integer  '日付用の変数

    For intDay = 1 To 31
        If IsDate(cmbYear.Text & "/" & cmbMonth.Text & "/" & Format(intDay)) Then
            Me.Controls("lblWeek" & Format(intDay)).Caption = _
               Format(CDate(cmbYear.Text & "/" & cmbMonth.Text & "/" & Format(intDay)), "aaa")    '日付型 (Date) に変換
               
        Else
            Me.Controls("lblWeek" & Format(intDay)).Caption = ""
           
        End If
        
        Select Case Me.Controls("lblWeek" & Format(intDay)).Caption
            Case "土"
                 Me.Controls("lblWeek" & Format(intDay)).ForeColor = vbBlue
            Case "日"
                 Me.Controls("lblWeek" & Format(intDay)).ForeColor = vbRed
            Case Else
                Me.Controls("lblWeek" & Format(intDay)).ForeColor = vbBlack
            End Select
            
       If Me.lblWeek29.Caption = "" Then
          Me.txtStarttime29.Enabled = False
      End If
      Next
End Sub

試したこと

試しに複数あるテキストボックスの一つのtxtStarttime29(29日の出勤時刻のテキストボックス)

If Me.lblWeek29.Caption = "" Then
Me.txtStarttime29.Enabled = False
End If

でやってみましたが、上記ではすべての月のtxtStarttime29が入力不可になってしまいました。

補足情報（FW/ツールのバージョンなど）

・lblWeek29のように、それぞれ1～31まであります。

行動規範の内容に同意します

回答1件

ベストアンサー

こういうことですか？

VBA
1    For intDay = 1 To 31
2        If IsDate(cmbYear.Text & "/" & cmbMonth.Text & "/" & Format(intDay)) Then
3            Me.Controls("lblWeek" & Format(intDay)).Caption = _
4               Format(CDate(cmbYear.Text & "/" & cmbMonth.Text & "/" & Format(intDay)), "aaa")    '日付型 (Date) に変換
5            Me.Controls("txtStarttime" & Format(intDay)).Enabled = True
6        Else
7            Me.Controls("lblWeek" & Format(intDay)).Caption = ""
8            Me.Controls("txtStarttime" & Format(intDay)).Enabled = False
9        End If