22-09-20, 11:49
|
| Super Moderator Όνομα: ΓΙΩΡΓΟΣ Έκδοση λογισμικού Office: Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 14-01-2014
Μηνύματα: 234
| |
Καλησπέρα Γιώργο,
Καταλαβαίνοντας την διαδηκασία για δες τον παρακάτω κώδικα, Η αλλαγή είναι 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
Ευχαριστώ.
|