如何添加记录到表中

lzgbc · 发表于 2010-12-3 21:28

请老师指教一下,在窗口中,怎么做到点击"添加记录"后,可以将输入的记录添加到相应的表中.

zez · 发表于 2010-12-4 09:15

将控件直接绑定到字段上不就行了吗？

styhs · 发表于 2010-12-4 09:34

使用楼上的方法或
Private Sub Command9_Click()
With Me
CurrentDb.Execute "INSERT INTO 表1 VALUES(#" & .日期 & "#, '" & .公司 & "', '" _
& .货品 & "', '" & .仓库 & "')"
End With
End Sub

lzgbc · 发表于 2010-12-4 17:01

原帖由 styhs 于 2010-12-4 09:34 发表
使用楼上的方法或
Private Sub Command9_Click()
With Me
      CurrentDb.Execute "INSERT INTO 表1 VALUES(#" & .日期 & "#, '" & .公司 & "', '" _
         & .货品 & "', '" & .仓库 & "')"
   ...

谢谢老师的指点.如果保存后,如何将控件的内容清除呢...

styhs · 发表于 2010-12-4 17:14

直接指定
Private Sub Command9_Click()
With Me
      CurrentDb.Execute "INSERT INTO 表1 VALUES(#" & .日期 & "#, '" & .公司 & "', '" _
         & .货品 & "', '" & .仓库 & "')"
      .日期 = Null
      .公司 = Null
      .货品 = Null
      .仓库 = Null
End With
End Sub

循环控件
Private Sub Command9_Click()
With Me
      CurrentDb.Execute "INSERT INTO 表1 VALUES(#" & .日期 & "#, '" & .公司 & "', '" _
         & .货品 & "', '" & .仓库 & "')"
End With
Dim ctl As Control
For Each ctl In Form.Controls
      If TypeOf ctl Is TextBox Then ctl.Value = Null
Next
End Sub

lzgbc · 发表于 2010-12-4 23:06

谢谢老师,我想再问问,如果有很多字段的话,那这句
CurrentDb.Execute "INSERT INTO 表1 VALUES(#" & .日期 & "#, '" & .公司 & "', '" & .货品 & "', '" & .仓库 & "')"

有没有更便捷的写法?

lzgbc · 发表于 2010-12-6 19:18

请问老师一个问题,我根据你的语法.增加了一个字段,可是,为何写入表中,却是牛头不对马嘴?请问我是那里出错了,为何套在其他窗体中,却提示错误,执行不了?
还请老师再指点一下.

zez · 发表于 2010-12-6 19:32

Private Sub Command8_Click()
With Me
CurrentDb.Execute "INSERT INTO 表1 VALUES(#" & .AA & "#, '" & .日期 & "', '" & .公司 & "','" & .货品 & "', '" & .仓库 & "')"
End With
Dim ctl As Control
For Each ctl In Form.Controls
If TypeOf ctl Is TextBox Then ctl.Value = Null
Next
End Sub

lzgbc · 发表于 2010-12-6 19:36

不行呀,提示出错了,执行不了.

zez · 发表于 2010-12-6 20:09

我没有发现出错

		自动登录	找回密码
密码			免费注册

[求助] 如何添加记录到表中

回复 5楼 styhs 的帖子