Discussion :

[s.jean]

Bonjour,

J'ai un formulaire frmFournisseurs, que je peux ouvrir soit directement dans mon menu soit via un bouton sur le formulaire frmVirement.

Ce formulaire frmVirement contient des sous-formulaires avec des listes déroulantes, dont les données se trouvent dans frmFournisseurs.

Lorsque j'ouvre frmFournisseurs à partir de frmVirement je souhaite qu'il mette à jour frmVirement lorsque je le ferme et que je me retrouve sur frmVirement.

J'ai donc utilisé cette fonction :

Code :

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

1
2
3
4
5
6
7
8
9
Function fIsLoaded(strFormName As String) As Boolean
    Dim ObjAcc As AccessObject
    Set ObjAcc = CurrentProject.AllForms(strFormName)
    If ObjAcc.IsLoaded Then
        If ObjAcc.CurrentView <> acCurViewDesign Then
            fIsLoaded = True
        End If
    End If
End Function

Le code que j'ai utilisé dans frmFournisseurs est celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Close()
stDocName = "frmVirement"
 
If fIsLoaded(stDocName) = 0 Then
 
Forms(stDocName)!cmbBeneficiaire.Requery
Forms(stDocName)!cmbFournisseur.Requery
Forms(stDocName)!cmbFournisseurBanque.Requery
Forms(stDocName)!frmFournisseursBanques.Requery
Forms(stDocName)!frmFournisseursBeneficiaires.Requery
End If
 
End Sub

Mais si mon formulaire frmVirement est fermé il m'affiche un message, que le formulaire frmVirement est introuvable (forcément il est fermé justement !) et me surligne la 1ère ligne Form(stDocName) ... en débogage.

Comment arranger cela ?

merci beaucoup

Sandrine

[LedZeppII]

Bonjour,

Peut-être en remplaçant 0 par True ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Close()
stDocName = "frmVirement"
 
If fIsLoaded(stDocName) = True Then
 
Forms(stDocName)!cmbBeneficiaire.Requery
Forms(stDocName)!cmbFournisseur.Requery
Forms(stDocName)!cmbFournisseurBanque.Requery
Forms(stDocName)!frmFournisseursBanques.Requery
Forms(stDocName)!frmFournisseursBeneficiaires.Requery
End If
 
End Sub

A+

[vodiem]

salut s.jean et LedZeppII

visiblement tu as un pb avec la valeur que renvoie fIsLoaded()
n'ayant pas le code on aura du mal à t'aider.

pour ne pas avoir à faire de supposition je ferais cela:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Close()
On Error Resume Next
stDocName = "frmVirement"
 
Forms(stDocName)!cmbBeneficiaire.Requery
Forms(stDocName)!cmbFournisseur.Requery
Forms(stDocName)!cmbFournisseurBanque.Requery
Forms(stDocName)!frmFournisseursBanques.Requery
Forms(stDocName)!frmFournisseursBeneficiaires.Requery
End Sub

vodiem