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 が運営しています

|