Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9994 / 9994

←次へ


	【3102】レポート印刷の怪

Homes - 04/7/20(火) 15:26 -


	引用なし

	パスワード

あるフォームのボタンを押したらフォーム内のリストボックスの
選択されている明細が「印刷用テーブル」に書き込まれ、
直後にその印刷用テーブルを使ったレポートを印刷するプログラムを作成
しました。しかし、1回目は上手く動作するのですが、2回目以降に
フォーム内の明細を選択してボタンを押すと、前回印刷した明細が
出てきてしまいます。
「印刷用テーブル」はボタンを押した際にデータを全削除しているにも
かかわらず動作していないように見えます。
ソースを載せますのでご教授いただければ幸いです。

sub BtnClick()
　　Dim varItm As Variant
　　Dim CnAcc As New ADODB.Connection
　　Dim RsAcc As New ADODB.Recordset
　　Dim SQL As String
　　Const D_SQL As String = "DELETE * FROM 印刷用ﾃｰﾌﾞﾙ"
　　
　　CnAcc.ConnectionString = CurrentProject.Connection
　　
　　'** 印刷用ﾃｰﾌﾞﾙ　ﾃﾞｰﾀ削除
　　Set RsAcc = CnAcc.Execute(D_SQL, , adCmdText)

　　RsAcc.Open "印刷用ﾃｰﾌﾞﾙ", CnAcc, adOpenKeyset, adLockOptimistic, adCmdTableDirect
　　
　　For Each varItm In Me.lstMain.ItemsSelected
　　　　RsAcc.AddNew
　　　　RsAcc("A").Value = Me.lstMain.Column(1, varItm)
　　　　RsAcc("B").Value = Me.lstMain.Column(2, varItm)
　　　　RsAcc("C").Value = Me.lstMain.Column(3, varItm)
　　　　RsAcc("D").Value = Me.lstMain.Column(4, varItm)
　　　　RsAcc.Update
　　　　
　　　　DoEvents
　　Next varItm
　　
　　RsAcc.Close
　　CnAcc.Close
　　Set RsAcc = Nothing
　　Set CnAcc = Nothing

　　DoCmd.Requery "lstmain"
　　DoCmd.OpenReport "データ発行", acViewNormal

end sub

358 hits

▼

【3102】レポート印刷の怪 Homes 04/7/20(火) 15:26

≪