ms-access - in ms access-1 つのフィールドを使用してフォームの他のフィールドにデータを入力しようとしています

Question

最新の更新 (月曜日の夜)

まず、city_table を正常に表示して選択し、フォームに city_no を入力します。

次に、その値を使用して、同じフォームで city_nm と state_nm を抽出/使用しようとしています。

これを、city_no の (変更された) afterupdate コードとしてコーディングしました。

Private Sub city_no_AfterUpdate()  
Dim got_city_nm, got_state_nm  
got_city_nm = DLookup("[city_nm]", "city_table", "[city_no]" = "city_no")  
got_city_nm = DLookup("city_nm", "city_table", "city_no='" & Me.city_no & "'")  
city_nm = got_city_nm  
got_state_nm = DLookup("[state_nm]", "city_table", "[city_no]" = "city_no")  
got_state_nm = DLookup("state_nm", "city_table", "city_no='" & Me.city_no & "'")  
state_nm = got_state_nm  
seat_no = "XXX"  
End Sub  

最後のステートメント (seat_no に "XXX" を代入) を含め、まだ何も起こりません。

だから私はそれを単純化して、それ自体を試してみました：

Private Sub city_no_AfterUpdate()  
seat_no = "XXX"  
End Sub  

まだ何もありません。シンプルで些細なものが明らかに欠けています。