Ｐａｇｅ 699 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼コンボボックスでの絞り込み Haru 04/7/15(木) 14:15 ┗Re:コンボボックスでの絞り込み クロ 04/7/15(木) 14:26 ┗Re:コンボボックスでの絞り込み Haru 04/7/15(木) 14:44 ┗Re:コンボボックスでの絞り込み クロ 04/7/15(木) 15:15 ┗Re:コンボボックスでの絞り込み Haru 04/7/15(木) 15:30 ─────────────────────────────────────── ■題名 ： コンボボックスでの絞り込み ■名前 ： Haru ■日付 ： 04/7/15(木) 14:15 -------------------------------------------------------------------------
| コンボボックスで絞込み選択をし、データをサブフォームに 表示した後、[データクリア]コマンドボタンでデータをクリア Me![小科目]=Null Me![補助科目]=Null して、再度コンボボックスで選択しようとすると、一度目と同じ ような選択ができません。 一度目は、コンボ【小科目】で選択すると選択した小科目 C1の 【補助科目】001〜004 が全てサブフォームに表示されましたが、 データクリアボタンをおした後は、【小科目】で選択しても何も 表示されず、【補助科目】で001を選択すると、そこで初めて "C1の001だけ"がサブフォームに表示されます。 ちなみに【補助科目】の更新後処理には下記コードを記述しています。 どうすれば一度目と同じように表示できるのかがわかりません・・ どなたかご教授お願い致します。 Access超初心者なので説明がうまく出来ません。 何かありましたらご指摘くださいm(_ _)m 宜しくお願いいたします。 Private Sub 補助科目_AfterUpdate() Dim key(1 To 2) As String Dim criteria As String Dim crlen As String Dim i As Integer If IsNull(Me!小科目) Then key(1) = "" Else key(1) = "小科目 = '" & Me!小科目 & "'" End If If IsNull(Me!補助科目) Then key(2) = "" Else key(2) = "補助科目 = '" & Me!補助科目 & "'" End If For i = 1 To 2 If key(i) = "" Then ' Else criteria = criteria & key(i) & " AND " End If Next i If criteria = "" Then Exit Sub End If crlen = Len(criteria) criteria = Left(criteria, crlen - 5) Me!科目毎明細表示サブフォーム.Form.Filter = criteria Me!科目毎明細表示サブフォーム.Form.FilterOn = True End Sub |
| >Me![小科目]=Null Me.小科目.Requery >Me![補助科目]=Null Me.補助科目.Requery のようにしてみては？ |
| ▼クロ さん： >>Me![小科目]=Null >Me.小科目.Requery >>Me![補助科目]=Null >Me.補助科目.Requery > >のようにしてみては？ Me.小科目.Requery Me.補助科目.Requery にしてみましたが、やはり小科目でC1を選択した時点では 何も表示されなくて、補助科目001を選択をすると、 C1の001だけが表示されます。。 |
| 勘違いしてました。 [データクリア]コマンドボタンのコード Me![小科目]=Null Me![補助科目]=Null Me!科目毎明細表示サブフォーム.Form.Filter ="" Me!科目毎明細表示サブフォーム.Form.FilterOn = True してみてはどうでしょうか？ |
| ▼クロ さん： >勘違いしてました。 >[データクリア]コマンドボタンのコード > >Me![小科目]=Null >Me![補助科目]=Null >Me!科目毎明細表示サブフォーム.Form.Filter ="" >Me!科目毎明細表示サブフォーム.Form.FilterOn = True > >してみてはどうでしょうか？ できました☆ ありがとうございます。 またなにかありましたら宜しくお願い致します(*^^*) |