Private Sub Command4_Click()
DoCmd.SetWarnings False
SQL = "UPDATE Table1 SET Table1.[เลือก] = True;"
DoCmd.RunSQL SQL
Me.Refresh
End Sub
Private Sub Command5_Click()
DoCmd.SetWarnings False
SQL = "UPDATE Table1 SET Table1.[เลือก] = False;"
DoCmd.RunSQL SQL
Me.Refresh
End Sub