Διόρθωση συνάρτησης mid$

[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

[alex]

Το βρήκα τελικά:

Η συνάρτηση MID μετράει πάντα κάθε χαρακτήρα, ανεξάρτητα από το αν είναι ενός ή δύο byte, ως 1, ανεξάρτητα από την προεπιλεγμένη ρύθμιση γλώσσας.

Η συνάρτηση MIDB μετράει κάθε χαρακτήρα των δύο byte ως 2 όταν έχετε ενεργοποιήσει την επεξεργασία γλώσσας που υποστηρίζει DBCS και τη ρυθμίσετε ως την προεπιλεγμένη γλώσσα. Διαφορετικά, η συνάρτηση MIDB μετράει κάθε χαρακτήρα ως 1.

Οι γλώσσες που υποστηρίζουν DBCS είναι οι εξής: Ιαπωνικά, Κινεζικά (Απλοποιημένα), Κινεζικά (Παραδοσιακά) και Κορεατικά.

Αντικατέστησα το mid$ σε midB και λύθηκε το πρόβλημα.