Discussion :

[unlucky luke]

Bonjour,

sous VBA Access après utilisation du code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'********** Boucle sur Excel ******************
Dim BaseDeDonnees As Database
Dim enregistrementETABLISSEMENT As Recordset
Set BaseDeDonnees = CurrentDb
Set enregistrementETABLISSEMENT = BaseDeDonnees.OpenRecordset("ETABLISSEMENTTEST")

For i = 1 to (...)
NomCelluleExcel = (...)
    If FeuilleExcel.Range(NomCelluleExcel).Value = (...)
        enregistrementETABLISSEMENT.AddNew
        (...)     
        enregistrementETABLISSEMENT.Update   
    End If
Next i
 
enregistrementETABLISSEMENT.Close
FichierExcel.Close
Set ApplicationExcel = Nothing
Set BaseDeDonnees = Nothing

Exit Sub

l'utilisation en mode création mettrait la base en mode exclusif. Ensuite, en mode formulaire et après un premier test je ne peux plus manipuler correctement la base qui me renvoie une alerte (sauvegarde modification) puis un msg d'erreur concernant le verrouillage par un autre utilisateur et l'autorisation d'accès, notamment sur currentDb.

ma question : comment revenir automatiquement au mode partagé après un mode création en VBA ?

merci
bonne journée à tous
Unlucky Luke

[marot_r]

Bonjour.

J'ai déjà fait du code semblable de nombreuses fois sans avoir jamais eu ce genre de problème.

Personnellement j'ajoute toujours un close avant la désassignation de la BD. En principe cela ne sert à rien mais j'aime bien :-).

Essaye en mettant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
enregistrementETABLISSEMENT.Close:set enregistrementETABLISSEMENT.Close=nothing
BaseDeDonnees .close : Set BaseDeDonnees = Nothing

Sinon, quand j'ai un truc du genre je mets la part principal du code en commentaire, je teste puis je réactive mon code une ou quelques lignes à la fois et reteste, jusqu'à tomber sur l'instruction qui crée le problème.

Dés fois cela n'est absolument pas là où Access signalait le problème que se trouve la cause.

Bonne chasse au bug.

A+