個人情報が入力されているフォームに五十音別のトグルボタンを作成して氏名のふりがなを元に抽出を考えていますが、たくさんの式を記述するのが大変なので簡単にまとめる方法を考えています。
CHOOSE関数を使おうと思ったのですが、うまくいきません。
よい方法があれば教えて下さい。

A 回答 (1件)

こんにちは。

maruru01です。

>たくさんの式
というのがよくわかりませんが、トグルボタンを作る場合の方法を。
ふりがなはひらがなとします。

まず、トグルボタンはフレームでグループ化しておきます。
そして、選択したトグルの値(五十音なら1~50)をひらがなに変換する関数を作ります。

Private Function GetHiragana(tglValue As Long) As String

  Select Case tglValue
    Case 1
      GetHiragana = "あ"
        :
        :
  End Select

End Function

そして、例えば抽出ボタンのクリックイベントで、

Private Sub 抽出_Click()

  Dim WhereCond As String  '抽出条件

  WhereCond = "ふりがな LIKE '" & GetHiragana(フレーム1.Value) "*'"

  (以下略)

End Sub

とします。
この抽出条件を使って、レコードセットを作成するなり、SQLでテーブルを作成するなり、サブフォームで表示するなりして下さい。
では。
    • good
    • 0
この回答へのお礼

とても素晴らしい回答をありがとうございました。
こんなに簡単に出来る方法があるなんて思いつきもしませんでした。

お礼日時:2002/03/01 10:35

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ