No.11ベストアンサー
- 回答日時:
[DTPicker0] ではなく [ActiveXコントロール6]等の名前がなっているだけとか。
DTPicker0->dtpicker0と書換えたら dtp が大文字に自動変換されますか?
No.10
- 回答日時:
名前________:DTPicker0
OLEクラス_:DTPicke
クラス_______:MSComCtl2.DTPicker.2
Access2002(10.6771.6893) SP3
こちらのテスト環境です。
一応、クエリにも組み込んでテストしています。
もちろん、デバッグエラーは出ていません。
また、日付もPCの日付を変更して反映されることも確認しています。
違いはなんでしょうね。
No.9
- 回答日時:
Private Sub DTPicker0_Change()
Me.txtDTPicker0 = Format(Me.DTPicker0.Value, "yyyy/mm/dd")
End Sub
Private Sub DTPicker1_Change()
Me.txtDTPicker0 = Format(Me.DTPicker1.Value, "yyyy/mm/dd")
End Sub
Private Sub Form_Activate()
End Sub
Private Sub Form_Current()
Me.txtDTPicker0 = Format(Me.DTPicker0.Value, "yyyy/mm/dd")
Me.txtDTPicker1 = Format(Me.DTPicker1.Value, "yyyy/mm/dd")
End Sub
Private Sub Form_Load()
Me.DTPicker0.Value = Date
Me.DTPicker1.Value = Date
End Sub
Form_Load()とForm_Current()とでの分割記述が必要かどうかは定かではありません。
この回答への補足
お返事ありがとうございます
テキストボックスを2つ設置し
名前を
txtDTPicker0
txtDTPicker1
に変更し上記内容を貼り付け実行しましたが、エラーがでます
実行時エラー'2763'
DTPickerでエラーが発生しました:値の取得のみが可能なプロパティです。
お返事ありがとうございます
補足の補足ですが
Private Sub Form_Load()
Me.DTPicker0.Value = Date←デバックするとこの列に色がつきます
Me.DTPicker1.Value = Date
End Sub
No.7
- 回答日時:
>クエリは日付けに Between "DTPicker0" And "DTPicker1" を記載しています。
これは、全く機能していないです。
>Between検索を実施しようと思いましたが型がちがうとエラーで返されます。
このエラーは、文字列をセットしているので当然のことです。
BETWEEN Forms![フォーム1]![何時から] AND Forms![フォーム1]![何時まで]
と、DTPicker0 と DTPicker1の値を反映したキストボックスを参照させると上手くいきます。
ただし、先ほどの回答はミスでした。
Me.[何時から]、Me.[何時まで]に代入する場合に日付部分を切り出さないといけなかったです。
そこでForm_Current()も含めてのコードを再度示します。
Private Sub DTPicker0_Change()
Me.何時から = CutStr(Me.DTPicker0.Value, " ", 1)
End Sub
Private Sub DTPicker1_Change()
Me.何時まで = CutStr(Me.DTPicker1.Value, " ", 1)
End Sub
Private Sub Form_Current()
Me.何時から = CutStr(Me.DTPicker0.Value, " ", 1)
Me.何時まで = CutStr(Me.DTPicker1.Value, " ", 1)
End Sub
標準モジュールに先ほどの CutStr関数をコピペしてください。
これでOKです。
No.6
- 回答日時:
あれ式が違った
0時じゃない時刻を付加したい場合には
単純に足し算してやればOKです
2008/01/01に12:00:00を付加するには
2008/01/01 + 12:00:00
No.5
- 回答日時:
日付時刻型の正体は整数部で日付を小数部で時刻を表す浮動小数点型の数値です
日付のみ、時刻のみというものはありません
従って
>日付型で2008/01/01
はなにもしなくても
>2008/01/01 00:00:00
です
0時じゃない時刻を付加したい場合には
単純に足し算してやればOKです
2008/01/01に12:00:00を付加するには
2008/8/01/01/+12:00:00
No.4
- 回答日時:
補足: クエリとMicrosoft Date and TimePicker Control
Private Sub DTPicker0_Change()
Me.何時から = Me.DTPicker0.Value
End Sub
Private Sub DTPicker1_Change()
Me.何時まで = Me.DTPicker1.Value
End Sub
なお、クエリでは、このように[何時から]、[何時まで]というテキストボックス経由で・・・。
このテキストボックスの表示を yyyy/mm/dd にすれば・・・。
もちろん、Form_Current() でも同様の手続きが・・・。
No.3
- 回答日時:
Private Sub コマンド0_Click()
Dim strSQL As String
strSQL = "SELECT * FROM Tab1 WHERE 日付 BETWEEN #" & Me.DTPicker0 & "# AND #" & Me.DTPicker1 & "#"
Debug.Print strSQL
MsgBox DBSelect(strSQL, vbCrLf, vbCrLf)
End Sub
Private Sub コマンド1_Click()
Dim strSQL As String
strSQL = "SELECT * FROM Tab1 WHERE 日付 BETWEEN #" & CutStr(Me.DTPicker0, " ", 1) & "# AND #" & CutStr(Me.DTPicker1, " ", 1) & "#"
Debug.Print strSQL
MsgBox DBSelect(strSQL, vbCrLf, vbCrLf)
End Sub
上の2つでは実行結果が違います。
[イミディエイト]
SELECT * FROM Tab1 WHERE 日付 BETWEEN #2008/01/01 11:35:44# AND #2008/03/02 11:35:44#
SELECT * FROM Tab1 WHERE 日付 BETWEEN #2008/01/01# AND #2008/03/02#
実際のSQL文をデバッグプリントすれば判りますが、Me.DTPicker0 は現在時刻を継承しています。
ですから、この継承を中止するか、関数 CutStr() などで日付だけを取り出すかしないと目的の結果は得られないです。
Public Function CutStr(ByVal Text As String, _
ByVal Separator As String, _
ByVal N As Integer) As String
Dim strDatas() As String
strDatas = Split("" & Separator & Text, Separator, , 0)
CutStr = strDatas(N * Abs((N <= UBound(strDatas))))
End Function
この回答への補足
貴重なコードありがとうございます
やはりそのようなコードが必要だったのですね!
帳票フォームはヘッダにDTPicker0とDTPicker1を設置実行ボタンで
明細に日付、ID、記事等を表示させたいのですが。。
初心者の私は上記コード参入でわからなくなりました(泣)
できれば最後までお願いしたいのですが。。。m(__)m
No.2
- 回答日時:
私に場合、アクセスで生年月日として日付として入れたフィールドがあります。
クエリなので(テーブルの場合、そのフィールドをクリックすると
下にプロパティ内容(部)が出て書式があり、同行右部クリックで
選択できる種類が出る)
デザインモード
その項目フィールド欄でを右クリック
プロパティ
書式の右の▼をクリック
時刻を選択(または日付(標準))
実行
0:00で全件示される。
ということは、エクセルと同じように時刻日付を整数部(=日付)、小数部(=1日を24時間とする小数)で持っていると思われる。
1964/11/4 の後に1スペース 12:23と入れると
(上記操作で書式を時刻を選択したので)12:23と表示される
ーーー
上記のことから
>00:00:00前列変更させたいのですが==>全列の間違い?
なら、そのままで良いということになる。
フィールドの書式を「日付(標準)」にすればよいということになる。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 1 2022/06/18 21:20
- Excel(エクセル) Excel ある複数列に数値を入力した際に、別の列に本日の日付を入力したいです 7 2023/03/01 23:31
- Excel(エクセル) Excel 値を返す数式についてです 3 2022/11/21 20:08
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- 電車・路線・地下鉄 JR西日本のダイヤ改正で今後行われそうなことは何ですか? 1 2022/07/24 12:30
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) Excelでのデータ管理 6 2022/12/24 09:33
- Access(アクセス) お世話になります ACCESSを使用しています 下記のクエリデータ(1)があります 商品名 行数 A 1 2022/09/05 08:52
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
日付型のフィールドに空白を入...
-
SQL文で パラメータが少なすぎ...
-
VBA 別シートの同じ日付の欄に...
-
Accessの日付時刻型から日付、...
-
アクセスで月単位の抽出
-
指定日付を起点にして最新日付...
-
Accessのデータ型の日付/時刻型...
-
Excleピボットでデータのない部...
-
ACCESSの空白をカウントする
-
【vba】日付の形式が勝手に変わ...
-
Accessで日付の比較がうまくい...
-
アクセスの昇順並び替えで空白...
-
日付/時刻型フィールドで時刻デ...
-
Excel→Accessへの日付データの...
-
条件抽出された1フィールドの...
-
Excel2002(2003) グラフでの...
-
クロス集計のユニオンクエリー...
-
SQL Server2005のクエリで「今...
-
【エクセル】指定した日付に一...
-
差し込み印刷の日付表示について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
日付型のフィールドに空白を入...
-
SQL文で パラメータが少なすぎ...
-
Excleピボットでデータのない部...
-
Access クエリで、レコードの無...
-
VBA 別シートの同じ日付の欄に...
-
Accessのデータ型の日付/時刻型...
-
Accessの日付時刻型から日付、...
-
Excel→Accessへの日付データの...
-
指定日付を起点にして最新日付...
-
BCPでCSV内の文字列をテーブル...
-
アクセスで月単位の抽出
-
アクセス:既定値に土日含まず...
-
【エクセル】指定した日付に一...
-
アクセス97のVBAで日付項目をヌ...
-
【vba】日付の形式が勝手に変わ...
-
前のレコードの合計に現レコー...
-
エクセル-過去6カ月分の合計を...
-
Accessで日付の比較がうまくい...
-
ACCESSの空白をカウントする
-
【Accessで困っています...
おすすめ情報