OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

ACCESSでの抽出条件

  • すぐに回答を!
  • 質問No.226759
  • 閲覧数205
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 44% (39/88)

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

質問者が選んだベストアンサー

  • 回答No.1
レベル14

ベストアンサー率 51% (1179/2272)

こんにちは。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でテーブルを作成するなり、サブフォームで表示するなりして下さい。
では。
お礼コメント
t-tomo

お礼率 44% (39/88)

とても素晴らしい回答をありがとうございました。
こんなに簡単に出来る方法があるなんて思いつきもしませんでした。
投稿日時 - 2002-03-01 10:35:48
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このQ&Aにこう思った!同じようなことあった!感想や体験を書こう
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ