Discussion :

[target111]

bonjour

Dans un formulaire j'ai rajouté ce code

Code :

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

1
2
3
4
'On vérifie que le formulaire 04 est ouvert et si oui on l'actualise
If CurrentProject.AllForms("04_AJOUTS_CARACTÉRISTIQUES").IsLoaded Then
    Form_04_AJOUTS_CARACTÉRISTIQUES.Requery
End If

donc si le formulaire est ouvert il ce met à jour par contre si il est fermer j'ai l'erreur 2478

erreur 2478
access ne vous permet pas d'utiliser cette méthode dans l'affichage en cour

j'en déduis que si le formulaire n'est pas ouvert il faudrait sortir de la procédure une personne peut elle m'aider pour la procédure

merci d'avance pour vos réponses

Cordialement

[madefemere]

Bonjour,

Il y a des approximations dans l'écriture du code, ce qui induit en erreur dans son exécution :

Si le nom du formulaire est bien "04_AJOUTS_CARACTÉRISTIQUES", le code serait :

Code :

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

1
2
3
If CurrentProject.AllForms("04_AJOUTS_CARACTÉRISTIQUES").IsLoaded Then
    Forms!04_AJOUTS_CARACTÉRISTIQUES.Requery
End If

Cordialement.

[hyperion13]

Ce n'est en tout cas pas ce code qui génère l'erreur. Puisque si le form n'est pas chargé, le requery ne s'exécute pas.

[Invité]

Bonjour
Bizarre.
Si le formulaire n'est pas ouvert, la condition ne s'exécute pas et la procédure se poursuit.
Il y a sans doute un des formulaires concernés qui est ouvert en mode création.


Il faut mettre en place une gestion d'erreur qui permet à la fois de localiser le problème, de l'identifier et de le corriger....

[Ric500]

Bonjour,

J'ai une petite fonction qui parcourt les formulaires ouverts dans la collection 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
Function EstOuvert(NomFormulaire)
          ' Argument(s) : un nom de formulaire.
          ' Action : détermine si un formulaire est actif.
          ' Valeur(s) renvoyée(s) : True si le formulaire spécifié est actif ;
          '          False dans le cas contraire.
          ' Voir : Chapitre 3.
 
              Dim i
              EstOuvert = False
              For i = 0 To Forms.Count - 1
              If Forms(i).FormName = NomFormulaire Then
                  EstOuvert = True
                  Exit Function   ' Quitte la fonction une fois le formulaire trouvé.
              End If
              Next
End Function

En la mettant dans un module général, tu peux interroger ton code comme suit:

Code :

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

if EstOuvert("04_AJOUTS_CARACTÉRISTIQUES") then forms!04_AJOUTS_CARACTÉRISTIQUES.requery

Bonne journée.

[Invité]

Bonjour,

Il y a des approximations dans l'écriture du code, ce qui induit en erreur dans son exécution :

Si le nom du formulaire est bien "04_AJOUTS_CARACTÉRISTIQUES", le code serait :

Code :

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

1
2
3
If CurrentProject.AllForms("04_AJOUTS_CARACTÉRISTIQUES").IsLoaded Then
    Forms!04_AJOUTS_CARACTÉRISTIQUES.Requery
End If

Cordialement.

Pas forcément

Cette syntaxe fonctionne aussi et est reconnue dans les propriétés/méthodes



Cordialement

[target111]

Bonjour

Merci à vous tous pour vos réponses vous avez beaucoup de patience avec moi et je l'apprécie énormément

Ric500 je ne suis pas foutu de mettre cette fonction tellement je suis mauvais j'ai des erreurs en essayant de la mettre ( ligne rouge dans le code )

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
Function EstOuvert(NomFormulaire)'(NomFormulaire) qui cause l'erreur
          ' Argument(s) : un nom de formulaire.
          ' Action : détermine si un formulaire est actif.
          ' Valeur(s) renvoyée(s) : True si le formulaire spécifié est actif ;
          '          False dans le cas contraire.
          ' Voir : Chapitre 3.
 
              Dim i
              EstOuvert = False
              For i = 0 To Forms.Count - 1
              If Forms(i).FormName = NomFormulaire Then 'NomFormulaire qui cause l'erreur
                  EstOuvert = True
                  Exit Function   ' Quitte la fonction une fois le formulaire trouvé.
              End If
              Next
End Function

j'essaye quand même de trouver des solutions j'ai mis ce code a la fin (ligne rouge) il fonctionne GAYOT tu avais raison si le formulaire 04 est en mode création ça ne fonctionne pas par contre s'il est fermer ou ouvert la tout fonctionne

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
Private Sub LD_CIVILITE_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("T_0_Civilité") 'T_0_Civilité = table concernée par l'ajout
    rst.AddNew
    rst!Civilité = NewData 'Civilité = champ table concerné par l'ajout dans la liste déroulante
    rst.Update
    rst.Close
    Set rst = Nothing
Response = acDataErrAdded
If CurrentProject.AllForms("03_SUPPRIME_LISTE_DEROULANTES").IsLoaded Then
    Forms![03_SUPPRIME_LISTE_DEROULANTES]![FS_0_Civilité].Form.RecordSource = Forms![03_SUPPRIME_LISTE_DEROULANTES]![FS_0_Civilité].Form.RecordSource
End If

If CurrentProject.AllForms("04_AJOUTS_CARACTÉRISTIQUES").IsLoaded = True Then
Form_04_AJOUTS_CARACTÉRISTIQUES.Requery
Else
Exit Sub
End If

End Sub

encore merci pour vos réponses

Cordialement

[Invité]

Dans le cas présent le

Code :

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

1
2
Else
Exit Sub

ne sert à rien.
En effet tu arrives de toute façon à la fin de la procédure et si le formulaire est fermé il n'y a rien à effectuer.

[target111]

Bonjour

Merci je l'enlève de ce pas

Cordialement

[tee_grandbois]

bonjour,
ce n'est pas la peine de t'embêter à ajouter le code de ric500, puisque le IsLoaded fait nativement la même chose ... la solution à ton souci tu l'as donné dans ta réponse:

GAYOT tu avais raison si le formulaire 04 est en mode création ça ne fonctionne pas par contre s'il est fermer ou ouvert la tout fonctionne

la situation d'un formulaire en mode création n'a pas lieu d'exister quand il est en exploitation, seuls les développeurs auront accès à ce mode et ils savent très bien gérer ce genre d'erreur en passant outre ...

[target111]

bonjour

d'accord avec toi le problème je ne suis pas développeur et je ne sais pas gérer ce genre de problème d'ailleurs je ne le savais même pas qu'en mode création il y avait problème paracerque dans les deux autres formulaires s'ils sont en mode création ne créer pas d'erreur donc j'ai suivi le même principe pour le formulaire 04

Cordialement

[tee_grandbois]

d'accord avec toi le problème je ne suis pas développeur

tu l'es de fait vu que tu codes des formulaires