Access VBA質問箱 IV

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

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


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

7847 / 9994

←次へ　｜　前へ→


	【5330】Re:VBAでクエリ

kuri - 05/6/8(水) 22:02 -


	引用なし

	パスワード

こんばんは。
WHERE句の作成までは何とかできたのですが、結果がぜんぜん抽出されません。
コードは下記の通りです。
Private Sub コマンド75_Click()
　　Dim strSQRWhere As String
　　Dim date1 As Variant　　　　'期間(From)
　　Dim date2 As Variant　　　　'期間(To)
　　　　　　
　　'値の取得
　　date1 = Me.txt1
　　date2 = Me.txt2
　　　　
　　'日付データの確認
　　If IsDate(date1) = False Or IsDate(date2) = False Then
　　　　MsgBox "日付が空白であるか、日付として認識できません。", vbCritical + vbOKOnly
　　　　Exit Sub
　　Else
　　'データの変換
　　　　date1 = CDate(date1)
　　　　date2 = CDate(date2)
　　'WHERE句の作成
　　strSQLWhere = "設計受付年月日 between #" & date1 & "# and #" & date2 & "#"
　　
　　End If
　　If vbYes = MsgBox("結果を表示しますか？", vbInformation + vbYesNo) Then
　　　　DoCmd.OpenForm "F_999", acNormal, "", strSQLWhere
　　End If
　　
　　Debug.Print strSQLWhere
End Sub
フォームF_999は開くのですが、抽出結果が表示がされません。しかし、レコードの件数は左下に表示されています。ですが、抽出前のレコード数となっています。つまり、抽出されていないということですかね？
結果を表示するフォームに何か設定しなくてはだめなのでしょうか？

3,597 hits

▼

【5253】VBAでクエリ kuri 05/6/4(土) 21:23