|
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 |
|