Ｐａｇｅ 613 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼［無題］ 隠れ肥満２２ 04/4/30(金) 20:58 ┗ファームからの入力値をレポートで印刷したい。 隠れ肥満２２ 04/4/30(金) 21:00 ┗Re:ファームからの入力値をレポートで印刷したい。 クロ 04/5/1(土) 16:56 ┗Re:ファームからの入力値をレポートで印刷したい。 隠れ肥満２２ 04/5/3(月) 10:52 ┗Re:ファームからの入力値をレポートで印刷したい。 クロ 04/5/3(月) 23:56 ┗Re:ファームからの入力値をレポートで印刷したい。 隠れ肥満２２ 04/5/5(水) 8:07 ─────────────────────────────────────── ■題名 ： ［無題］ ■名前 ： 隠れ肥満２２ ■日付 ： 04/4/30(金) 20:58 -------------------------------------------------------------------------
| 現在、下記のコードで印刷しています。 これにフォームから入力した txt担当に担当者名を入力した値を レポート上に印刷したいのですが どうやれば、出来ますでしょうか？ なかなか出来なくて・・・ すいませんお願い致します。 Private Sub cmd印刷_Click() On Error GoTo Err_cmd印刷_Click a = "売上年月日=#2004/04/30# DoCmd.OpenReport "R売上明細", acViewNormal, , a Exit_cmd印刷_Click: Exit Sub Err_cmd印刷_Click: MsgBox (Err.Number & ", " & Err.Description) End Sub Private Sub txt担当_Click() End sub |
| 先ほど無題で送信してしまいました。ごめんなさい。 ▼隠れ肥満２２ さん： >現在、下記のコードで印刷しています。 >これにフォームから入力した >txt担当に担当者名を入力した値を >レポート上に印刷したいのですが >どうやれば、出来ますでしょうか？ >なかなか出来なくて・・・ >すいませんお願い致します。 > >Private Sub cmd印刷_Click() >On Error GoTo Err_cmd印刷_Click > a = "売上年月日=#2004/04/30# > DoCmd.OpenReport "R売上明細", acViewNormal, , a >Exit_cmd印刷_Click: > Exit Sub >Err_cmd印刷_Click: > MsgBox (Err.Number & ", " & Err.Description) >End Sub > >Private Sub txt担当_Click() > >End sub |
| レポート上に非連結テキストボックスを配置(仮にtxtName) レポートの開く時のイベントに Me.txtName = Forms!フォーム名.txt担当 でいいかと... ※この場合フォームがバックグラウンドで開いてなければなりません。 |
| ▼クロ さん： >レポート上に非連結テキストボックスを配置(仮にtxtName) >レポートの開く時のイベントに >Me.txtName = Forms!フォーム名.txt担当 >でいいかと... >※この場合フォームがバックグラウンドで開いてなければなりません。 フォームがバックグラウンドで開いている状態で 上記のコードで起動したのですが、無限ループっぽく なってしまってＰＣを再起動しました。 記述的には問題ないと思うのですが・・・ 何が原因なんでしょう？また、他の方法は ないでしょうか？ すいませんお願い致します。 |
| ホントは無理VBAで書く必要はないんです。 レポート上の非連結テキストボックス(仮にtxtName)の コントロールソースに Forms!フォーム名.txt担当 でもいいとおもいます。 ※この場合もフォームがバックグラウンドで開いてなければなりません。 |
| ▼クロ さん： >ホントは無理VBAで書く必要はないんです。 >レポート上の非連結テキストボックス(仮にtxtName)の >コントロールソースに >Forms!フォーム名.txt担当 >でもいいとおもいます。 >※この場合もフォームがバックグラウンドで開いてなければなりません。 >ホントは無理VBAで書く必要はないんです。 原因は↑でした。 簡単に出来ました。ありがとうございました。 |