| |
▼クロ さん：
早速の回答ありがとうございました。
>児童別図書貸出簿レポートのレコードソースはクエリ(児童名抽出条件付き)でしょうか？
パラメータクエリで、期間と児童名をユーザーフォームから入力するようにしています。
>でしたら
>Private Sub 児童別貸出簿_Click()
>Dim i As Integer
> If IsNull(Me.tx児童名検索) Then
> MsgBox "児童名を選択してください",, vbCritical, "警告"
> Me.tx児童名検索.SetFocus
>
> Else
>
> i = DCount("*","クエリ児童別図書貸出簿")
>
> if i = 0 then
> MsgBox "対象児童名の貸し出しはありません。"
> 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
>
Dcount関数を使い、クエリ児童別図書貸出簿に「＊」（データ）がないときは 抜けろということですよね。
Dcountの使い方がよくわからないのでヘルプなどで調べてもう一度やってみま す。
|
|
ponpon
- 04/8/24(火) 14:18 -
