引用子窗体问题

Private Sub 编号_AfterUpdate()
Dim sql As String
If Not IsNull(Me.编号) Then

    sql = " select * from 表1 where 编号 ='" & Me!编号 & "' "
 
    Me!子窗体_表1.Form.RecordSource = sql
End If

If Me!子窗体_表1.Form!含税单价 > 0 Then
    Me.含税单价.Enabled = True
    Me.普通税.Enabled = True
Else
    Me.不含税单价.Enabled = True
    Me.增值税.Enabled = True
End If
End Sub