搞不好追加，再次求助！

Henry D. Sy

表"自进货"姓名字段是查阅"客户"表上的id

客户窗体上有一命令按钮Command9，事件过程如下

Private Sub Command9_Click()
On Error GoTo Err_Command9_Click

  Dim xm As Integer, strSql As String
  
  xm = Me.ID.Value
  strSql = "insert into 自进货(日期,姓名,金额) values (#2007-5-25#,xm,250)"

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.RunSQL strSql

Exit_Command9_Click:
    Exit Sub

Err_Command9_Click:
    MsgBox Err.Description
    Resume Exit_Command9_Click
   
End Sub

追加查询老是出现类型转换错误，请指教！

andymark

strSql = "insert into 自进货(日期,姓名,金额) values (#2007-5-25#,'" & xm & "',250)"

Henry D. Sy

非常感谢！