如何将未绑定文本框的内容增加到表中

louisegrade

这个要如何
让按钮实现其功能


请各位大师傅帮忙～

danis

caoguangyao 发表于 2011-1-5 14:27
“保存”的单击事件中加入代码
Private Sub Command10_Click()
On Error GoTo Err_Command10_Click

请教caoguangyao ，如果有N个字段这样写N段，有没有好的办法优化

louisegrade

嘻嘻。。。不大懂。
不用那个功能了。能用保存就很开心了。

caoguangyao

1在主窗体中一文本控件（ID），在子窗体的当前事件中加入代码：
Private Sub Form_Current()
Forms![窗体1]![ID] = Me.ID
End Sub

louisegrade

回复 caoguangyao 的帖子

我的密保答案
好像是12月6日
或者 是 12月6号

你试试

那个删除不会也要引用 什么 吧

caoguangyao

362799584,老妹呀，加不了呢

caoguangyao

但是那个删除功能，你还是不会明白的

louisegrade

回复 caoguangyao 的帖子

我找到那个引用“Microsoft ActiveX Data Objects 2.8”了。
现在可以用了。
非常感谢。
十分感谢。
再次感谢。

caoguangyao

“删除”代码：
Private Sub Command11_Click()
Dim str As String
str = "delete * from 表2 where [ID]=" & Me.ID
DoCmd.RunSQL str
Me.[表2 子窗体].Requery
End Sub

louisegrade

回复 caoguangyao 的帖子

引用Microsoft ActiveX Data Objects 2.8是什么 意思 ？

我在上班 不能上Q的 ，可以告诉你我的号362799584