Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Command49_Click()
Dim myVariable As String
If Command49.ForeColor = vbBlack Then
Command49.ForeColor = vbRed [COLOR=green]'it has been selected[/color]
myVariable = myVariable & ", " & Command49.Caption
Else
Command49.ForeColor = vbBlack [COLOR=green]'it has been de-selected[/color]
myVariable = Replace(myVariable, ", " & Command49.Caption, "")
End If
MsgBox Mid(myVariable, 3)
End Sub
[b]ResponderID SelectionID IsPrimary[/b]
JohnDoeSSN 2 No
JohnDoeSSN 13 Yes
JohnDoeSSN 4 No
JohnDoeSSN 7 No
JaneDoeSSN 13 No
JaneDoeSSN 9 Yes
JaneDoeSSN 3 No
text01 = myVariable
text01.requery