Discussion :

[pilou37]

Bonjour à tous,
Mon code VBA me renvoi une erreur 2046 "L'action atteindre enregistrement n'est pas disponible pour l'instant".
Pourtant mon formulaire est bien ouvert avec la code DoCmd.OpenForm "Localisation initialisation", , , , , acHidden.
Mon code pour passer à l'enregistrement suivant est DoCmd.GoToRecord acDataForm, "Localisation initialisation", acNext.
Mais cette méthode me retourne cette erreur. Il ne serai pas possible de parcourir les enregistrements d'un formulaire si il est déclaré "HIDDEN" ?
Je ne souhaite pas que ce formulaire soit visible pendant sa lecture
Merci de votre aide

[ClaudeLELOUP]

Bonjour,

Bizarre !

Dans un de mes programmes j'ai ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
'faire défiler fAttestations
  DoCmd.OpenForm "fAttestations", , , , , acHidden
  Do
    DoCmd.GoToRecord acDataForm, "fAttestations", acNext
  Loop
  Exit Sub
GestionErreurs:
  Select Case Err.Number
    Case 2105 ' on atteint le dernier enregistrement
...

qui fonctionne pourtant sans problème en Access2000.

[pilou37]

Bonjour,
Oui effectivement je ne rencontrais pas ce problème sur ni sur 2000 ni sur 2003. Mais avec 2010, cet code me retourne ce message d'erreur.
J'avoue ne pas comprendre pourquoi et surtout je ne trouve pas comment contourner ce problème sauf en supprimant HIDDEN lors du docmd.openform.
J'utilise la boucle "for i = to .....next", comme je le faisais avec les autres version.
Mais dans ce cas le formulaire s'affiche et je le ferme rapidement. Cela n'est pas très logique.
Merci de votre aide.

[ClaudeLELOUP]

et surtout je ne trouve pas comment contourner ce problème sauf en supprimant HIDDEN

Tu pourrais encadrer ton processus d'un

Code :

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

1
2
3
Application.Echo False
'ton processus
Application.Echo True

qui a pour effet de geler l'écran.

[pilou37]

Oui pardon, je ne suis pas depuis longtemps sur ce forum et je n'ai pas encore l'habitude de mettre mon code sous cette forms.

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
22
23
24
25
26
27
28
29
30
31
32
33
Dim phor, phoret, pver, nbenr As Integer
    Dim nben As Variant
    Dim nomcont, valcont As String
    masquetoutcont
    phor = 667
    phoret = 283.5
    pver = 283.5
    DoCmd.OpenForm "Localisation liste site"
    nbenr = Forms![Localisation liste site].RecordsetClone.RecordCount
    i = 1
    'Affiche et place les étiquettes et les controles
    For i = 1 To nbenr
        If i = 1 Then
            Forms![Localisation].Controls("e" & i).Visible = True
            Forms![Localisation].Controls("e" & i).Top = pver
            Forms![Localisation].Controls("e" & i).Left = phoret
            Forms![Localisation].Controls("s" & i).Visible = True
            Forms![Localisation].Controls("s" & i).Top = pver
            Forms![Localisation].Controls("s" & i).Left = phor
        Else
            pver = pver + 400
            Forms![Localisation].Controls("e" & i).Visible = True
            Forms![Localisation].Controls("e" & i).Top = pver
            Forms![Localisation].Controls("e" & i).Left = phoret
            Forms![Localisation].Controls("s" & i).Visible = True
            Forms![Localisation].Controls("s" & i).Top = pver
            Forms![Localisation].Controls("s" & i).Left = phor
        End If
        Forms![Localisation].Controls("s" & i) = Forms![Localisation liste site]![Site]
        If i < nbenr Then
            DoCmd.GoToRecord acDataForm, "Localisation liste site", acNext
        End If
    Next

En espérant que ma manipulation est correcte, j'ai ajouter la balise code avant le coller de mon code.
Je ne peux mettre cette commande Docmd.openform "Localisation liste site" avec HIDDEN car ACCESS me retourne une erreur lors du lancement de la commande :

Code :

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

DoCmd.GoToRecord acDataForm, "Localisation liste site", acNext

En me disant que cette action ne peut pas être réalisée pour le moment.
Voilà.
Merci encore

[ClaudeLELOUP]

Tu n'as pas compris mon message.

Si tu ne veux pas que l'utilisateur se rende compte que le formulaire est ouvert, gèle l'écran pendant que le formulaire fait son boulot.

L'instruction

Code :

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

Application.Echo False

va geler l'écran

et quand tu as terminé, l'instruction

Code :

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

Application.Echo True

rétablit l'affichage normal.