[5分]用窗体控件更新表数据

Private Sub Check9_AfterUpdate()
Call myCheck(9, Me.Check9)
End Sub

Private Sub Form_Load()
Dim i As Integer
'窗体一打开时，给窗体上的复选框根据表中的数据赋上值
For i = 1 To 12
Me("check" & i) = DLookup("[选择]", "tbl月份表", "[月份]=" & i)
Next i

End Sub

Private Function myCheck(x As Integer, y As Boolean)
'x代表月份，y代表是否选中，值为True或False
DoCmd.SetWarnings False '屏蔽系统警告
'用更新查询实现值的更新
DoCmd.RunSQL "UPDATE tbl月份表 SET tbl月份表.选择 = " & y & " WHERE tbl月份表.月份=" & x

End Function

点击下载此附件