Discussion :

[Jay45]

Bonjour,


Je souhaiterais dans un code VB au chargement d'un etat Access tester si un formulaire est ouvert. Ensuite recuperer deux valeurs de champs de ce formulaire et les attribuer a deux champs de mon etat.

Si le formulaire n'est pas ouvert, que l'utilisateur est une invite pour remplir ces deux champs.

Je debute en VB. J'ai trouve la foncton de test de formulaire, il doit falloir utiliser une Inputbox egalement, mais je n'arive pas a mettre tout en order pour que ca marche :-)

Merci d'avance pour votre aide.

@+++

Jay

[stéphane_ais2]

Bonjour,

Quelle est la source initiale de l'état?

SE

[Jay45]

La source de l'etat est une requete.

En fait, j'utilise cette requete.

Si mon formulaire que je teste est ouvert, je souhaite que les deux valeurs renseignees ds mon formulaire soit pris en compte dans mon etat, sinon que l'utilisateur est un message de saisie de ces deux champs.

Suis-je clair ?


Merci d'avance.

@+++

Jay

[Ric500]

Salut,

J'utilise régulièrement cette fonction pour tester sur l'ouverture d'un form (tu peux aussi l'adapter pour tester sur l'ouverture d'un état):

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
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

Au final, sur l'événement formatage (plutôt que chargement), tu fais:

Code :

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

1
2
3
4
5
6
7
If EstOuvert("Form1") then
   reports!Etat1!Ctrl1=forms!Form1!Ctrl1
   reports!Etat1!Ctrl2=forms!Form1!Ctrl2
else
   reports!Etat1!Ctrl1=inputbox("Veuillez saisir la valeur 1:")
   reports!Etat1!Ctrl2=inputbox("Veuillez saisir la valeur 2:")
end if

J'espère répondre à ta question, cordialement,

[Jay45]

Merci Ric500,


Je teste ca dans la semaine et je te dis, mais ca m'a l'air plutot bien.

Merci pour ton aide.

@+++

Jay

[Jay45]

Le code de test d'ouverture fct.

Par contre, lorsqu'il arrive sur la ligne de code reports![nom de l'etat]![ctrl1] = xxxx

VB m'indique : Impossible d'attribuer une valeur a cet objet.

As-tu une idee ?


@+++

Jay

[Ric500]

Essaie sur l'événement formatage de la section.

[Jay45]

C'est idem sur la section.

Voici le message d'erreur complet :

Impossible d'attribuer une valeur a cet objet

* L'objet est peut etre un controle sur un formulaire en lecture seule
* Il est peut etre sur un formulaire ouvert en mode creation
* Il est possible aussi que la valeur soit trop grande pour ce champ


Bizarre....

[Ric500]

Pour affecter une valeur à ton contôle, à partir de l'événement formatage, il faut bien sûr aussi que la propriété source du contrôle en question soit vide.