| |
▼クロ さん：
>Private Sub 児童別貸出簿_Click()
>Dim i As Integer
>DoCmd.OpenForm "年月日入力3"
> If IsNull(Me.tx児童名検索) Then
> MsgBox "児童名を選択してください", vbCritical
> Me.tx児童名検索.SetFocus
> Else
><以下省略>
>
>Ifの前で「年月日入力3」を開いてはどうでしょうか？
Ifの前で「年月日入力3」を開いたのですが、結果は同じようです。
同時に二つ「対象児童名の貸し出しはありません」と「年月日入力3」が表示されます。
ちなみに「年月日入力3」のコードを書きますので何か気がついたことはありませんでしょうか。
テキストボックス開始年月日
テキストボックス終了年月日
コマンドボタン閉じる
コマンドボタンOK
Private Sub Form_Load()
Me.終了年月日 = Date
End Sub
Private Sub コマンド10_Click() ’閉じるボタン
DoCmd.Close
End Sub
Private Sub コマンド9_Click() ’OKボタン
If IsNull(Me.開始年月日) Or IsNull(Me.終了年月日) Then
MsgBox ("開始年月日と終了年月日を入力してください。")
Me.開始年月日.SetFocus
ElseIf Me.開始年月日 > Date Or Me.終了年月日 > Date Then
MsgBox ("有効な年月日をを入力してください。")
Me.開始年月日.SetFocus
Else
Me.Visible = False
End If
End Sub
|
|
ponpon
- 04/8/24(火) 18:17 -
