アクセス コンボボックスについて
コンボボックス 印刷ボタンについて
アクセス勉強中です。
フォームで作成した画面 だけを印刷する、コンボボックスを作成しています。
コンボボックスウィザードにてフォーム印刷ボタンを作成したのですが、
1000人くらいの、すべてのデーターが印刷されてしまい困っております。
どこを変更すれば1枚だけ印刷ができるのでしょうか?
イベントプロジャという部分は下記です。
またプロジャー以外に何かしなければならないのでしょうか??
どうぞ宜しくお願いいたします。
Option Compare Database
Private Sub リスト70_AfterUpdate()
' コントロールの値と一致するレコードを検索する
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[IDI] = " & Str(Me![リスト70])
Me.Bookmark = rs.Bookmark
End Sub
Private Sub コンボ73_AfterUpdate()
' コントロールの値と一致するレコードを検索する
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NO] = " & Str(Me![コンボ73])
Me.Bookmark = rs.Bookmark
End Sub
Private Sub コンボ73_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub 生年月日_AfterUpdate()
Me.年_____齢 = Int(DateDiff("d", [生年月日] - 1, Date) / 365.25)
End Sub
Private Sub 郵便番号_AfterUpdate()
Me!現住所.SetFocus
Me!現住所.SelStart = Len(Me!現住所)
End Sub
Private Sub コマンド121_Click()
On Error GoTo Err_コマンド121_Click
Dim stDocName As String
Dim MyForm As Form
stDocName = "顧客リスト"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False
Exit_コマンド121_Click:
Exit Sub
Err_コマンド121_Click:
MsgBox Err.Description
Resume Exit_コマンド121_Click
End Sub