| |
▼Gin_II さん：
>サブフォームの元となっているテーブルは？
>そちらを使えば大丈夫だと思いますけど。
返答をありがとうございます。
登録ボタンを押下するサブフォームに入力したデータをテーブルに登録します。
一行の場合は下記のように書きますが・・・。
Private Sub 登録_Click()
Dim strNo, strName, strKana, strTel, strEmail As String
Dim T_SQL As String
Dim DB As Database
Dim myRs As DAO.Recordset
Set DB = CurrentDb()
strNo = Me![F_intra発注書作成明細].Form.[NO]
strName = Me![F_intra発注書作成明細].Form.[氏名]
strKana = Me![F_intra発注書作成明細].Form.[カナ]
strTel = Me![F_intra発注書作成明細].Form.[TEL]
strEmail = Me![F_intra発注書作成明細].Form.[メール]
T_SQL = "INSERT INTO T_会員(NO, 氏名, カナ, TEL, メール)"
T_SQL = T_SQL & " VALUES('" & strNo & "','" & strName & "',"
T_SQL = T_SQL & "'" & strKana & "','" & strTel & "',"
T_SQL = T_SQL & "'" & strMemo & "')"
DB.Execute T_SQL
End Sub
複数の行をあった場合は登録ボタンを1回だけ押すとループで回して全部登録するようにしたいです。どうのようにかけばよいでしょうか？
例え：
For i = 1 to サブフォームの全行数
:
:
Next
サブフォームの全行数と一行ずつの配列のような設定しかたをよく分かりません。とても困っています。是非教えて頂きたいです。よろしくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
