if the user can pick more than 1 method, would you want to send data to ALL devices? or just 1?
if you are sending to all , cycle thru each checked item then send it, like:
Code:
Public Sub btn_test_Click()
Dim rst
dim vMethod, vID
Set rst = CurrentDb.OpenRecordset("qsContactResults")
With rst
While Not .EOF
vID = .Fields("ID").Value & ""
vMethod = .Fields("Contact").Value & ""
SendViaMethod vID, vMethod
.MoveNext
wend
.Close 'Close the recordset
End With
Set rs = Nothing 'Clean up
End Sub
sub SendViaMethod(byval pvID, byval pvMethod)
select case pvmethod
case "Email"
sTo = Dlookup("[email]","tContacts","[id]=" & pvid)
docmd.SendObject acSendReport ,"rMyReport",acFormatPDF,sTo,,,sSubj,sBody
case "TEL"
'send to TEL
CASE "Mobile"
'send to phone
end select
end sub