Discussion :

[hyperion13]

Bonjour tout le monde,

J'ai créé un base de données et pour ouvrir mes formulaires et états j'utilise le gestionnaire de menu général.

Depuis quelque temps, j'ai une erreur d'exécution 2046 "...action AtteindreEnregistrement n'est pas disponible pour l'instant" lorsque je demande l'ouverture de formulaires via le gestionnaire et qui contiennent la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE ....... ;"
    DoCmd.SetWarnings True
    DoCmd.MoveSize 3500, 0
    DoCmd.CLOSE acForm, "Menu Général"
    DoCmd.GoToRecord acForm, "MonForm", acLast
    Me.MonSForm.SetFocus
    Me.MonSForm!MonChamp.SetFocus
    Me.MonSForm.Form.Recordset.AddNew
End Sub

C'est la ligne

Code :

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

DoCmd.GoToRecord acForm, "MonForm", acLast

qui pose problème.
Par contre, si j'ouvre ces formulaires en passant par la liste des objets Formulaire, il n'y a pas d'erreur !
Quelqu'un aurait-il une idée du problème ?
Merci d'avance.

[hyperion13]

Re-bonjour,

Je pense à priori avoir trouvé la cause du problème.
J'ai simplement déplacé la commande

Code :

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

DoCmd.CLOSE acForm, "Menu Général"

à la fin de ma syntaxe.

@+