| |
よろしくお願いします。
テーブル名・・品目名
ID 品目 開始1 終了1 開始2 終了2・・・・開始5 終了5
ABC 3001 3010 2001 2001 1001 1000
となっています。
いま コンボ３７にデータ（品目）を入れてクリックしたとき
品目を追加して、開始１から終了５までに”０”を入れるプログラムを
下記に作りましてが、品目の追加以下ができません。
どのように書いたらよいか教えて頂きたいと思います。
Sub コンボ37_Click()
Dim db As Database, rst As Recordset
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim ipt As String
Dim NN, N1, N2, N3, N4, N5, N6, N7, N8, N9, N10, N0, Nmax
テキスト55.Value = ""
テキスト58.Value = ""
If チェック51.Value = True Then '追加のチェックボックス
MsgBox コンボ37.Value & "を追加します"
Set db = CurrentDb
Set rst = db.OpenRecordset("品目名", dbOpenTable, dbAppendOnly)
With rst
.AddNew
![品目] = コンボ37.Value
![開始１] = 0
![終了１] = 0
![開始2] = 0
![終了2] = 0
![開始3] = 0
![終了3] = 0
![開始4] = 0
![終了4] = 0
![開始5] = 0
![終了5] = 0
.Update
End With
rst.Close
db.Close
・・・
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
