[alex]

Kαλήμέρα σε όλη στην κοινότητα

Στη φόρμα SMS στο κώδικα

Private Sub Εντολή9_Click()
Dim i As Variant
Dim mMessage As Variant

'Αλλαγή των κενών χαρακτήρων του μηνύματος σε %20
For i = 1 To Len(Me.Message.Value)
    If Mid(Me.Message.Value, i, 1) = " " Then
        mMessage = mMessage & "%20"
    Else
        mMessage = mMessage & Mid(Me.Message.Value, i, 1)
    End If
    
Next

SMSPost1.From = Me.From.Value   'Αποστολέας

SMSPost1.Message = mMessage   'Το κείμενο του μηνύματος

SMSPost1.username = Me.username.Value   'Όνομα εισόδου

SMSPost1.password = Me.password.Value   'Κωδικοί εισόδου

SMSPost1.sTo = Me.SMSNumber.Value    'Ο αριθμός κινητού που θα σταλεί το μήνυμα

SMSPost1.sRequestType = "POST" 'Τύπος αποστολής - ΠροεπιλεγμέναPOST - Άλλες τιμές GET

SMSPost1.SendSMS 'Έναρξη αποστολής

MsgBox SMSPost1.SMSResponse, vbInformation 'Επιστροφή απο τον SMS Warrior


End Sub
__________________________________________________________________
Private Sub CmdCheckAll_Click()
Dim strSQL As String
 Dim rst As Recordset
strSQL = "Select * From CustomersRecs Where ID = " & _
 lngID & "SMS"
Dim intRecordsChecks As Integer
    intRecordsChecks = DCount("telefon", "customers", "Check=true")

            If intRecordsChecks > 0 Then
                DoCmd.RunSQL ("UPDATE customers Set Check=0")
            Else
                DoCmd.RunSQL ("UPDATE customers Set Check=-1")
            End If
            
    Me.Check.Requery
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
 If rst.RecordCount > 0 Then
 rst.MoveFirst
 Do While Not rst.EOF
'....process
 rst.MoveNext
Loop
 End If
End Sub
________________________________________________________________________


Public Function CountCustomerSms(IntID As Long) As Long
    CountCustomerSms = Nz(DCount("ID", "customers", "ID='" & Nz(IntID, 0) & "'"), 0)
End Function

Το σενάριο είναι το εξής .Έχω βάλει ένα Active X απο μία εταιρεία που αγοράζω μηνύματα και μου έχει δώσει ένα Username και Password.
Μπορώ να στέλνω μηνύματα ένα -ένα.Θέλω ο΄μως να στέλνω ολα μαζι με ένα checkbox που έχω βάλει για να τα επιλέγει.Το προβλημάμου είναι στο Loop για να στέλνονται όλα μαζί ή όσα έχω επιλέξει απο με τα Checkboxes.Στέλνω δείγμα της βάσης για βοήθεια.
Ευχαριστώ εκ των προτέρων για τις αλλεπάλληλες βοήθειες των μελών
Φιλικά
Αλέξανδρος