データーの参照

質問

見積書作成システムを作るうえで顧客マスタを作成しているのです
が、
「会社名入力」フィールドに会社名を入力すると、「フリガナ」フィー
ルドにはオプション設定のフリガナ入力を設定しましたのでフリガナが
入力されます。

もうひとつの「正式社名」フィールドにも「会社名入力」フィールドに入力した会社名が
反映されるようにしたいのですがどのようにすれば宜しいのでしょうか。ルックアップ？
など試したのですがうまくいきませんでした。宜しくお願致します。

回答No.2

chieffish

プルダウンの場合、別に作ったボタンを押す必要があります。
ラジオボタンでしたら既にボタンがありますので、そのままスクリプトのボタンとして使えます。
スクリプトとしては
法人形態のボタンの例えば株式会社の場合
・位置が選択されていなかったら、選択を促す。
・選択されていたらフィールド設定で形態のフィールドを「株式会社」にする。
・正式社名フィールドを同じくフィールド設定で位置が前なら「形態」＆「正式社名」
　後なら「正式社名」＆「形態」にする。

補足

風邪をこじらせ肺炎でダウンし、その影響で肋骨等骨折してしまった為確認が遅くなっておりました。申し訳ありません。この期間何も手をつけられなかった為、あらためて修正したいと思います。また何かありましたら宜しくお願致します。

回答No.1

noname#140971

＜顧客マスター＞
ID___会社名_________フリガナ_______________________正式社名
1____新日本商事___シンニホンショウジ________新日本商事(株)

Option Compare Database
Option Explicit

Private Sub 会社名_AfterUpdate()
　　Me.正式社名 = Me.会社名
End Sub

Private Sub 正式社名_AfterUpdate()
　　If Len(Me.正式社名 & "") = 0 Then
　　　　Me.正式社名 = Me.会社名
　　End If
End Sub

質問のケースでは入力支援システムは利用出来ません。
ここは、単純にコピーするだけです。
さて、コピー後に[正式社名]の編集でミスを犯すこともあります。
その場合、[正式社名]をクリアしたら再コピーされる仕掛けも必要かと思います。

＜蛇足＞

＜顧客マスター＞
ID___社名_______________フリガナ_______________________________________略称
1____新日本商事(株)___シンニホンショウジカブシキガイシャ___新日本商事

通常は、正式な[社名]を入力し[略称]にコピーして不要部分を削るかと思います。

お礼

風邪をこじらせ肺炎でダウンしておりました。
せっかくご回答頂きましたのに確認が遅くなり申し訳ありません。

補足

早速のご回答有難うございます。

利用ソフトが漏れていました。ファイルメーカーPro8.5です。
最終的にやりたい事は、

社名を入力し、そのフリガナは自動で反映。法人形態（株式、有限）
と位置（前株、後株など）はプルダウンから選択。

正式社名の項目には、上記社名入力にて入力した名称に会社の属性
を付加して反映。

例）「山田電機」と入力
　　　⇒フリガナ欄に「ヤマダデンキ」、正式社名欄に「山田電機」
　　　　と反映される。法人形態を「株式会社」位置を「後」を選択
　　　　することで、正式社名欄には「山田電機株式会社」と反映

以上のような事を行いたいと思います。以前ちょっと触った見積システムで実現していたので同じような事をやりたいと思っています。
宜しくお願致します。