Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9733 / 9994 ←次へ | 前へ→

【3397】ラベル表示の切替
質問  nana  - 04/9/3(金) 17:09 -

引用なし
パスワード
   ルール違反なのかもしれませんが、質問させてください。
別のサイトで下記の質問をしました。

『フォームを開いている月が4〜9月中ならばラベル1〜6が4月〜9月の表示になり、
10〜3月中なら10〜3月の表示に・・ということは可能でしょうか?』
と質問し、下記を教えていただきましたが、
Nextに対するForがありません。と、エラーになってしまいます。
どこをどのようにすればうまく動いてくれるのでしょうか?
どなたか、教えてください。

Private Sub Form_Open(Cancel As Integer)
Dim i As Long

  If Month(Date) >= 4 And Month(Date) < 10 Then
    For i = 1 To 6   
      Me.Controls("ラベル" & i).Caption = i + 3 & "月"   
    Next 
  Else
    For i = 1 To 6 
  If i < 4 Then   
      Me.Controls("ラベル" & i).Caption = i + 9 & "月"   
  Else    
      Me.Controls("ラベル" & i).Caption = i - 3 & "月"   
    Next 
  End If
End Sub

163 hits

【3397】ラベル表示の切替 nana 04/9/3(金) 17:09 質問
【3399】Re:ラベル表示の切替 Gin_II 04/9/3(金) 17:43 回答
【3401】Re:「愛」が足りない クロ 04/9/4(土) 0:06 回答
【3403】Re:ラベル表示の切替 YU-TANG 04/9/4(土) 10:59 回答

9733 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078301
(SS)C-BOARD v3.8 is Free