Forum - Error

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

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

- - Error (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/3935-error.html)

Καλησπέρα σε όλους
Στης παρακάτω γραμμές του κώδικα μου εμφανίζει το εξής λάθος (το αντικείμενο του αρχείου προέλευσης έχει ήδη προετοιμαστεί) γνωρίζει κανείς τη ακριβώς σημαίνει και πώς διορθώνετε.
Σας ευχαριστώ εκ των προτέρων Γιώργος

Κώδικας:

Private Sub Form_Load()

If CheckVolumeNumber = True Then

'----------------------

Dim lngDC As Long

Dim cn As New ADODB.Connection
 Set cn = CurrentProject.Connection

Dim mydate As Date

   On Error GoTo Form_Load_Error

Καλησπέρα
Το τμήμα του κώδικα, είναι μικρό για να δει κανείς τι ακριβώς γίνεται...
Παρ' όλα αυτά δοκίμασε:

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

και ακόμα, δες αν έχεις ενεργοποιήσει τις βιβλιοθήκες:

Visual Basic for Applications
Microsoft Access 8.0 Object Library (ή νεώτερο)
Microsoft DAO 3.5 Object Library (ή νεώτερο)

Σπύρο σε ευχαριστώ πολύ δεν είχε φόρτωση της βιβλιοθήκες στην εγκατάσταση.:confused1: