将窗体中数据保存到数据表中的代码？

汪国群　发表于：2009-08-04 23:24:19 　

Private Sub Command11_Click()

On Error GoTo Err_Command11_Click
    XTong = False
    '打开“入库”表
    Set Rs = New ADODB.Recordset
    StrTemp = "Select * From 入库"
    Rs.Open StrTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

                Rs.AddNew
                Rs("编号") = Me![编号]
                Rs("日期") = Me![日期]
                Rs("名称") = Me![名称]
                Rs("入库数量") = Me![入库数量]

                Rs.Update
                Rs.Close

RoomSetFrm.Requery
    Set Rs = Nothing
Exit_Command11_Click:
    Exit Sub
Err_Command11_Click:
    MsgBox Err.Description
    Resume Exit_Command11_Click
End Sub

请问有错吗？为什么总是提示，哪地方错了呢

Top

蟹仔发表于：2009-08-05 00:12:51

插入数据为什么用那么复杂的代码？

DoCmd.RunSQL "INSERT INTO 入库(编号,日期,名称,入库数量) SELECT " & Me!编号 & "," & Me!日期 & "," & Me!名称 & "," & Me!入库数量 & ""

Top

汪国群发表于：2009-08-05 10:03:03

我按照楼上的方法重新设置代码后，在执行代码时提示 “输入参数值”，请问什么原因

Top

蟹仔发表于：2009-08-05 17:15:26

代表你在窗体里面缺少名称为编号、日期、名称、入库数量中的某个控件，你以前的代码错误可能就出在这。你查看以下这4个控件的名称是否为编号、日期、名称、入库数量。

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

将窗体中数据保存到数据表中的代码？