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 ?