Office中国论坛/Access中国论坛

标题: [求助]从窗体控件中向表中添加列标后赋值问题 [打印本页]

作者: wang1950317 时间: 2006-9-30 19:41
标题: [求助]从窗体控件中向表中添加列标后赋值问题
各位老师在论坛上移植来一个使用窗体控件向表中添加列，但如何把值赋予新添加的列中我不会做，请老师们指点！谢谢！请看附件！[attach]20674[/attach]

作者: wang1950317 时间: 2006-10-2 16:55
自己顶一下！期待大师指教！

作者: wang1950317 时间: 2006-10-7 00:30
假日快结束了，版主老师都回来了吧，顶到第一页去！谢谢！

作者: YAO_Alex 时间: 2006-10-7 22:19
给窗体添加代码如下：

Private Sub 结果1_BeforeUpdate(Cancel As Integer)
Dim strSQL As String

strSQL = "update 表1 set 表1." & 项目1.Value & "='" & 结果1.Text & "' where 表1.编号='" & 编号.Value & "'"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

Private Sub 结果2_BeforeUpdate(Cancel As Integer)
Dim strSQL As String

strSQL = "update 表1 set 表1." & 项目2.Value & "='" & 结果2.Text & "' where 表1.编号='" & 编号.Value & "'"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub[attach]20741[/attach]

[此贴子已经被作者于2006-10-7 14:21:00编辑过]

作者: wang1950317 时间: 2006-10-8 02:00
非常感谢YAO_Alex大师的指点,正是我所要的结果，捣鼓了好几天，也没有解决，还是YAO_Alex老师厉害！谢谢啦！

作者: wang1950317 时间: 2006-10-8 19:39
YAO_Alex老师，好像还有一点问题需要解决，当输入一个新的编号后，无法把数据加载到表中，该如何解决？谢谢再指点！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)