Problem with Loop

alexander156

New member
Local time
Today, 04:15
Joined
Apr 1, 2012
Messages
9
Hellow for all the members in forum

I try to fix my code and i need a help.My code is:

Code:
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
__________________________________________

I sended in attachment my base for help.
I need to send  a messages ,not one by one but all the messages in once.
I bought messages from  a company and they gave me the Active X and the code with Username και Password.
I add code for check the records  and i try to  make loop to Check all the records to send the mesages or to check some of them. 
.Thanks
Regards
Alexander μελών
 

Attachments

Users who are viewing this thread

Back
Top Bottom