| |
お返事ありがとうございます。
確認が遅れてすみません。
> 検索１,検索２はどんな風に実現されているのですか。
現在しようしている、５０音検索はボタンで表記しており、
検索１ は
Private Sub fra検索1_AfterUpdate()
Dim strCTR As String
Me!fra検索2.Value = 0
Me!fra検索2.Visible = True
Select Case fra検索1
Case 1: strCTR = "[ア−オ]"
Case 2: strCTR = "[カ−ゴ]"
Case 3: strCTR = "[サ−ゾ]"
Case 4: strCTR = "[タ−ド]"
Case 5: strCTR = "[ナ−ノ]"
Case 6: strCTR = "[ハ−ボ]"
Case 7: strCTR = "[マ−モ]"
Case 8: strCTR = "[ヤ−ヨ]"
Case 9: strCTR = "[ラ−ロ]"
Case 10: strCTR = "[ワ]"
Case Elese
Me.FilterOn = False
Me!fra検索2.Visible = True
Me!fra検索2.Value = 0
Me!opt22.Visible = True: Me!opt24.Visible = True
Exit Sub
End Select
If Me!fra検索1.Value = 10 Then
Me!fra検索2.Visible = False
ElseIf Me!fra検索1.Value = 8 Then
Me!opt22.Visible = False: Me!opt24.Visible = False
Else
Me!opt22.Visible = True: Me!opt24.Visible = True
End If
Me.Filter = "フリガナ Like'" & strCTR & "*'"
Me.FilterOn = True
End Sub
検索２は
Private Sub fra検索2_AfterUpdate()
Dim Siin, Boin, kanaCode As Long
Dim StrCriteria As String
If Me!fra検索1.Value = 0 Or Me!fra検索1.Value = 55 Then
Me!fra検索2 = 0
Exit Sub
End If
Boin = Me!fra検索1.Value
Siin = Me!fra検索2.Value
kanaCode = 176 + (Boin - 1) * 5 + Siin
kanaCode = kanaCode + (kanaCode = 214) 'ユ=213
kanaCode = kanaCode + (kanaCode = 216) * 2 'ヨ=214
kanaCode = kanaCode + (kanaCode > 216) * 2 'ラ=217
StrCriteria = Chr$(kanaCode)
Me.Filter = "Left([フリガナ],1)Like'" & StrCriteria & "'"
Me.FilterOn = True
End Sub
となっております。
アクセスに関して初心者ですので、これも他のHPより
紹介されていた物を利用したものです
http://www.kyoutoku.co.jp/msaccess.htm
他にいい方法があれば・・・とも考えているのですが・・・
これはさておき、今やりたいのはコンボボックスです
ドロップダウンボタンを押したら 分類がでてきて一つを選ぶ形式ですよね？
ﾃｷｽﾄﾎﾞｯｸｽの横に▼がついたような形のやつです（＾＾；
どうでしょうか・・・？
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
