Access VBA質問箱 IV

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

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


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

9938 / 9994

←次へ　｜　前へ→


	【3189】Re:レポート印刷の怪

こもれび - 04/8/8(日) 13:35 -


	引用なし

	パスワード

>「印刷用テーブル」はボタンを押した際にデータを全削除しているにも
>かかわらず動作していないように見えます。
>ソースを載せますのでご教授いただければ幸いです。

次の記述ではいかがでしょうか。
（変数宣言等は省略しています）

　　CnAcc.ConnectionString = CurrentProject.Connection

　　rsAcc.Open "印刷用テーブル", cn, adOpenKeyset, adLockOptimistic

　　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
　　DoCmd.Requery "lstmain"

　　RsAcc.Close:Set RsAcc = Nothing
　　CnAcc.Close:Set CnAcc = Nothing

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

　　 SQL01 = "DELETE * FROM 印刷用テーブル"
　　 CnAcc.Execute SQL01

295 hits

▼

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