Access VBA質問箱 IV

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

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


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

2515 / 9994

←次へ　｜　前へ→


	【10752】Re:複数条件からのデータ抽出について

Gin_II - 08/11/19(水) 16:30 -


	引用なし

	パスワード

> Visual Basic Editor についてよくわからないのでそのままコピペしてあげてしまいましたが、お分かりになりますでしょうか...。

現状のコードでも、

> 「コンパイルエラー：End sub,End Function,End Property以降に
> 書き込めるのはコメントのみです」といったエラーが出ます。

になりますか？
とりあえず、以下の状態にばっさりと変更して、

'-----------------------------------------------------
Private Sub cmd1_Click()
'On Error GoTo e
　Dim strSql As String
　Dim strWhere As String

　strSql = "SELECT * from Sheet1_2クエリ "

　If Not IsNull(Me!Combo) Then
　　strWhere = strWhere & " AND アルファベット = '" & Me!Combo & "'"
　End If

　If Not IsNull(Me!kazu3) Then
　　If Not IsNull(Me!kazu4) Then
　　　　strWhere = strWhere & " AND 数値 BETWEEN " & Me!kazu3 & " AND " & Me!kazu4
　　Else
　　　　strWhere = strWhere & " AND 数値 =" & Me!kazu3
　　End If
　End If

If Len(strWhere) > 0 Then
　Me.RecordSource = strSql & "WHERE " & Mid(strWhere, 5)
　Debug.Print strSql & "WHERE " & Mid(strWhere, 5)
Else
　　Me.RecordSource = strSql
End If

e:
　Exit Sub

End Sub
'-----------------------------------------------------

(1) コンパイルをし、コンパイルエラーが発生しないか？
(2) 実行して、実行時エラーがでないか？

を確認してください。

(1) でエラーが発生するのなら、どの部分で発生したかを。
(2) でエラーが発生したのなら、
　・どの部分で発生したか
　・エラーメッセージは何か
　・「表示」→「イミディエイトウィンドウ」で、出力されている内容

を教えてください。

465 hits

▼

【10741】複数条件からのデータ抽出について 波 08/11/19(水) 10:33