[alex]

Kαλησπέρα σε όλους τους φίλους

Εχω κάνει κάποιες αλλαγές στον παρακάτω κώδικα

Private Sub CmdCheckAll_Click()
Dim strSQL As String
Dim dbs As Database
Dim rst As Recordset
Dim Counter As Integer

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT * FROM [customers]", dbOpenDynaset)
 
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

 If rst.RecordCount > 0 Then
 rst.MoveFirst
 Do While Not rst.EOF
'....process
 rst.MoveNext
Loop
' one less record to go
Counter = Counter - 1

' start loop again
'Wend
 End If
 
End Sub

Επειδή δεν έχω τον τρόπο να το δοκιμάσω εάν δουλεύει το Loop για την ομαδική αποστολή SMS.Γνωρίζει κάποιο έμπειρο μέλος εάν είναι σωστός ο κώδικας ;

Φιλικά/Αλέξανδρος