| |
児童別図書貸出簿レポートのレコードソースはクエリ(児童名抽出条件付き)でしょうか？
でしたら
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
もしクエリでないなら元となるテーブルを使い
i = Dcount("*","テーブル名","[児童名フィールド]='" & Me.tx児童名検索 &"'")
|
|
クロ
- 04/8/24(火) 13:21 -
