Q&A
ご回答有難うございます、やってみたのですが反映されずです、、
一つのレコード内で、同じ情報であれば入力せずにボタンを押すとコピーして表示されるようにしたいのですが、初心者過ぎてわかりません。
例：
契約者住所 → 送付先住所（契約者住所と同じ場合ボタンを押すとそのまま表示）
000-1234 000-1234
北海道札幌市 北海道札幌市
宜しくお願い致します。
回答2件
0
コピーするのではなくて、同じかどうかの情報を持たせた方が良いかと思います。
そうでないと、コピー後にコピー元を変更した場合まで考慮が必要になりますので。
投稿2020/03/03 01:56
総合スコア25327
0
ベストアンサー
テーブルと連結したフォーム上で入力作業をしているのだという前提で、回答します。
フォーム上にコマンドボタンを配置して、クリック時のイベントプロシージャを下記のように記述します。
コマンドボタンの名前は btnAddressCopy としてください。
vba
1Private Sub btnAddressCopy_Click() 2 If Me.契約者住所.Value <> "" Then 3 Me.送付先住所.Value = Me.契約者住所.Value 4 End If 5End Sub
投稿2020/03/03 01:27
総合スコア34075
ボタンをクリックしたときにエラーはでませんか。
でるならエラーメッセージを教えてください。
何の反応もないなら、下記のようにコードを変更して、クリックしたときに「クリックしました」というメッセージが表示されますか。
Private Sub btnAddressCopy_Click()
Msgbox "クリックしました。"
If Me.契約者住所.Value <> "" Then
Me.送付先住所.Value = Me.契約者住所.Value
End If
End Sub
何も表示されません、
すみません、作り直したらクリックしましたとでました！
ただ反映されずです、
できました！有難うございます！！
何度も申し訳ないのですが、例えば住所フィールドがいくつか区切られていて、契約者郵便番号、契約者都道府県、住所などの場合はどのようにしたらよろしいでしょうか、
代入するコードを追加するだけです。
Private Sub btnAddressCopy_Click()
If Me.契約者住所.Value <> "" Then
Me.送付先郵便番号.Value = Me.契約者郵便番号.Value
Me.送付先都道府県.Value = Me.契約者都道府県.Value
Me.送付先住所.Value = Me.契約者住所.Value
End If
End Sub
ありがとうございます！
一点確認なのですが、フォーム上ボタンを押して、空欄になっているテキストボックスを押すと反映されるのですが、こちらは一発で反映されないものなのでしょうか、現状郵便番号、都道府県、市区町村などのテキストボックスを押さないと反映されません、
通常はすぐ反映するはずなんですが、
とりあえず最後に
Me.Repaint
を追加してみてください。
Private Sub btnAddressCopy_Click()
If Me.契約者住所.Value <> "" Then
Me.送付先郵便番号.Value = Me.契約者郵便番号.Value
Me.送付先都道府県.Value = Me.契約者都道府県.Value
Me.送付先住所.Value = Me.契約者住所.Value
End If
Me.Repaint
End Sub
変わりなしです、ボタンを押したあとにビューをきりかえたりすると一気に反映されるんですけど、やはり1つずつ押さないと駄目です、
Me.Recalc
あるいは
Me.Refresh
も試してみてください。
ちなみにフォームは単票フォームですか、帳票フォームですか、分割フォームですか。
かしこまりました！
単票です！
Me.Recalc
でできました！！
ありがとうございます！！！
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/03/03 03:17