個人事業主の方必見!確定申告のお悩み解決

アクセス2002のフォームで文字を入力(選択)させてボタンを押すと
別の画面でその入力(選択)した文字が表示させるイベントプロシージャをつくりたいのですがPub sub~End sub内にどういう記述が必要なのでしょうか?

A 回答 (3件)

Private Sub ボタン名_Click()


Dim strForm As String
Dim ctl As Control

strForm = "別フォーム"

DoCmd.OpenForm strForm 'フォームが開いている場合はこの行削除
Set ctl = Forms(strForm).Controls("別フォームのコントロール")
With ctl
Select Case .ControlType
Case acTextBox, acComboBox
.Value = Me.テキスト
Case acLabel
.Caption = Me.テキスト
Case Else
End Select
End With
End Sub
    • good
    • 0
この回答へのお礼

ありがとうございました。

お礼日時:2005/12/21 20:38

イベントプロシージャを使わない方法だと、


後から開くフォームのテキストボックスの既定値プロパティに、=forms!入力フォーム名!テキストボックス名
でもいいと思います。
    • good
    • 0
この回答へのお礼

ありがとうございました。

お礼日時:2005/12/20 17:04

ボタンの「クリック時」のイベントに


Forms!表示フォーム名!表示ラベルかテキストボックス名 = Forms!入力フォーム名!テキストボックス名

とすれば、入力した文字を別のフォームへ表示できます。
    • good
    • 0
この回答へのお礼

ありがとうございました。

お礼日時:2005/12/20 17:04

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング