Discussion :

[Malick]

Je dispose d'une table tApproCartets servant à enregistrer mes entrées en stocks de carnets contenant chacun des tickets de carburant :



Au fil du temps, les tickets contenus dans les carnets sont livrés en fonction des besoins, ce qui implique la création de la table tLivraisonTickets.



Sur la deuxième table, nous remarquons un chevauchement entre les numéros des tickets livrés sur le Bloc 2 notamment les tickets 13 et 14 . Cela veut dire qu'il y aura des doublons sur les numéros de tickets enregistrés comme des livraisons dans la base de données (ce qui est impossible dans la réalité).

Ma question

Pensez-vous qu'il y a un moyen de contrôler les numéros des tickets saisis au moment de la livraison pour un même bloc ; cela afin d'éviter les doublons et le chevauchement des numéros de tickets ?

Les saisies sont effectuées via des formulaires.

Merci d'avance pour vos avis et conseils avisés

Cordialement,
Malick

[madefemere]

Bonjour Malick,

J'avais un peu de temps donc, je pense que ce code devrait faire l'affaire :
Un module dans le formulaire pour la vérification :

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
18
19
20
Private Sub VerifierPresenceIntervalle(prticket As Variant)
Dim db As DAO.Database
Dim rstdetail As DAO.Recordset
Dim strsql As String
Set db = CurrentDb
strsql = "SELECT tLivraisonTickets.[idCarnet_FK], Min(tLivraisonTickets.NumDebut) AS MinDebut," _
        & " Max(tLivraisonTickets.NumFin) AS MaxFin" _
        & " FROM tLivraisonTickets" _
        & " WHERE [idCarnet_FK]=" & Me.idCarnet_FK _
        & " GROUP BY tLivraisonTickets.[idCarnet_FK]"
Set rstdetail = db.OpenRecordset(strsql, dbOpenSnapshot)
With rstdetail
    If (prticket > ![MinDebut] And prticket < ![MaxFin]) Or prticket < ![MinDebut] Then
        MsgBox "Ticket déjà émis !"
        Me.Undo
    End If
End With
rstdetail.Close: Set rstdetail = Nothing
db.Close: Set db = Nothing
End Sub

Appelé dans les évènements Avant mise à jour des 2 contrôles, avec une vérification pour le dernier numéro.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub NumDebut_BeforeUpdate(Cancel As Integer)
VerifierPresenceIntervalle (Me.NumDebut)
End Sub
Private Sub NumFin_BeforeUpdate(Cancel As Integer)
If Me.NumFin < Me.NumDebut Then
    MsgBox "le dernier numéro ne peut être inférieur au premier !"
End If
VerifierPresenceIntervalle (Me.NumFin)
End Sub

Je n'ai pas mis de vérification des données envoyées, à adapter et rajouter je pense.

Cordialement.

[Malick]

Bonjour Madefemere,

Merci beaucoup encore pour ta disponibilité et ton aide.

Je vais essayer d'adapter ta proposition ; je te reviens pour t'informer de la réussite

Cordialement

[Malick]

Si je comprends bien, ta proposition permet d'éviter le chevauchement des numéros saisis et les doublons ?

Avec cela, c'est super.

Je n'ai pas mis de vérification des données envoyées, à adapter et rajouter je pense.

Je n'ai pas bien compris cette partie ?

[madefemere]

Bonjour,

Si je comprends bien, ta proposition permet d'éviter le chevauchement des numéros saisis ?

Oui !

Je n'ai pas mis de vérification des données envoyées, à adapter et rajouter je pense.
Je n'ai pas bien compris cette partie ?

Le code ne vérifie pas la conformité des valeurs (saisies) dans la champ NumDebut et NumFin (autres que numérique) avant son exécution.
Un simple IsNumeric ou Not IsNull au début je pense.

Cordialement.

[Malick]

Le code ne vérifie pas la conformité des valeurs (saisies) dans la champ NumDebut et NumFin (autres que numérique) avant son exécution.
Un simple IsNumeric ou Not IsNull au début je pense.

Ok je comprend maintenant ; je pense que cela ne posera pas de problème pour l'adaptation

Code :

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

prticket As Variant

Sinon à quoi correspond la variable prticket? Elle n'a pas besoin d'être initialisée ?

[madefemere]

Bonjour,

prticket est la variable qui va recevoir la valeur du champ à vérifier (Cf ligne 13 du code).
En fait je l'ai mis en variant parce qu'initialement j'utilisais le code pour vérifier des dates. Tu peux mettre le type à Integer pour ton cas.

Cordialement.

[Malick]

Bonjour,

Merci pour la précision.

Je vais maintenant essayer de l'adapter à mon cas. Je te tiens au courant de la suite

Cordialement

[Malick]

Bonjour madefemere,

J'ai adapté ta proposition, mais j'ai un souci durant la saisie.

La première livraison pour un bloc donné (exemple bloc 1) se présente comme suit :



Au moment de la saisie d'une deuxième livraison pour le même bloc via le formulaire fSortieTickets, j'ai un message d'erreur :



Donc la saisie est bloquée à ce niveau et le clic sur le bouton débogage met en couleur jaune la ligne concernée (voir commentaire dans le code : ligne 13) :

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
18
19
20
Private Sub VerifierPresenceIntervalle(prticket As Integer)
Dim db As DAO.Database
Dim rstdetail As DAO.Recordset
Dim strsql As String
Set db = CurrentDb
strsql = "SELECT tSortieTickets.[idSortie_pk], Min(tSortieTickets.NumDebTicketSortie) AS MinDebut," _
        & " Max(tSortieTickets.NumFinTicketSortie) AS MaxFin" _
        & " FROM tSortieTickets" _
        & " WHERE [idSortie_pk]=" & Me.idSortie_pk _
        & " GROUP BY tSortieTickets.[idSortie_pk]"
Set rstdetail = db.OpenRecordset(strsql, dbOpenSnapshot)
With rstdetail
    If (prticket > ![MinDebut] And prticket < ![MaxFin]) Or prticket < ![MinDebut] Then 'Ligne coloriée en jaune avec le débogage
        MsgBox "Ticket déjà émis !"
        Me.Undo
    End If
End With
rstdetail.Close: Set rstdetail = Nothing
db.Close: Set db = Nothing
End Sub

Pourriez-vous m'aider à identifier le problème ?

Merci d'avance

Cordialement

[madefemere]

Bonjour Malick,

Il y a une erreur dans l'expression SQL, tu fais référence au champ idSortie_pk alors que le regroupement et filtre devrait être par rapport au champ idBlockTickets_fk

Code :

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

1
2
3
4
5
strsql = "SELECT tSortieTickets.[idBlockTickets_fk], Min(tSortieTickets.NumDebTicketSortie) AS MinDebut," _
        & " Max(tSortieTickets.NumFinTicketSortie) AS MaxFin" _
        & " FROM tSortieTickets" _
        & " WHERE [idBlockTickets_fk]=" & Me.idBlockTickets_fk _
        & " GROUP BY tSortieTickets.[idBlockTickets_fk]"

Cordialement.

[Malick]

Bonjour Madefemere,

Effectivement le problème venait du code Sql

Pour les numéros compris entre 300 et 305, le contrôle des tickets émis fonctionne très bien. Pour les suivantes

Maintenant il me semble qu'il manque un contrôle sur le chevauchement du numéro de fin, car comme le montre la capture ci-dessous, j'ai le 307 qui apparaît comme fin et comme début de l'enregistrement suivant

	Et pourtant lorsque je saisis le numéro 305, j'ai bien la vérification effectuée avec succès :

Merci pour ton aide

Cordialement

[Malick]

Finalement j'ai trouvé le souci. En effet, il fallait juste remplacer :

Code :

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

If (prticket > ![MinDebut] And prticket < ![MaxFin]) Or prticket < ![MinDebut]

par :

Code :

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

If (prticket >= ![MinDebut] And prticket <= ![MaxFin]) Or prticket < ![MinDebut]

Merci beaucoup encore

[Malick]

Merci Madefemere

Maintenant je souhaite intégrer dans le code une routine qui permet de vérifier que les numéros saisis ne sont pas supérieurs au dernier numéro du bloc. Un code du genre :

Code :

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

1
2
3
4
5
If Me.NumDebTicketSortie>!MaxFin Or Me.NumFinTicketSortie> !MaxFin Then
 
MsgBox " Ce ticket n'existe pas dans le bloc choisi"
 
End If

Une idée sur l'endroit qu'il faut le placer ?

Merci d'avance

Cordialement

[Malick]

Bonjour,

Madefemere : Finalement j'ai utilisé la fonction DlookUp pour faire le contrôle évoqué plus haut :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub NumFinTicketSortie_BeforeUpdate(cancel As Integer)
    If Me.NumFinTicketSortie < Me.NumDebTicketSortie Then
        MsgBox "le dernier numéro ne peut être inférieur au premier !"
    End If
        VerifierPresenceIntervalle (Me.NumFinTicketSortie)
         'S'assurer que le numéro du ticket saisi existe dans le bloc
         If Me.NumFinTicketSortie > Nz(DLookup("[NumFinTicket]", "tBlocsTickets", "[idBlocTicket_pk] = idBlocTickets_fk"), " ") Then
           MsgBox "Ce ticket n'existe pas dans le bloc spécifié"
              cancel = True
         End If
End Sub

Le problème est maintenant résolu

Un seul mot à toi :

Cordialement

[Invité]

Bonjour,
pourquoi ne pas utiliser des auto incrément et gérer également l'intégrité référentiel??

il y a sens doute une bonne raison car tu ne me semble pas novice!

[Malick]

Bonjour,
pourquoi ne pas utiliser des auto incrément et gérer également l'intégrité référentiel??

rdurupt

J'ai fait cela. Voir la discussion de base ici.

il y a sens doute une bonne raison car tu ne me semble pas novice!

Là c'est la borne supérieure d'un bloc donné que je compare au numéro de ticket saisie. cela me permet de ne pouvoir saisir que les tickets contenus dans un bloc préalablement choisi

Cordialement