[AC-2007] Erreur execution Runtime Access [Résolu]

[jj4822]

Bonjour.

J'ai cree un programme sous Access 2007 version complete sur un ordinateur sous Windows 7.

Je souhaite executer le programme avec le Runtime Access sur un ordinateur sous Windows XP.

Le fichier que j'execute avec le Runtime Access est un fichier accdb.

L'erreur se produit au moment ou je cherche a ouvrir la connection ADO.

Code :

1
2
3
4
5
6
7
8
9
10
 
Dim oConn As ADODB.Connection
 
Private Sub Form_Open(Cancel As Integer)
    Set oConn = New ADODB.Connection
    Set oConn = CurrentProject.Connection
 
    Set oRS = New ADODB.Recordset
 
etc.

Le programme tombe en erreur sur la ligne :

Code :

1
2
3
 
 
Set oRS = New ADODB.Recordset

Ca fonctionnait parfaitement. Je n'ai rien modifie et ca ne fonctionne plus tout d'un coup.

Les references selectionnees depuis la creation du fichier :
- Visual Basic For Applications
- Microsoft Access 12.0 Object Library
- OLE Automation
- Microsoft Active X Data Objects 2.1 Library
- Microsoft ADO Ext. 2.8 for DDL and Security
- Microsoft Scripting Runtime

Ce programme fonctionne sans aucun probleme avec la version complete d'Access et Windows 7.

Savez-vous a quoi ca peut etre du ?

Merci.
Cdlt.

[argyronet]

Bonjour,

L'erreur se produit au moment ou je cherche a ouvrir la connection ADO

Comment peux-tu le savoir puisque c'est ouvert sur le Runtime ?

Argy

[jj4822]

Bonsoir.

J'ai rajoute des msgbox avant et apres chaque operation principale : ouverture de connection, de table etc.

Le message qui se trouve avant ce qui me semble etre en erreur s'affiche alors que celui qui suit ne s'affiche pas.

Ce qui est curieux c'est que le programme fonctionne correctement dans la version complete d'Access 2007 et qu'il tombe en erreur avec le Runtime.

Ce n'est pas la premiere fois que j'ai un probleme sous le runtime avec un programme qui fonctionne parfaitement avec la version complete.

Cdlt.
Jean

[argyronet]

Humm, effectivement...
Un peu léger comme diagnostic en tout cas... enfin comme conclusion.

1. Déclarer explicitement toutes les variables.
2. Vérifier les priorités sur les références et tout particulièrement la double référence ADO et DAO.
3. Poser une gestion d'erreur avec un message explicite :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ConnectMyApp()
Dim oConn                                              As ADODB.Connection
Dim oRS                                                As ADODB.Recordset
 
    On Error GoTo Err_Handler
 
    'Ton code...
 
Exit_Handler:
    If oConn.State = adStateOpen Then
        oConn.Close
    End If
    Set oConn = Nothing
    Set oRS = Nothing
Err_Handler:
    MsgBox Err.Description, vbExclamation, "Erreur #" & Err.Number
    Resume Exit_Handler
End Sub

Argy

[jj4822]

Bonjour.

Merci argyronet pour cette reponse. Je vais utiliser ce type de gestion d'erreur.

Je travaille avec la version complete d'Access 2007 sur Windows 7.

J'ai constate que :
- si je fais une copie du fichier Access et que je modifie les options pour bloquer les acces aux tables et autres elements Access sous windows 7, j'ai une erreur 430 lorsque j'utilise le programme avec le Runtime Access sous windows XP lorsque s'execute :

Code :

1
2
3
4
 
 
Set oConn = New ADODB.Connection
    Set oConn = CurrentProject.Connection

- par contre, si je fais la meme operation avec Access 2007 version complete sur Windows XP, tout fonctionne parfaitement sous le Runtime Access et Windows XP.

Je bloque ces options car je souhaite que quelqu'un qui utilise la version complete d'Access ne puisse pas intervenir sur les tables.

Cdlt.