Access VBA質問箱 IV

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

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


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

7570 / 9994

←次へ　｜　前へ→


	【5611】Re:ＶＢＡ勉強中

小僧 - 05/7/14(木) 10:00 -


	引用なし

	パスワード

▼sakaiII さん：
おはようございます。

フォームには連結フォームと非連結フォームがありますが、
例として連結フォームのやり方です。

まずフォームを用意（仮にF_Sakaiとします。）

テキストボックスを7個配置します。
名前　　　　　　コントロールソース
txt納品日付　　納品日付
txt商材コード　商材コード
txt商材名　　　商材名
・
・

「F_Sakai」を開くとレコードソースがないので
各フィールドが「#NAME?」になっていると思われますが、
ここに先ほどの SQL をセットしてあげる形です。

フォームはSAVEして閉じた状態で
下記コードをモジュールに貼り付けて確かめてみてください。

Sub SQLをフォームにセット()
Dim SQLCode As String

　　DoCmd.OpenForm "F_Sakai"
　　SQLCode = "SELECT [納品日付を入力してください] AS 納品日付, test_0513.商材コード, " _
　　　　　　& "test_0513.商材名, test_0513.数量, test_0513.単価, " _
　　　　　　& "test_0513.合計金額 , test_0513.備考欄 FROM test_0513"
　　　
　　Forms![F_Sakai].RecordSource = SQLCode
　　　
End Sub

フォームに「SELECT」された値が入ったと思われますがいかがでしょうか？

328 hits

▼

【5591】ＶＢＡ勉強中 sakaiII 05/7/10(日) 13:23