ACCESSで。クエリからフォームを作成し、検索フォームを作成しようとしています。
AND条件とOR条件を作り検索（抽出）を行いたいのですが、何が間違っているのか、
検索をかけるとすべて「登録がありません」になってしまいます。
どこが間違っているのか、もしくは代替案を教えていただけますでしょうか。
以下は記述した、VBAコードです。
Private Sub 検索ボタン_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim stFil As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("Q_Autoweb", dbOpenDynaset)
'オプションボタンで条件を選択
If 検索条件 = 1 Then
rs.Filter = "[タイトル]='" & タイトル検索 & "' and [本文]='" & テキスト15 & "'"
Else
rs.Filter = "[タイトル]='" & タイトル検索 & "' or [本文]='" & テキスト15 & "'"
End If
Set rs = rs.OpenRecordset
Set Me.Recordset = rs
If rs.EOF = True Then
MsgBox "登録がありません"
Else
Me.ID = rs!ID
Me.案件名 = rs!案件名
Me.タイトル = rs!タイトル
Me.本文 = rs!本文
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
よろしくお願いします。
ACCESSで。クエリからフォームを作成し、検索フォームを作成しようとしています。
AND条件とOR条件を作り検索（抽出）を行いたいのですが、何が間違っているのか、
検索をかけるとすべて「登録がありません」になってしまいます。
どこが間違っているのか、もしくは代替案を教えていただけますでしょうか。
以下は記述した、VBAコードです。
Private Sub 検索ボタン_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim stFil As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("Q_Autoweb", dbOpenDynaset)
'オプションボタンで条件を選択
If 検索条件 = 1 Then
rs.Filter = "[タイトル]='" & タイトル検索 & "' and [本文]='" & テキスト15 & "'"
Else
rs.Filter = "[タイトル]='" & タイトル検索 & "' or [本文]='" & テキスト15 & "'"
End If
Set rs = rs.OpenRecordset
Set Me.Recordset = rs
If rs.EOF = True Then
MsgBox "登録がありません"
Else
Me.ID = rs!ID
Me.案件名 = rs!案件名
Me.タイトル = rs!タイトル
Me.本文 = rs!本文
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
よろしくお願いします。
ACCESSで。クエリからフォームを作成し、検索フォームを作成しようとしています。
AND条件とOR条件を作り検索（抽出）を行いたいのですが、何が間違っているのか、
検索をかけるとすべて「登録がありません」になってしまいます。
どこが間違っているのか、もしくは代替案を教えていただけますでしょうか。
以下は記述した、VBAコードです。
Private Sub 検索ボタン_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim stFil As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("Q_Autoweb", dbOpenDynaset)
'オプションボタンで条件を選択
If 検索条件 = 1 Then
rs.Filter = "[タイトル]='" & タイトル検索 & "' and [本文]='" & テキスト15 & "'"
Else
rs.Filter = "[タイトル]='" & タイトル検索 & "' or [本文]='" & テキスト15 & "'"
End If
Set rs = rs.OpenRecordset
Set Me.Recordset = rs
If rs.EOF = True Then
MsgBox "登録がありません"
Else
Me.ID = rs!ID
Me.案件名 = rs!案件名
Me.タイトル = rs!タイトル
Me.本文 = rs!本文
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
よろしくお願いします。
ACCESSで。クエリからフォームを作成し、検索フォームを作成しようとしています。
AND条件とOR条件を作り検索（抽出）を行いたいのですが、何が間違っているのか、
検索をかけるとすべて「登録がありません」になってしまいます。
どこが間違っているのか、もしくは代替案を教えていただけますでしょうか。
以下は記述した、VBAコードです。
Private Sub 検索ボタン_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim stFil As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("Q_Autoweb", dbOpenDynaset)
'オプションボタンで条件を選択
If 検索条件 = 1 Then
rs.Filter = "[タイトル]='" & タイトル検索 & "' and [本文]='" & テキスト15 & "'"
Else
rs.Filter = "[タイトル]='" & タイトル検索 & "' or [本文]='" & テキスト15 & "'"
End If
Set rs = rs.OpenRecordset
Set Me.Recordset = rs
If rs.EOF = True Then
MsgBox "登録がありません"
Else
Me.ID = rs!ID
Me.案件名 = rs!案件名
Me.タイトル = rs!タイトル
Me.本文 = rs!本文
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
よろしくお願いします。
ACCESSで。クエリからフォームを作成し、検索フォームを作成しようとしています。
AND条件とOR条件を作り検索（抽出）を行いたいのですが、何が間違っているのか、
検索をかけるとすべて「登録がありません」になってしまいます。
どこが間違っているのか、もしくは代替案を教えていただけますでしょうか。
以下は記述した、VBAコードです。
Private Sub 検索ボタン_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim stFil As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("Q_Autoweb", dbOpenDynaset)
'オプションボタンで条件を選択
If 検索条件 = 1 Then
rs.Filter = "[タイトル]='" & タイトル検索 & "' and [本文]='" & テキスト15 & "'"
Else
rs.Filter = "[タイトル]='" & タイトル検索 & "' or [本文]='" & テキスト15 & "'"
End If
Set rs = rs.OpenRecordset
Set Me.Recordset = rs
If rs.EOF = True Then
MsgBox "登録がありません"
Else
Me.ID = rs!ID
Me.案件名 = rs!案件名
Me.タイトル = rs!タイトル
Me.本文 = rs!本文
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
よろしくお願いします。
Access初心者です。説明不足なところなどありましたら、ご指摘ください。
フォームにテキストボックスとリストボックスを配置し、テキストボックスに入力した値をVBAで加工して、その加工された値をキーにDBを参照して、リストボックスに表示したいと考えています。
テストの手順を簡単に説明します（この問題はデータの加工自体にはないと考えているので、入力された値をそのままキーにして値を取得しています。）
１．テーブル作成（テーブル名：tblTEST）
テーブル構造
ID DATA
1 あああ
2 いいい
3 ううう
２．フォーム作成（フォーム名：frmTSET）
３．frmTEST内にテキストボックス作成（オブジェクト名：txtTEST）
４．frmTEST内にリストボックス作成（オブジェクト名：lstTEST）
RowSourceプロパティの値に
SELECT [tblTEST].[DATA] FROM tblTEST WHERE ID=[strTEST];
５．VBAでtxtTESTのChangeイベントに以下のコードを記述
宣言部
Dim strTEST As String
関数部
Private Sub txtTEST_Change()
strTEST = txtTEST.Text
lstTEST.Requery
End Sub
期待する動作は、テキストボックスに1と入力したらリストボックスに「あああ」が表示される。という動作なのですが、テキストボックスに値を入力すると、「パラメータの入力」ダイアログが表示され、strTESTの値を入力するよう促されてしまいます。
恐らく、txtTEST_Change()関数でstrTESTにはテキストボックスの入力値が入っていますが、手順４の条件句のところで、strTESTの値が取れてないのだと思います。この条件句のところでVBAの変数を参照するにはどのように記述すればよいのでしょうか？
尚、上記のやり方はAccess2003及び2007でテストしてダメでしたが、Access97では動作するようなのです。
他の手法で同様の動作を実現する方法はいくつか思いつくのですが、Accessのバージョンアップによる作業を減らすため、上記のような方法によって、この機能を実現させたいと考えています。
よろしくお願いします。
Access初心者です。説明不足なところなどありましたら、ご指摘ください。
フォームにテキストボックスとリストボックスを配置し、テキストボックスに入力した値をVBAで加工して、その加工された値をキーにDBを参照して、リストボックスに表示したいと考えています。
テストの手順を簡単に説明します（この問題はデータの加工自体にはないと考えているので、入力された値をそのままキーにして値を取得しています。）
１．テーブル作成（テーブル名：tblTEST）
テーブル構造
ID DATA
1 あああ
2 いいい
3 ううう
２．フォーム作成（フォーム名：frmTSET）
３．frmTEST内にテキストボックス作成（オブジェクト名：txtTEST）
４．frmTEST内にリストボックス作成（オブジェクト名：lstTEST）
RowSourceプロパティの値に
SELECT [tblTEST].[DATA] FROM tblTEST WHERE ID=[strTEST];
５．VBAでtxtTESTのChangeイベントに以下のコードを記述
宣言部
Dim strTEST As String
関数部
Private Sub txtTEST_Change()
strTEST = txtTEST.Text
lstTEST.Requery
End Sub
期待する動作は、テキストボックスに1と入力したらリストボックスに「あああ」が表示される。という動作なのですが、テキストボックスに値を入力すると、「パラメータの入力」ダイアログが表示され、strTESTの値を入力するよう促されてしまいます。
恐らく、txtTEST_Change()関数でstrTESTにはテキストボックスの入力値が入っていますが、手順４の条件句のところで、strTESTの値が取れてないのだと思います。この条件句のところでVBAの変数を参照するにはどのように記述すればよいのでしょうか？
尚、上記のやり方はAccess2003及び2007でテストしてダメでしたが、Access97では動作するようなのです。
他の手法で同様の動作を実現する方法はいくつか思いつくのですが、Accessのバージョンアップによる作業を減らすため、上記のような方法によって、この機能を実現させたいと考えています。
よろしくお願いします。
