[alex]

Καλημέρα σε όλους τους φίλους της κοινότητας!!
Αντιμετωπίζω ένα πρόβλημα με την συνάρτηση mid$
παραθέτω τον κώδικα αν γνωρίζει κάποιο μέλος πως μπορεί να διορθωθεί

' Βάλτε τα επιλεγμένα στοιχεία του τηλεφωνικού καταλόγου στο πεδίο αριθμού τηλεφώνου
 Private Sub PhonebookList_Click()
    Dim curPhone As String, curName As String, strPhones As String, strNames As String
    Dim rowNum As Variant
    
    ' Πάρτε επιλεγμένους αριθμούς τηλεφώνων και ονόματα  από την λίστα τηλεφώνων
        For Each rowNum In .ItemsSelected
            curPhone = .Column(1, rowNum)
            curName = .Column(0, rowNum)
            strPhones = strPhones & ", " & curPhone
            strNames = strNames & ", " & curName
        Next rowNum
    End With
    If Len(strPhones) Then strPhones = mid$(strPhones, 3)
    If Len(strNames) Then strNames = "(" & mid$(strNames, 3) & ")"
    
    ' Βάλτε τους στο πεδίο PhoneNumber     txtTo = Str2Null(strPhones)
    txtContactName = strNames
End Sub

Το σφάλμα δεν το βγάζει σε βάση με κατάληξη mdb αλλά σε μεταφορά στοιχείων σε νέα βάση (.accdb) με τα ίδια reference βγάζει το παρακάτω μήνυμa
“Type-declaration character does not match declared data type”
Αν και πιστεύω έχει να κάνει με το DAO