Send Bulk SMS

[γιώργοςΚ]

Καλησπέρα,

Εχω στήσει μια εφαρμογή έτσι ωστε ο χρήστης να μπορεί να επιλέγει σε ποιούς πελάτες επιθυμεί να σταλεί SMS ορίζοντας τους απο το πεδίο [Grabb] είτε επιλεκτικά είτε γενικά σε όλους. Δυστυχώς ο κώδικας ο οποίος έχω στην φορμα (και ο οποίος έχει στηθεί με δικής σας βοήθεια και σας ευχαριστω) δεν περιλαμβάνει στο RecordSet της φόρμας πουθενά το πεδίο [Grabb]=True και ακολούθως να σταλούν τα μηνύματα με αποτέλεσμα να αποστέλνονται σε ολους τους πελατες γενικά.

Παραθετω τον κώδικα στην εντολή αποστολής του SMS και θα εκτιμήσω εάν κάποιος μπορέσει να βοηθήσει.Ουσιαστικά το ζητούμενο είναι να εκτελείται ο πιο κάτω κώδικας και στο RecordSet να περιλαμβάνονται μόνον όσα Records είναι στο πεδίο [Grabb]=True

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

If rsPatient.RecordCount > 0 Then
rsPatient.MoveFirst

While Not rsPatient.EOF
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
Wend
MsgBox " The SMS has been sent", vbExclamation, "Send Bulk SMS"
Else
MsgBox "Error: Cannot find Data", vbInformation, Me.Caption
End If


End Sub

Ευχαριστω εκ προτέρων