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

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

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

No.1 ベストアンサー 回答者： venzou 回答日時： 2007/10/22 12:54

予めテーブル設定でふりがなのフィールドを

設定しなければなりません。

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


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

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

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

この回答へのお礼

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

お礼日時：2007/11/06 06:41

No.2 回答者： imogasi 回答日時： 2007/10/22 14:18

●既に漢字氏名が入力済みで、改めてフリガナを振りたい場合

エクセルには、山田　義男だけがある場合（氏名欄は出来上がっている場合）
=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

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

この回答へのお礼

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

お礼日時：2007/11/06 06:43