| |
▼クロ さん：
>単なるパラメータでは件のエラーが出ますので、フォームのテキストボックス等を配置されてはどうでしょうか？
ユーザーフォームの「図書貸し出し簿」で児童名を選択し、cmdボタン児童別貸出簿をクリックすると、ユーザーフォーム「年月日入力3」を開いて期間を入力するようにしましたが、今度はエラーはでなかったのですが、どの児童を選択しても「対象児童の貸し出しはありません」が表示されてしまいます。おそらく年月日の入力が確定する前に Dcount････に進んでしまうのではないかと思うのですが、どうしたらよいのでしょうか？
Private Sub 児童別貸出簿_Click()
Dim i As Integer
If IsNull(Me.tx児童名検索) Then
MsgBox "児童名を選択してください", vbCritical
Me.tx児童名検索.SetFocus
Else
DoCmd.OpenForm "年月日入力3"
i = DCount("*", "クエリ児童別図書貸出簿")
If i = 0 Then
MsgBox "対象児童名の貸し出しはありません。"
DoCmd.Close acForm, "年月日入力3"
Exit Sub
Else
DoCmd.OpenReport "児童別図書貸出簿レポート", acViewPreview
If MsgBox("印刷しますか?", vbYesNo) = vbYes Then
DoCmd.Close acReport, "児童別図書貸出簿レポート"
DoCmd.OpenReport "児童別図書貸出簿レポート", acViewNormal
End If
End If
End If
End Sub
|
|
ponpon
- 04/8/24(火) 17:12 -
