[AccessD] Multiple Checkboxes

here you go.

there is a little bug with the delimiter

Function AddEMail(strCurrentEmail As String,
strCurrDep As String, g_strDelimiter As String) As
String
    Dim strNewEMail As String
    
    If strCurrentEmail = vbNullString Then
        strCurrentEmail = strCurrDep
    Else
        strCurrentEmail = strCurrentEmail &
strDelimiter & strCurrDep
    End If
    
    AddEMail = strCurrentEmail
End Function

Function CheckDep(strCurrentDep As String) As String
    Select Case strCurrentDep
        Case "A"
            CheckDep = "a at mycomp.com"
        Case "B"
            CheckDep = "b at mycomp.com"
        Case Else
    End Select
End Function

Private Sub Command_Click()
Dim strEmail As String
Dim strDep As String

strEmail = vbNullString

If Check1 Then
    strDep = CheckDep("A")
    strEmail = AddEMail(strEmail, strDep, ";")
End If

If Check2 Then
    strDep = CheckDep("B")
    strEmail = AddEMail(strEmail, strDep, ";")
End If

MsgBox "You're email is: " & strEmail

End Sub

--- Terri Jarus <jarus at amerinet-gpo.com> wrote:
> I have four checkboxes, which if checked, determine
> who receives an email.  More than one checkbox may
> be selected.  How do I code this so that all the
> applicable recipients are emailed?
>  
> Example - four checkboxes  - MS, PH, LB, NF
>  
> If MS is checked - Admin = "MS at email.com"
> If LB is checked - Admin = LB at email.com 
>  
> But what if MS and LB are both checked?  How do I
> word this?
>  
> I am having a brain cramp on this.  Can't use Select
> Case because each check box is a unique field -
> right?
>  
> If someone can point me in the right direction, I
> would appreciate the help.
>  
> Thanks.
>  
>  
>  
> Terri Jarus
> Director, Contract Support Services
> jarus at amerinet-gpo.com 
> 314-542-1902
> 
> 
>
---------------------------------------------------------------------------
> This email and any files transmitted with it are
> confidential and
> intended solely for the use of the individuals or
> entities to whom they
> are addressed. If you have received this email in
> error please return
> it to the sender, and erase any copies thereof.
> Copyright 2003 AmeriNet 1nc.>
_______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
> 


__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com