24-09-20, 08:08
|
| Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-04-2013 Περιοχή: Κύπρος
Μηνύματα: 738
| |
Παράθεση:
Αρχική Δημοσίευση από 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
Ευχαριστώ. | Καλημέρα Γιώργο, σε ευχαριστω πολύ για την βοήθεια. Θα το δοκιμάσω σήμερα και αν έχω οτιδήποτε θα επανέλθω.
Νάσαι καλά και εκτιμώ την βοήθεια.
|