Access VBA質問箱 IV

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

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


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

5185 / 9994

←次へ　｜　前へ→


	【8038】Re:変数へ日付を代入する

クロ - 06/6/23(金) 11:13 -


	引用なし

	パスワード

こんちには T_工事台帳テーブルの受注日のデータ型はなんですか？日付型なら Dim dateA As String, dateB As As String, strSQL As String '文字列でいいです。 dateA = DLookup("始日", "WT_設定ﾏｽﾀ", "pk='1'") dateB = DLookup("締日", "WT_設定ﾏｽﾀ", "pk='1'") strSQL = "INSERT INTO WT_個別原価管理表 ( 工事番号, 受注日 ) " & _ 　　　　 "SELECT T_工事台帳.工事番号, T_工事台帳.受注日 " & _ 　　　　 "FROM T_工事台帳 " & _ 　　　　 "WHERE T_工事台帳.受注日 Between #" & dateA & "# " & _ 　　　　 "And #" & dateB & "#; " DoCmd.RunSQL strSQL でよいかと思います。始日、締日、受注日の日付型の表記が yyyy/mm/dd の場合です。 yy/mm/dd ですとちょっと工夫が必要。