Help with Check Box code

[Nathan Bloomfield]

Hi there,

I am having much difficulty with what is probably a very simple
problem.

I have multiple check boxes, named Check1 to Check10. I would like
the code to run macros associated with each checkbox by using the
checkbox tag.

i.e. Check1.tag = CUSTMR
if Check1 = -1 then
runMacro "Update" & Check1.tag

Any help will be much appreciated.
Private Sub UpdateButton_Click()
Dim CheckCount As Integer
Dim strCheckName As String
Dim strCheckNameTag As String
Dim strCheckMacro As String

CheckCount = 1

Do While CheckCount < 11

strCheckName = "Me.Check" & CheckCount
strCheckNameTag = strCheckName & ".Tag"
strCheckMacro = "Update & " & strCheckNameTag

If strCheckName = -1 Then
DoCmd.RunMacro strCheckMacro

End If
CheckCount = CheckCount + 1
Loop
End Sub

[Ed Robichaud]

Well, not sure I would do it that way, but don't see why it shouldn't work.
When is this code started? - on the form's OnOpen, theCheck# AfterUpdate,
etc.. What results/errors are you getting?
-Ed

"Nathan Bloomfield" <na**************@hotmail.com> wrote in message
news:4b*************************@posting.google.co m...

Hi there,

I am having much difficulty with what is probably a very simple
problem.

I have multiple check boxes, named Check1 to Check10. I would like
the code to run macros associated with each checkbox by using the
checkbox tag.

i.e. Check1.tag = CUSTMR
if Check1 = -1 then
runMacro "Update" & Check1.tag

Any help will be much appreciated.
Private Sub UpdateButton_Click()
Dim CheckCount As Integer
Dim strCheckName As String
Dim strCheckNameTag As String
Dim strCheckMacro As String

CheckCount = 1

Do While CheckCount < 11

strCheckName = "Me.Check" & CheckCount
strCheckNameTag = strCheckName & ".Tag"
strCheckMacro = "Update & " & strCheckNameTag

If strCheckName = -1 Then
DoCmd.RunMacro strCheckMacro

End If
CheckCount = CheckCount + 1
Loop
End Sub

[Steve Jorgensen]

Commentary interspersed...

On 26 Jan 2005 16:22:14 -0800, na**************@hotmail.com (Nathan
Bloomfield) wrote:

Hi there,

I am having much difficulty with what is probably a very simple
problem.

I have multiple check boxes, named Check1 to Check10. I would like
the code to run macros associated with each checkbox by using the
checkbox tag.

i.e. Check1.tag = CUSTMR
if Check1 = -1 then
runMacro "Update" & Check1.tag

Any help will be much appreciated.

- Some indentation would amke this code easier to read
and maintain.Private Sub UpdateButton_Click()
Dim CheckCount As Integer
Dim strCheckName As String
Dim strCheckNameTag As String
Dim strCheckMacro As String

CheckCount = 1

Do While CheckCount < 11 - A "For" loop would be simpler.
strCheckName = "Me.Check" & CheckCount - Me refers to the object module in which the VBA code is running.
it means nothing to the macro code. You can refer to a control
by name using the form's Controls collection -
Me.Controls("Check" & CheckCount)strCheckNameTag = strCheckName & ".Tag"
strCheckMacro = "Update & " & strCheckNameTag - I don't know what the Update macro does, but couldn't you do it
in VBA code?
If strCheckName = -1 Then
DoCmd.RunMacro strCheckMacro

End If
CheckCount = CheckCount + 1
Loop
End Sub

[Steve Jorgensen]

I almost forgot...

....

If strCheckName = -1 Then
DoCmd.RunMacro strCheckMacro

End If

strCheckName is the fully qualified name of the control that you assigned
earlier. The string will always equal that name-text, never a value from the
control.

[nathanbloomfield]

Thanks Steve, that was very helpful.

I have changed my approach and am now using a recordset based on a
table rather than the checkbox approach.
Your advice allowed me to pursue the task further.

Regards,
Nathan