• 締切済み

Access フリガナ変換について

NotFound404の回答

回答No.2

直接的な回答ではないのですが テーブルデザインで「ふりがな」設定するのはダメなのでしょうか? Excelのワークシート関数Phoneticなら漢字変換時のかなをシート内に記憶しているのですが GetPhonetic関数だと最も一般的?(IMEの学習に依存)な読み仮名が得られます。 たとえば人名で 一(ハジメ) → イチ 一二三(カズフミ) → ヒフミ 漢字変換時の入力(かな)を返すわけではありません。

naoto0216
質問者

お礼

NotFound404さま ご回答ありがとうございます。 テーブルの「ふりがな」は今まで使ったことないのですが、 検証してみたいと思います。

関連するQ&A

  • Access 自動ふりがな入力について

    お世話になります。 Access2010 フォーム上に「氏名」及び「フリガナ」のテキストボックスを設置しました。 「氏名」のふりがなプロパティで「フリガナ」を指定し、ふりがなの文字種は 半角カタカナとしてます。 「氏名」を入力すると自動的に「フリガナ」にふりがなが入力されます。 ここまではよいのですが、いったん「フリガナ」テキストボックスを選択し 再度「氏名」に入力すると文字変換できなくなってしまいます。 例えば氏名に「山田 太郎」と入力したいのに変換されず半角カタカナで 「ヤマダ タロウ」となります。要するに、「フリガナ」のIME入力モードが そのまま引き継がれている感じです。 「氏名」に限らず他のテキストボックスでも半角カタカナ入力になって しまいます。 いったんこうなってしまうとフォームを開きなおしてもダメで、Access自体を 開きなおすと変換できるようになります。 結果的には、氏名のプロパティにある「IME入力モード保持」を、"いいえ"から "はい"に変えたところ、変換できるようになりました。 当該フォームは実際にはテキストボックスが沢山あり、さらにサブフォームも 沢山あります(サブフォームにもテキストボックスが沢山。。) これらすべてのプロパティで「IME入力モード保持」を"はい"に変更しなけ ればならないのでしょうか。 それともプロパティで自動入力させず、VBAでやった方がよいのでしょうか。 VBAでのやり方は分かるのですが、せっかく自動でふりがな入力できる プロパティがあるので使ってみたらうまくいかない・・って感じです。 ご教示の程、宜しくお願い致します。

  • Access2003の振り仮名の機能について

    フィールド名が 会社名 テキスト型 フリガナ テキスト型 があります。会社名を入力した時にフリガナを振らせる設定をしました。 その時にフリガナにはカブシキカイシャとかユウゲンカイシャとかのフリガナを付けたくないのですが設定方法ありますか? ご存知の方教えてください。よろしくお願い致します。

  • ふりがなをカタカナに変換出来ませんか?

    作成してあったExcelを、あるソフトへエクスポートしたいのですが ソフトでは「フリガナ」を要求しており、作成してあったデータは「ふりがな」でした。 このふりがなをカタカナに変換させたいのですが、超〃簡単に手取り足取り状態でご教授下さいませ。 尚、Excelは1週間程度しか動かしてありません。このサイト中で下記を貼り付ければとか言われても何処に貼り付けたら良いか? Function KtoH(ByVal trg As Range) As String KtoH = StrConv(trg.Value, vbWide) KtoH = StrConv(KtoH, vbHiragana) End Function

  • Accessでシステムを作ってます

    AccessとVBAでシステムを作成してます。初心者です。 検索結果を非連結のテキストボックスに表示させる方法を教えてください。 条件(1) フォームのレコードはどのテーブルとも紐づいていない 条件(2) 2つのテーブルから1つの検索ボタンで検索できるようにしたい テーブルA;案件マスタ テーブルB:リソースマスタ ・検索テキストボックス(1つ) ・検索ボタン(1つ) 条件(3) 案件ID、リソースIDはともに数値型です。 検索結果表示テキストボックス(非連結) ・案件IDテキストボックス:案件マスタより検索した案件IDを表示する ・リソースIDテキストボックス:リソースマスタより検索したリソースIDを表示する 下記のように考えていますが ・非連結のテキストボックスに検索結果を表示させる ・1つの検索ボタンで2つのテーブルから検索ができるようにする 方法がわかりません。 どのようなコードを追記したらいいのか教えていただけないでしょうか。 よろしくお願いいたします。 Private Sub btn検索ID_Click() Dim strFilter As String Me![案件マスタ].SetFocus If Me!案件IDテキスト = Me![案件マスタ]![案件ID] Then strFilter = " AND 案件ID= " & Me!案件IDテキスト End If If Me!テキストリソースID = Me![リソースマスタ]![リソースID] Then strFilter = strFilter & " AND リソースID= " & Me!リソースIDテキスト End If 'Forms!ID検索.Filter = Mid(strFilter, 6) Forms!ID検索.FilterOn = True Me.案件IDテキストボックス= Null Me.リソースIDテキストボックス = Null

  • PHONETIC関数で、漢字のふり仮名の変換はできない。

    PHONETIC関数で、漢字のふり仮名の変換はできない。 下記の操作で、漢字のふり仮名の変換はできない。変換方法がありますか? ご存知の方は教えて頂けないでしょうか? 1. 秀丸で商品名を入力する。 2. 入力された商品名をAに張り付きとします。 3. BにPHONETIC関数を入力します。 よろしくお願い致します。

  • ACCESS 2003の条件分岐について教えて頂けないでしょうか?

    access2003を勉強中です。 先週1週間かけても解決できないことがありまして、どなたか教えて頂けないでしょうか。 内容は 会社で使用する勤務表に関してです。 ユーザー名(コンボボックス)、日付(カレンダーコントロール)、 出社時間(テキストボックス)、退社時間(テキストボックス 、作業内容(テキストボックス)をユーザーが入力し「登録」 コマンドボタンのイベントで入力した内容を、勤務表テーブルに 反映させたいのです。 その時に同じユーザーの同じ日付を2件入力させないようにしたいので フォームに入力された内容からユーザー名と日付によって、 同じ内容が勤務表テーブルに無ければinsert、有ればupdateと 条件分岐をしたいのです。 しかし、 Public Sub kinmu() Dim mmrs As ADODB.Recordset Dim mmcn As ADODB.Connection Set mmrs = New ADODB.Recordset Set mmcn = Application.CurrentProject.Connection mmrs.Open "勤務表", mmcn, adOpenKeyset, adLockOptimistic mmrs.MoveFirst If DCount("[ユーザー名] & [日]", "[勤務表]", "[ユーザー名]=[Forms]![フォーム1]![コンボ56]" & _ "and[日]=[Forms]![フォーム1]![テキスト88]") = 0 Then mmcn.Execute "INSERT INTO 勤務表 ([ユーザー名],[日],[出社],[退社],[作業内容]) VALUES ([Forms]![フォーム1]![コンボ56],[Forms]![フォーム1]![テキスト88],[Forms]![フォーム1]![テキスト8],[Forms]![フォーム1]![テキスト17],[Forms]![フォーム1]![テキスト28]);" Else mmcn.Execute "UPDATE 勤務表 SET (ユーザー名=[Forms]![フォーム1]![コンボ56],日=[Forms]![フォーム1]![テキスト88],出社=[Forms]![フォーム1]![テキスト8],退社=[Forms]![フォーム1]![テキスト17],作業内容=[Forms]![フォーム1]![テキスト28] where [ユーザー名]=[Forms]![フォーム1]![コンボ56] and [日]=[Forms]![フォーム1]![テキスト88]);" End If として、「登録」コマンドボタンのイベントとしてCallキーワードによって呼び出そうとしているのですが、うまくいきません。 最初はDCount関数で件数を求め、それを変数に入れる。 IIF関数による分岐。などいろいろ試してはいたのですが、、、。 どなたか教えて下さい。よろしくお願いします。

  • エクセルのvbaでのふりがなについて…

    年賀状のために住所録を作成しているのですが、 住所から簡単に郵便番号を表示できるようにしたいと考えています。 いろいろ調べた結果、アドインのウィザードを使えばできるのは わかっているのですが…それとは別の方法で 住所を7桁の郵便番号で打ち込み、それを辞書ツールで変換して住所を作り、 その部分の振り仮名をphonetic関数で表示すれば郵便番号が 出力できることがわかりました。 しかし、これを今度vbaのユーザーフォームで入力した場合… 住所の部分をユーザーフォームのテキストボックスで入力し、 その住所の振り仮名を隣のセルに出力させようと思ったのですが、 textbox1 = cell(1,2).value の形で持ってくるきた上でエクセルのA1セルに =phonetic(A2) という表示をつけても振り仮名情報までは維持されないようで 振り仮名が表示できなくなってしまいました。 VBAのテキストボックスの中の文字の振り仮名情報などを エクセルのセルなどに転用できるような方法などあるのでしょうか? 説明下手ですみません…わかりにくいと書いていただければ また補足を付け足していこうと思うので… なにとぞ回答のほどよろしくお願いします。

  • EXCELのVBAでフリガナ入力

    フォームのテキストボックスで「text名前」に漢字で入力すると「textフリガナ」に自動的にフリガナが入力されるようにしたいと思っています。 phonetic関数を使って、セルを介在させて試してみましたが、「text名前」の値をセルに格納した時点でフリガナ情報が落ちてしまうらしく、カタカナのフリガナが返ってきません。 なにか良い方法があるのでしょうか?ご教示ねがいます。

  • ふりがなにはなぜカタカナが?

    ふりがなについて質問です。 何かの登録をするときや会員になるときなど、個人情報を入力する ことがありますが、名前のふりがなの入力フォームに「ふりがな」と 「フリガナ」の2種類が混在するのはなぜなのでしょうか。なかでも カタカナで書かせる必要性がよくわかりません。 特にネット上で個人情報を入力する際には、カタカナだと入力モードを 切り替えるかシフト変換しないといけないため、少しではありますが 手間がかかります。 なぜカタカナの「フリガナ」が存在するのでしょうか。

  • ACCESSでコンボボックスにSQLで抽出した値を表示したい

    いつもお世話になっております。 ACCESS初心者です。 テキストボックスに入力したフリガナから、あいまい検索させ抽出した ものをコンボボックスに表示させたいのですが、うまくいきません。。 (コンボボックスに何も表示されないです) 過去の質問やネット検索でも調べたのですがイマイチ分かりませんでした。 どなたか詳しい方、ご教示いただけると嬉しいです。 OS:windowXP ACCESS:Ver2003 Private Sub テキストボックス名_Afterupdate() Me.コンボボックス名.RowSource = "SELECT フィールド名 FROM テーブル名 WHERE フリガナ LIKE '" & Me!テキストボックス名 & "*';" End Sub どうぞよろしくお願いいたします。