こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

テキストボックス同士のコピー

お願いします。
 ユーザーフォーム内のCommandButton2をクリックして
MsgBoxのvbYesのときに
   既支払.Value = 支払合計.Value
既収入.Value = 収入合計.Value
 を、実施したいのですが、下の構文では、

既支払.Value = 支払合計.Value

 だけが実施されます。
再度、 CommandButton2をクリックから実施すると

   既収入.Value = 収入合計.Value

 が、実施されます。
これを、1度の操作で

   既支払.Value = 支払合計.Value
   既収入.Value = 収入合計.Value

 の、両方を同時に実施させる方法を教えてください。

Private Sub CommandButton2_Click()
Dim 更新 As Integer
更新 = MsgBox("更新しますか ", vbYesNo)
If 更新 = vbYes Then
既支払.Value = 支払合計.Value
既収入.Value = 収入合計.Value
Else
End If
End Sub

投稿日時 - 2009-06-02 10:31:52

QNo.5010321

困ってます

質問者が選んだベストアンサー

Private Sub CommandButton2_Click()
Dim 更新 As Integer
更新 = MsgBox("更新しますか ", vbYesNo)
If 更新 = vbYes Then
既支払.Value = 支払合計.Value
既収入.Value = 収入合計.Value
Else
End If
End Sub
の構文で両方セットされるはずです。この部分の構文はあってます。
他に何か別処理があるのではないですか?
Dim 更新 As Integer
更新 = MsgBox("更新しますか ", vbYesNo)
If 更新 = vbYes Then
既支払.Value = 888
既収入.Value = 999
Else
End If
End Sub
だと両方セットされますよね。となると
収入合計.Valueの値を変えるロジックがあるのでは?

投稿日時 - 2009-06-02 19:10:34

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

テキストボックス 既支払,既収入 の値が変わったときに何かの処理をしていませんか?
既支払_Change などの手続きがないかどうか確認してみてください。

投稿日時 - 2009-06-02 23:06:39

お礼

nag0720さん お礼が遅くなりすみません。
ありがとうございました。
既支払_Changeのご指摘通りでした。
解決しました

投稿日時 - 2009-06-05 07:34:27

あなたにオススメの質問