Creativemfs
Thread Starter
- Joined
- Feb 18, 2010
- Messages
- 27
Here is some code i am trying to write for checkboxes to add text to a string
Option Compare Database
Private Sub btnProceed_Click()
Dim strWhere As String
If Me.Check10 = "Yes" Then
strWhere = strWhere + "OR-1"
End If
If Me.Check12 = "Yes" Then
strWhere = strWhere + "WA-1"
End If
If Me.Check14 = "Yes" Then
strWhere = strWhere + "WY-1"
End If
MsgBox (strWhere)
End Sub
The message box is empty, what am i doing wrong that the text in parenthesis is not getting entered into the string.
I have a form that has 3 check boxes and a button
Thanks,
Mike
Option Compare Database
Private Sub btnProceed_Click()
Dim strWhere As String
If Me.Check10 = "Yes" Then
strWhere = strWhere + "OR-1"
End If
If Me.Check12 = "Yes" Then
strWhere = strWhere + "WA-1"
End If
If Me.Check14 = "Yes" Then
strWhere = strWhere + "WY-1"
End If
MsgBox (strWhere)
End Sub
The message box is empty, what am i doing wrong that the text in parenthesis is not getting entered into the string.
I have a form that has 3 check boxes and a button
Thanks,
Mike