主窗体传值给子窗体

yanlj518

Private Sub Command235_Click()
Dim stSql As String

stSql = "UPDATE 注册临时表 SET 学期 = '" & 学期选择 & "', 注册 =" & 注册选择 & ", 毕业 = " & 毕业选择 & " where " & Me.注册子窗体.Form.Filter
'CurrentDb.Execute stSql
DoCmd.RunSQL (stSql)


'Dim rs As New ADODB.Recordset
'    Dim strSQl As String
'    strSQl = "SELECT 注册临时表.备注, 注册临时表.注册, 注册临时表.休学, 注册临时表.退学, 注册临时表.毕业, 注册临时表.学期 FROM 注册临时表;"
'    rs.Open strSQl, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
'    With rs
'    .AddNew
'    .Fields("学期") = Me.[学期选择]
'    .Fields("注册") = Me.[注册选择]
'    .Fields("毕业") = Me.[毕业选择]
'    .Update
'End With
'    Close
'    Set rs = Nothing
     Me.注册子窗体.Requery