Discussion :

[To12]

Bonjour ,
Dans un formulaire après mise à jour de la date je défini la valeur du Champ : N°FactImp avec ce Code

Code :

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

1
2
3
4
Private Sub DateFacture_AfterUpdate()
Me.N°FactImp = DMax("N°FactImp", "1-FactureEntête") + 1
 
End Sub

Je n'arrive pas à annuler l'évenement si le champ n'est pas nul !!
Merci pour votre aide

[argyronet]

Bonjour,

Je n'arrive pas à annuler l'évenement si le champ n'est pas nul !!

Que veux-tu au juste ?
Annuler l'événement si le champ est nul ou bien s'il ne l'est pas ?
Je ne comprends pas ton objectif.
N'importe comment un encadrement avec un IF/End If devrait t'aider dans ta démarche...

Argy

[To12]

Bonjour,

Que veux-tu au juste ?
Annuler l'événement si le champ est nul ou bien s'il ne l'est pas ?
Je ne comprends pas ton objectif.
N'importe comment un encadrement avec un IF/End If devrait t'aider dans ta démarche...

Je veux dire :Si le champ comporte déja un N° , surtout ne pas répété l'action en cas de changement de date sur une facture existante !
Merci pour votre aide je franchis le pas des macros vers le VBA .
Il y a t'il un tutoriel pour bien débuté ?

[argyronet]

Humm, Mouais...
Eh bien tu dois repenser, selon moi le concept de tes formulaires.
En mode consultation, il ne doit pas y avoir d'événement sur ce champ et même, il doit être verrouillé.
En mode ajout (de nouvelle facture), il y a événment mais avec des clause de réserve de concordance lié à l'enregistrement en cours.

Cela revient à dire qu'il te faut un formulaire pour la création de facture et un autre pour les consulter et ce avec des propriété différentes.

Par exemple, l'événement de la roulette de la souris peut déclencher la validation de ton enregistrement alors que celui-ci n'est pas complet de même que certaines touches (Tab, Entrée) selon la position du curseur.

Du peu que je comprends, tu as du te précipiter sur la conception pratique sans penser aux aspects techniques du comportement des données dans Access : ce n'est pas un repproche, c'est comme ça qu'on apprend et on est tous passé par là


Il est judiceux dans le cas d'un N° de facture de passer par un n°auto compteur plutôt qu'un incrément établit comme tu l'a mis en place.

Maintenant, si tu veux rester avec ce concept fragile et peu fiable s'il est utilisé comme tel, tu modifies ton code de la façon suivante :

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
Private Sub DateFacture_AfterUpdate()
Dim vntDernierNoFacture as Variant
 
    vntDernierNoFacture = DMax("[N°FactImp]", "1-FactureEntête") 
 
    If Not IsNull(lngDernierNoFacture) Then
        vntDernierNoFacture = vntDernierNoFacture + 1
    Else
        vntDernierNoFacture = 1
    End If
 
    If IsNull(Me.N°FactImp) Then
        Me!N°FactImp = vntDernierNoFacture 
    End If
End Sub

Argy

[To12]

Merci beaucoup Argyronet

J'ai toujour hésiter à doubler les formulaires ,
Erreur de ma part ,ca va me simplifier la tache ,
et rendre la base plus sure .
Merci encore et à bientot