按照条件筛选某列数据然后更新该列值,再然后用该筛选过并且更新了的列值再去更新他表?

today416

有一个表,某一列值为空,将该列所有空值记录筛选出来,然后更新该列,使其不为空值.然后用这些筛选出来的记录并且本次更新了的记录的值(如果该列以前已经存在了的不为空的值则不需要)再去更新另一个表的对应的记录值.如果实现?

todaynew

today416 发表于 2011-8-1 14:59
有一个表,某一列值为空,将该列所有空值记录筛选出来,然后更新该列,使其不为空值.然后用这些筛选出来的记录并 ...

在表1子窗体中的单价控件的更新后事件中写：
Private Sub 单价_AfterUpdate()
Dim ssql As String
If IsNull(Me.单价.OldValue)=True Then
        ssql = "UPDATE 表2 SET 表2.单价 =" & Me.单价.Value
        ssql = ssql & " where 表2.号码=" & Me.号码.Value
        CurrentDb.Execute ssql
        Me.Parent.Controls("表2子窗体").Form.Requery
End If
End Sub

roych

不妨这样试试？
Private Sub Command6_Click()
Dim sql As String
sql = "update 表1 set 单价=2 where " & Forms!窗体1.表1子窗体.Form.Filter   '此处只是举例,所以用SQL代码更新了ID为300和301的记录,实际中有可能手工直接在子窗体中更新记录,并且更新的行也不确定,而是随机的.
DoCmd.RunSQL sql
Forms!窗体1.表1子窗体.Form.FilterOn = False
Me.表1子窗体.Requery
End Sub
当然，这里还没有进行错误处理。此外，按我的想法，应该建立起一些字段关联，否则不好处理。