Microsoft Access ClubAccess超初心者対象ForumAccess初級者対象ForumAccess初・中級者対象ForumAccess VBA Tips ForumDAO、ADO、SQL Forum

     

No35111.表形式フォームでの抽出について

タイトル表形式フォームでの抽出について
記事No: 35111
投稿日: 2005/08/01(Mon) 16:47
投稿者: たかし
OS:XP
Access Version:2000
連結の表形式フォームがあります。そのフォーム上に
フィールド名を入力するコンボボックス「抽出条件1」と
検索項目名を入力する「抽出条件2」があります。
両方のコンボボックスを入力した後「抽出条件2」上でダブルクリックをしたら
その条件のデータが抽出されるようにしたいのですが、抽出されません
(一番下の空白レコードだけになってしまいます)。
Private Sub 抽出条件2_DblClick(Cancel As Integer)
Me.Filter = "'" & Me!抽出条件1 & "' = '" & Me!抽出条件2 & "'"
Me.FilterOn = True
End Sub
何処が間違っているんでしょうか?どなたかお願いします。

タイトルRe: 表形式フォームでの抽出について
記事No: 35112
投稿日: 2005/08/01(Mon) 17:03
投稿者: 銀の匙
こんにちは。
> Private Sub 抽出条件2_DblClick(Cancel As Integer)
Me.Filter = Me!抽出条件1 & " = '" & Me!抽出条件2 & "'"
> Me.FilterOn = True
> End Sub
では、どうですか?

タイトルRe: 表形式フォームでの抽出について
記事No: 35113
投稿日: 2005/08/01(Mon) 17:03
投稿者: Benkei
> 何処が間違っているんでしょうか?

デバッグ してみましょに。

> Private Sub 抽出条件2_DblClick(Cancel As Integer)
> Me.Filter = "'" & Me!抽出条件1 & "' = '" & Me!抽出条件2 & "'"
Debug.Print Me.Filter
Me.Filter = Me!抽出条件1 & " = '" & Me!抽出条件2 & "'"
Debug.Print Me.Filter
> Me.FilterOn = True
> End Sub

タイトルRe^2: 表形式フォームでの抽出について
記事No: 35114
投稿日: 2005/08/01(Mon) 17:18
投稿者: たかし
銀の匙さん、Benkei さん、いつもすみません。
少し理屈を飲み込むのに時間がかかりそうですが上手く出来ました、ありがとうございました。。


このAccessフォーラム過去ログ集は、Microsoft Access Club が運営しています


 

ページの先頭へ 前ページへ戻る