Discussion :

[valery17]

Salut a tous,

J'ai cree un formulaire Commande qui marche sans probleme.Mais je suis Confronté á un probleme.Etant nouveau dans Access.Je voudrais que vous m'aidiez.
Je voudrais chaque fois avant d'enregistrer une nouvelle Commande(No d'identification) Apparait une petite Case me demandant si je veux enregistrer cette Commande definitivement ou alors la modifier.
Quelqu'un sait-il comment cela fonctionne?

Cordialement

[Tofalu]

Interresse toi à l'évenement BeforeUpdate du formulaire en question.

Et à l'avenir, utilises des titres corrects dans tes messages, je ne voit pas le rapport avec l'impression

[valery17]

Stp essayez de m'eclairer cela un peu.
Que devrais-je ecrire a BeforeUpdate du Formulaire.

Cordialement

[Tofalu]

Et bien tu demandes via un MsgBox si l'utilisateur souhaite enregistrer ou pas.

Si il répond oui, tu ne fais rien, tu laisses Access gérer. Si non, tu fixe Cancel à True et annule la mise à jour avec me.Undo()

[valery17]

Cher Moderateur j'ai essaye cela.Mais cela ne me reponds pas par oui ou Non comme je le veux.
Voici mon kode:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim sql As String

sql = "Si vous enregistrez cela,vous ne pourriez plus la changer"

MsgBox sql

End Sub

Cordialement

[Tofalu]

STOP !

Tu as consulter l'aide sur Msgbox ?

Et pourquoi tu appelles ta variable SQL ?

Essaye de réflechir avant de faire n'importe quoi

[valery17]

Cher Moderateur,
Excusez-moi de cet Empressement.
Voici le Kode:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim intS As Integer

intS = MsgBox("Si vous enregistrez cela,vous ne pourriez plus la changer")

End Sub

Cordialement

[james35]

Salut Valery,
Je pense que cette solution va arranger ton probleme.

Voici le Code qui je pense est le bon:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_BeforeUpdate(Cancel As Integer) 
    Select Case MsgBox("Tu donnes ton petit texte ici?", _ 
                       vbYesNoCancel + vbQuestion, _ 
                       "Enregistrement approuve") 
      Case vbNo 
        Cancel = True 
        Me.Undo 
      Case vbCancel 
        Cancel = True 
   End Select 
End Sub

Cordialement

[valery17]

Salut ,

Mais le probleme n'est pas completement resolu.
car si j'appuie la touche Non,Apparait le document alors que je ne veux pas. Est-ce-que quelqu'un peut m'aider de tout ce que je suis entrain de faire.

Voici mon 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
 
<div style="text-align: left;">Private Sub Form_BeforeUpdate(Cancel As Integer) 
    Select Case MsgBox("Tu donnes ton petit texte ici?", _ 
                       vbYesNoCancel + vbQuestion, _ 
                       "Enregistrement approuve") 
      Case vbNo 
        me.commande22.move
        Cancel = True 
        me.Undo
      Case vbCancel 
       me.commande22.move
        Cancel = True 
   End Select 
End Sub</div>

Ou est l'erreur?

[Tofalu]

Faut peut être mettre me.undo avant le cancel C'est quoi le move du bouton ?

[valery17]

Cela n'a pas marche comme je le pensais.
Cela annule. mais la commande22 est toujours active

[Tofalu]

Bien sur puisque nulle part tu lui dit de le désactiver. Va falloir penser à consulter l'aide avant

[Tofalu]

Bien sur puisque nulle part tu lui dit de le désactiver. Va falloir penser à consulter l'aide avant d'écrire du code faux

[valery17]

Stp, quel Kode devrais-je donc ecrire?

La commande22 est "Commande imprimer".Et cela Imprime sur le doc.dot.

Merci d'avance

[Tofalu]

Pour activer/desactiver un controle, utilise sa propriété enabled

[valery17]

Stp comment devrais-je posseder.Ou devrais-je ecrire la propriete Enable

[Tofalu]

Et l'aide et la FAQ. Stop, tu n'essayes pas de reflechir, je ferme le sujet