实现子窗体全选功能
Private Sub 复选3_AfterUpdate()
Dim rs As ADODB.Recordset, strSQL As String
Set rs = New ADODB.Recordset
strSQL = "Select 是否打印 FROM 表1;"
rs.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockPessimistic
If Not rs.EOF Then rs.MoveFirst
Do While Not rs.EOF
rs(0).Value = 复选3.Value
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
子对象1.Requery
End Sub
Access软件网交流QQ群(群号:198465573) |