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:
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 μελών