Send Bulk SMS

[vraxnakisg]

Καλησπέρα Γιώργο,

Καταλαβαίνοντας την διαδηκασία για δες τον παρακάτω κώδικα, Η αλλαγή είναι If rsPatient.Fields("Grabb") = True Then


Public Sub cmdBulkSMS_Click()
Set rsPatient = Me.Bulk_SMS!subClients.Form.Recordset

If rsPatient.RecordCount > 0 Then rsPatient.MoveFirst

While Not rsPatient.EOF
If rsPatient.Fields("Grabb") = True Then
Title = Me.xTitle
message = Me.SMSBody
mobnu = rsPatient.Fields("Mobile1")
res = Send_SMS(Title, mobnu, message)
' MsgBox res
rsPatient.MoveNext
Me.Bulk_SMS!subClients.Form.Form.Refresh
End If
Wend
MsgBox " The SMS has been sent", vbExclamation, "Send Bulk SMS"
Else
MsgBox "Error: Cannot find Data", vbInformation, Me.Caption
End If
End Sub

Ευχαριστώ.