Discussion :

[David1259]

Bonjour le forum

Problème avec une formule vba je ne comprends pas sa réaction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
   Dim Thequestion As Integer
 
   Thequestion = MsgBox("Voulez vous imprimer.", vbYesNo + vbQuestion)
 
        If Thequestion = vbYes Then
 
            DoCmd.OpenReport "E_monetat", acViewNormal, , "[ID]=" & Me.ID.Value
            DoCmd.Close acForm, "F_monformulaire", acSaveYes
 
        ElseIf Thequestion = vbNo Then
            DoCmd.OpenForm "F_monformulaire", acNormal, , 1 = 0, acFormEdit, acWindowNormal
        'Exit Sub
        End If

Quand je valide mes nouvelles données, il me demande si je veux imprimer

Quand je réponds "non" je reviens sur une page vierge pas problème

Mais quand je réponds "oui" il ouvre "E_monetat" en masqué imprime directement sans les données puis referme " E_monetat" tout ça en même temps

Si quelqu’un pouvait m'aider à comprendre où est mon erreur
Merci d'avance
David @+

et bonne année à tous

[loufab]

Bonjour,

Dans un premier temps éviter les tests qui ne servent à rien.
Le msgbox te renvoi vbYes ou vbNo donc inutile de tester l'un et l'autre,
Inutile également de créer des variables quand on s'en sert qu'une fois pour ce cas de figure.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        If MsgBox("Voulez vous imprimer.", vbYesNo + vbQuestion)=vbYes Then
 
            DoCmd.OpenReport "E_monetat", acViewNormal, , "[ID]=" & Me.ID.Value
            DoCmd.Close acForm, "F_monformulaire", acSaveYes
 
        Else
            DoCmd.OpenForm "F_monformulaire", acNormal, , 1 = 0, acFormEdit, acWindowNormal
        'Exit Sub
        End If

Dans un deuxième temps :
Pourquoi sauves-tu le formulaire ? tu as fais une modif de structure ? si c'est pour sauver des données ce n'est pas la bonne méthode. De plus c'est un dangereux de fermer un formulaire au moment d'une impression qui en a besoin.
Au moins mets un Doevents entre les deux.

Troisième chose :
Tu réouvre un formulaire apparement ouvert (monformulaire) ? Si c'est pour agir sur ses propriétés, agis-y directement dessus

Code :

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

me.mapropriété = mavaleur

1=0 dans une clause Where j'ai jamais vu et je ne vois pas à quoi ça peut servir sinon à renvoyer Faux, je ne vois toujours pas comment ACCESS va interpréter ça.

Cordialement,

[David1259]

Bonjour loufab et le forum

Merci loufab pour les infos que je ne connaissais pas

Mais mon problème reste le même je vais te dire ce que je veux faire.
Premièrement faire une vente avec le nom du client ,ses coordonnées, la vente et à la fin de cette vente j'ai un bouton de validation qui me demande si je veux imprimer ou pas.
Ensuite j'ai un état relié à ce formulaire et quand j'imprime les données que je viens d'entrer l'état s'ouvre avec mes données.
Pour pouvoir les imprimer.

Aujourd'hui quand je fais ça l'état s'ouvre soit sans les données soit il m'imprime toutes les ventes enregistrées auparavent.

Merci d'avance ,j'espère que vous pourrez m'aider.
david@+

[kiki.gaby]

Bonjour,

Pour moi les états ne se font que sur des tables ou des requêtes mais pas sur des formulaires.

Pourquoi ne pas faire une requête sélection sur la vente concernée et ensuite faire un état basé sur cette requête comme cela tu auras à l'impression le résultat de ta requête.

[loufab]

bonjour,

Regarde dans Sources/Etats il y a un article sur ce type d'impression paramétré.

Cela te permettra de réécrire un code correct et de comprendre comment ça fonctionne.

Cordialement,

[David1259]

merci

J'ai pris le chemin le plus simple l'état s'ouvre sur le dernier enregistrement ça
marche très bien

merci accord pour les infos et votre aide