アクセスのフォーム画面で入力

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

No.3 ベストアンサー 回答者： bonaron 回答日時： 2005/12/19 15:41

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

この回答へのお礼

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

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

No.2 回答者： miwaharu 回答日時： 2005/12/19 12:37

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

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

この回答へのお礼

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

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

No.1 回答者： nnfuji 回答日時： 2005/12/19 12:31

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

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

とすれば、入力した文字を別のフォームへ表示できます。

この回答へのお礼

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

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