次の方法で共有

アクセスの郵便番号と住所入力支援について教えてください。

Anonymous
2025-01-16T04:10:26+00:00

画面を一度にクリアするためのマクロに必要なため、フォームのフィールド(郵便番号と住所)のプロパティのその他に[名前]を付けています。郵便番号は「txbjuusho」、住所は「txbyuubin」です。これが関係してフォームでの住所入力支援が機能しません。フィールド名を元の漢字に戻すと機能するのですが、そうするとクリアができなくなります。「txbjuusho」「txbyuubin」のままで住所入力支援を機能させる方法はないのでしょうか? Office 365のインストール前までは機能していました。

〔現在のマクロは下記の通りです〕

Private Sub コマンド325_Click()

'確認メッセージ出力

    Response = MsgBox("画面をクリアしますか?", vbYesNo + vbQuestion + vbDefaultButton1, "〇〇台帳")

    If Response <> vbYes Then

        DoCmd.CancelEvent

        SendKeys "{ESC}", False

        Exit Sub

    End If

    'クリア処理を呼び出す

    Call ClearObj

End Sub

Public Sub ClearObj()

    Dim myObj   As Object

 'コントロールClearループ

    For Each myObj In Me

    'テキストボックス(Nullをセット)

        If myObj.Name Like "txb*" Then

          myObj.Value = Null

        End If

    'テキストボックス(数値型)(Nullをセット)

        If myObj.Name Like "Num*" _

        Then

            myObj.Value = Null

        End If

    'テキストボックス(日付型)(Nullをセット)

        If myObj.Name Like "dt*" _

        Then

            myObj.Value = Null

        End If

     Next

End Sub

(注)Falseが「偽」に、Nullが「ヌル」に変換されてるかもしれません。

Microsoft 365 と Office | アクセス | 家庭向け | Windows

ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント コメントはありません

質問作成者が受け入れた回答

Anonymous
2025-01-16T04:56:27+00:00

> フォームのフィールド(郵便番号と住所)のプロパティのその他に[名前]を付けています。> 郵便番号は「txbjuusho*」、住所は「txbyuubin」です。*

> フィールド名を元の漢字に戻すと機能する
・あるフォーム上にテキストボックス[郵便番号]とテキストボックス[住所]がある。

・テキストボックス[郵便番号]に任意の郵便番号を入力すると、
 その郵便番号に該当する住所がテキストボックス[住所]に
 自動入力されるように設定してある。
 (恐らく住所入力支援ウィザードを使用したものと思われる)

・上記の状態から、テキストボックス[郵便番号]の名前を[txbyuubin]に、
 テキストボックス[住所]の名前を[txbjuusho]に変更した。

という状況である、ということだとして、

> これが関係してフォームでの住所入力支援が機能しません。

それぞれのテキストボックスの[住所入力支援]プロパティの設定値を
次のように変更して下さい。

[txbyuubin](変更前の名前は[郵便番号])の[住所入力支援]プロパティ

txbjuusho


[txbjuusho](変更前の名前は[住所])の[住所入力支援]プロパティ

txbyuubin;;;


この回答は役に立ちましたか?

1 人がこの回答が役に立ったと思いました。
0 件のコメント コメントはありません

0 件の追加の回答

並べ替え方法: 最も役に立つ