| |
VBA初心者です。
現在フォームにサブフォームとしてテーブルを追加しています。
テキストボックスに入力された値をテーブルに追加(INSERT文を使う)したいのですが、うまくいきません。
DAOを使っているのですが
コード上の
1:Dim strSql As String
2: Dim temp As String
3: Dim dbs As DAO.Database
4:
5: Form_フォーム1.会社.SetFocus
6: temp = Form_フォーム1.会社.Text
7: db1.Form_dbo_ma_receive1のサブフォーム1.cd_kaisha.SetFocus
8: strSql = "INSERT INTO db1.Form_dbo_ma_receive1のサブフォーム1 (cd_kaisha) VALUES ('" & temp & "' )"
9: Set dbs = CurrentDb
10: dbs.Execute strSql
11: dbs.Close
10行目のところで「テーブルdb1.Form_dbo_ma_receive1のサブフォーム1が見つかりません」というエラーメッセージが出てしまいます。
確かにその名前のテーブルはあるので原因がさっぱりわかりません。
どうかご教授お願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
- 04/12/17(金) 11:42 -
