アクセス2000：クエリの組込み関数で「氏名」を「ふりがな」にしたい

質問

お世話になります。
アクセス２０００での質問です。

◆クエリの組込み関数StrConv（でいいでしょうか？）を使って、
漢字の「氏名」→ひらがな（もしくはカタカナ）の「ふりがな」
にしたい
よろしく御指導お願いいたします。

回答No.1

venzou · ベストアンサー

予めテーブル設定でふりがなのフィールドを
設定しなければなりません。

http://www.nbcom.co.jp/PC-Support/FAQ/acc/ht/acc072002ht006.shtml

残念ながら、既に漢字で入力されている名前に、
後からふりがなを付ける事は出来ません。

漢字の読み（特に名前の読み方）は複数の選択肢があり、
コンピュータが自動で判断する仕組みを作ることは難しい事です。

Excelの場合もそうですが、漢字を入力する時の変換前のひらがなを、
ふりがなとして保存する仕組みです。

お礼

お礼が遅くなりました。ありがとうございました。

回答No.2

imogasi

●既に漢字氏名が入力済みで、改めてフリガナを振りたい場合
エクセルには、山田　義男だけがある場合（氏名欄は出来上がっている場合）
=PHONETIC(A1)で
山田　義男 ヤマダ　ヨシオ
のように使えます。カナだけ取り出せます。
ＶＢＡでGetPhoneticメソッドもあります。
--
アクセスにはフリガナを振るアクセス関数が無いようです。
一旦エクセルに移して、また戻すなどのことが話題になってます。
ーー
ＶＢＡでやると
Sub ADO002()

Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
Set ExcelApp = CreateObject("Excel.Application")
rs.Open "社員2", cn
rs.MoveFirst
Do Until rs.EOF
kn = Nz(rs.Fields(1))
MsgBox kn
MsgBox ExcelApp.GetPhonetic(kn)
rs.MoveNext
Loop

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
で出来きました。上記コードに、新しいフィールドにセットして更新するコードを勉強して、追加してください。
ーー
●新しく名前を入れて、フリガナフィールドに、カナを打ち込むのでなく、フリガナを入れる場合。
http://www.relief.jp/itnote/archives/000178.php

いずれも、出てきた振り仮名が、不適当な場合はありますので要チェックです。

お礼

お礼が遅くなりました。ありがとうございました。
ご指導内容、むずかしくちょっとできませんでした。
せっかくのご指導ですのに、すみません。
ありがとうございました。