Discussion :

[adrien.gendre]

Bonjour en fait je fait une requête dans ma table pour sélectionner mes séquences qui sont entre les deux dates que j'ai saisie et je ne comprend pas pourquoi il me sort aucune séquence. je vous montre mon code :

Code :

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

1
2
3
4
5
6
7
8
 
Dim db_Sequence As DAO.Recordset
Set db_Sequence = CurrentDb.OpenRecordset("SELECT NUMSEQU FROM ETAT WHERE DEBSEQ BETWEEN #" & txtJoursDeb.Value & "# And #" & txtJoursFin.Value & "#")
 
If db_Sequence.RecordCount = 0 Then
    MsgBox "Aucune séquence n'est trouvée", vbCritical, "Erreur de critère"
    Exit Sub
End If

Est ce que l'erreur viendrait du code ?
Merci
Cordialement
Adrien GENDRE

[Heureux-oli]

D'où vient
txtJoursDeb.Value ?

.value n'est pas nécessaire, mais c'est pas la source du problème.

Essaie de faire un debug.print sur tes deux valeurs txtJoursDeb.Value et txtJoursfin.Value

C'est la source de tes ennuis je pense.

[Invité]

Bonjour

Petit complément : Es-tu sûr que toutes tes données (Champs, etc ...) sont bien des dates ou au format date ?

Starec

[adrien.gendre]

En fait il me sort le bon résultat une fois sur deux c'est régulier ! Je trouve sa très étrange voici mon code à présent :

'La requête change si on sélectionne par période ou par jours

Code :

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

1
2
3
4
5
6
7
If OptPeriode.Value = True Then
    Set db_Sequence = CurrentDb.OpenRecordset("SELECT ETAT.NUMSEQU FROM ETAT WHERE PERIODE = '" & Demande_Periode & "'", dbOpenDynaset)
ElseIf OptPeriode.Value = False Then
    txtJoursDeb.Value = Format(txtJoursDeb.Value, "mm/dd/yyyy \ hh:nn:ss")
    txtJoursFin.Value = Format(txtJoursFin.Value, "mm/dd/yyyy \ hh:nn:ss")
    Set db_Sequence = CurrentDb.OpenRecordset("SELECT ETAT.NUMSEQU FROM ETAT WHERE DEBSEQ > #" & txtJoursDeb.Value & "# And DEBSEQ < #" & txtJoursFin.Value & "#")
End If