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

wang1950317

各位老师在论坛上移植来一个使用窗体控件向表中添加列，但如何把值赋予新添加的列中我不会做，请老师们指点！谢谢！请看附件！

wang1950317

自己顶一下！期待大师指教！

wang1950317

假日快结束了，版主老师都回来了吧，顶到第一页去！谢谢！

YAO_Alex

给窗体添加代码如下：

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

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

wang1950317

非常感谢YAO_Alex大师的指点,正是我所要的结果，捣鼓了好几天，也没有解决，还是YAO_Alex老师厉害！谢谢啦！

wang1950317

YAO_Alex老师，好像还有一点问题需要解决，当输入一个新的编号后，无法把数据加载到表中，该如何解决？谢谢再指点！