入力の簡略化

質問

前回の質問させていただいたものですが、今だに完成できて
いないので、もう一度書き込みさせていただきます。
kurodai2様にご丁寧に返答いただいたのですが、
いかんせん小さい脳みそで。。質問も閉じてしまいましたので今一度。

ツアーNo.、ツアータイトル、ツアー情報、入力者氏名

があります。

現在、フォームを開く際に小さなフォームが出てきて、
「入力者の氏名」を入力します。格納する不可視の
テキストＢＯＸ「非入力者」があり、「入力者氏名」は
そこを見に行き、新しいレコードを開くたびに自動で氏名が
反映されます。のはずです。説明難しいですが。。

フォームで「ツアーNo.」を入力し、更新したら、「ツアータイトル」
と「ツアー情報」が自動で出てきます。これは前もって
ツアー情報テーブルで登録しています。

そこで、毎回同じ「ツアーNo.」、「ツアータイトル」、「ツアー情報」
の場合、入力の際ミスが出ますので、入力者氏名と同じ方法で
格納して反映しようと思っています。

まぁkurodai2様の教えなんですけど＾＾；
メモリーに格納ってのは難しかったのでこちらの方法でいこうと
思います。

自分なりにいじってみたんですけど、

Dim Textname As TextBox
Dim strmsg As String
Dim varname As Variant

Set Textname = Me.入力者表示
strmsg = "入力者氏名を入力して下さい"
varname = InputBox(strmsg)

'入力なき時は、フォームオープンをキャンセルします。
If varname = "" Then
Cancel = True

End If

Textname = varname

Set Textname = Me.ツアーNo
strmsg = "ツアーNoを入力して下さい"
varname = InputBox(strmsg)

'入力なき時は、フォームオープンをキャンセルします。
If varname = "" Then
Cancel = True

End If

Textname = varname

では、ツアーNo.に値は入れれませんとエラーがでます。
非連結のテキストボックス「非ツアーNo.」を作り、それを指定したら
入りました。

非連結のテキストボックス「非ツアーNo.」にツアーNo.を入れ、
保存ボタン押したら「非ツアーNo.」から「ツアーNo.」へ値を
反映させるようにしたのですが、ボタンを押した時点では反映
されているのに、レコードが切り替わったらブランクに
なってしまいます。たぶんそういう設定にしているのでしょうけど、
どこをいじっていいのか。。
しかもツアーNo.へ値を反映させても値のみが反映され、
「ツアータイトル」と「ツアー情報」が空白のままになって
しまいます。
もうなにがなんだか。。

知識と文章力のなさで、暗号を解くみたいになりましたが、、、。
ご理解いただける方、宜しくお願いいたします。

回答No.2

kurodai2

kurodai2です。
前回のは、難しかったですか・・

>非連結のテキストボックス「非ツアーNo.」にツアーNo.を入れ、
>保存ボタン押したら「非ツアーNo.」から「ツアーNo.」へ値を
>反映させるようにしたのですが、ボタンを押した時点では反映
>されているのに、レコードが切り替わったらブランクに
>なってしまいます。たぶんそういう設定にしているのでしょうけど、
>どこをいじっていいのか。。

この切り替わったら・・と言うのは　新しいデータの入力になったら
と言うことですか？

そうであれば、当然そうなります。
なぜならば、保存のときにツアーNOを入れていますので
新しいデータになった時には、空の状態ですね。
新しいデータの入力状態になったときに、ツアーNOが入っている
ようにするには、保存ボタンを押したときではなく（このイベント時に
ほかにどのような操作をしているのかも不明ですね）
Private Sub Form_BeforeInsert(Cancel As Integer)
のタイミングですね。

>しかもツアーNo.へ値を反映させても値のみが反映され、
>「ツアータイトル」と「ツアー情報」が空白のままになって
>しまいます。
そもそも、ツアーNOを入力すると言うことから考えると
「ツアータイトル」「ツアー情報」の情報がマスタ化されてるのでしょう。
そうなると、画面上の「ツアータイトル」と「ツアー情報」は表示
されているだけで、入力項目でも、データとして格納される項目でもないと
思うのですが・・

ツアーNOの入力間違いがあると言うことであれば、コンボボックスではない
と考えます。
そうなると、ツアーNOを入力したときに、ツアーマスターを
参照して、「ツアータイトル」「ツアー情報」を取得している場所が
あるのではないですか？

新規データ入力になった時にツアーNOをセットするようにすれば
その処理を通るのか？　
通らないのであれば、セットした時にその処理をしてやるようにすれば
よいと思いますが

ただ・・コードだけ入力して、名称を参照表示させているとしても
間違っていれば、表示されないか　他の名称が表示されるので
基本的には入力時に即　気がつくと思うのですが・・

入力対象のテーブルの構成と、画面の部品の種類
（テキストボックスなのかコンボなのか）を含め、
もう少し情報を出されたほうがわかりやすいですね。

補足

先日は本当にありがとうございました！
しつこく質問しまくって申し訳ありません。

とりあえず今現在はコンボボックスでなく、
テキストボックスになります。返答が遅れてしまいました。

前もってツアーNo.とツアータイトルとツアー情報を、
ツアー内容テーブルに入力しておきます。
フォームのテキストボックスにツアーNo.を入れたら、タイトルと
情報がでるようにしています。そのフォームで入力した全てのものが
入るテーブルに、その三つも入るようなっています

＞新しいデータの入力状態になったときに、ツアーNOが入っている
ようにするには、保存ボタンを押したときではなく（このイベント時に
ほかにどのような操作をしているのかも不明ですね）
Private Sub Form_BeforeInsert(Cancel As Integer)
のタイミングですね。

クリック時に

Private Sub 新規データ保存_Click()

Me.入力者書込み.Value = Me.入力者表示.Value
Dim strmsg As String
strmsg = "データの保存が完了しました。"

CkPoint = False 'CKPointをFalseに変更します。
MsgBox strmsg, vbInformation

DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "自宅電話番号"

End Sub

となっています。

タイミングが違うのですね＾＾；了解しました。

画面の部品ですが、ツアーNo.、タイトル、情報の上記の三つと
ツアーID、これは規定値にして新しいレコードになった際も
最後に入力したデータが反映されます。
あとは普通に個人情報です。氏名、電話番号、住所（郵便番号支援使用）です。

今現在のツアーNo.に入っているコードは以下です。

Private Sub ツアーNo_AfterUpdate()

If Me![招待者ID] = 0 Then
Me![招待者ID] = Nz(DMax("招待者ID", "旅行招待者管理テーブル")) + 1
End If

DoCmd.SetWarnings False '警告メッセージをオフにします。
DoCmd.OpenQuery "ツアー情報抽出テーブル削除クエリ" ' 削除クエリーを実行します。

' 追加クエリーを実行します。
DoCmd.OpenQuery "ツアー情報抽出テーブル作成クエリ"
DoCmd.SetWarnings True '警告メッセージをオンに戻します。

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim stCri As String
Set cn = CurrentProject.Connection
rs.Open "ツアー情報抽出テーブル", cn, adOpenDynamic, adLockOptimistic
'文字列型データ検索
stCri = "[ツアーNo]='" & ツアーNo & "'"
rs.Find stCri
'該当するレコードが無い場合は、メッセージボックスを表示し、抜け出す
If rs.EOF Then
MsgBox ("該当データがありません。確認してください！！")
Else
Me!ツアー情報 = rs!ツアー情報
Me!ツアータイトル = rs!ツアータイトル

End If
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

End Sub