Forum - Ερωτήματα Πρόβλημα με το LIKE

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Ερωτήματα ] Πρόβλημα με το LIKE (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4098-problima-me-like.html)

Πρόβλημα με το LIKE

Καλησπέρα σε όλους
Με την παρακάτω Function προσπαθώ να παρώ τον αριθμό των χρηστών με κινητά αλλά έχω πρόβλημα με το LIKE
Κάθε Βοήθεια δεκτή σας ευχαριστώ εκ των προτέρων Γιώργος

Κώδικας:

Function Count_app_sms() As Integer

Dim rs As New ADODB.Recordset

Dim cn As ADODB.Connection

Dim str As String
 

Set cn = CurrentProject.Connection
 

str = "SELECT id,end_date,phone FROM tbl_appartment_usage  where isnull(end_date) and  phone  like '69*';"
 

rs.Open str, cn, adOpenKeyset, adLockOptimistic
 

If rs.RecordCount = 0 Then

    Count_app_sms = 0

Else

    Count_app_sms = Nz(CInt(rs.RecordCount))

End If
 

End Function

Καλησπέρα

Γιώργο, θα σου πρότεινα τη συνάρτηση:

Κώδικας:

Dcount("*","tbl_appartment_usage","isNull(end_date) And Left(Phone,2)='69'")

Φιλικά/Γιώργος

Γιώργο σε ευχαριστώ το ίδιο αποτέλεσμα με μια γραμμή κώδικα!!!!!!!!!!!!!!!:oeo: