| |
初めまして。行き詰ってしまった為の教えていただきたく投稿しました。
サブフォームをダブルクリックすると、登録した内容がメインフォームの
決まったテーブルに反映？されるという形で住所録を作成しています。
ですが、表題のエラーが出て先に進めてません。
エラーは下記の書式の所で黄色く反転してしまいます。
Private Sub 名前_DblClick(Cancel As Integer)
Dim db As Database
Dim rs As DAO.Recordset
Dim stsql As String
stsql = "select * from T_住所マスター where 名前 =" & Me.名前
Set db = CurrentDb
Set rs = db.OpenRecordset(stsql, dbOpenDynaset) ←ここが黄色くなります
Forms.住所マスター.名前 = rs!名前
Forms.住所マスター.年 = rs!年
Forms.住所マスター.月 = rs!月
Forms.住所マスター.日 = rs!日
Forms.住所マスター.アドレス = rs!アドレス
Forms.住所マスター.〒 = rs!〒
Forms.住所マスター.都道府県 = rs!都道府県
Forms.住所マスター.市町村 = rs!市町村
Forms.住所マスター.住所 = rs!住所
Forms.住所マスター.建物名 = rs!建物名
Forms.住所マスター.TEL1. = rs!TEL1.
Forms.住所マスター.TEL2. = rs!TEL2.
Forms.住所マスター.FAX = rs!FAX
Forms.住所マスター.備考 = rs!備考
Forms.住所マスター.削除 = rs!削除
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
Forms.住所マスター.更新_コマンド.Visible = True
Forms.住所マスター.更新_コマンド.Enabled = True
Forms.住所マスター.追加_コマンド.Visible = False
Forms.住所マスター.追加_コマンド.Enabled = False
Forms.住所マスター.キャンセル_コマンド.Enabled = True
Forms.住所マスター.印刷_コマンド.Enabled = False
Forms.住所マスター.名前.Enabled = True
Forms.住所マスター.名前.SetFocus
End Sub
過去ログを探してみたのですが、それらしきものが見つかりませんでした。
ほかに検索などもしてみましたが難しかった為よく分かりませんでした。
自分がほぼ初心者というのもあるのですが、分けの分からない事などを
書いてしまっていていましたらすいません。
どなたかヒントなど教えていただけないでしょうか？
よろしくお願い致します・
|
|
トヨタ車命
- 13/5/3(金) 19:48 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
≪
