Discussion :

[Virgile59]

Bonjour j'ai ce code qui doit déconner un peut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmdOK_Click()
    Dim rec As DAO.Recordset
    Dim sql As String
    sql = "SELECT Date_Comm FROM Commandes WHERE Commandes.Date_Comm = #" & Me.Date & "#"
    Set rec = CurrentDb.OpenRecordset(sql)
    If Not rec.EOF Then
        DoCmd.OpenForm "F_Saisie_Commandes"
    Else
        If MsgBox("Voulez vous ajouter les commandes journalières pour la date saisie ?", vbApplicationModal + vbQuestion + vbYesNo, "Commandes journalières") = vbYes Then DoCmd.OpenForm "F_Journalier" Else DoCmd.OpenForm "F_Saisie_Commandes"
End If
End Sub

Voilà donc comme vous pouvez le voir si le résultat de ma requête est nul il doit m'afficher la msgbox et si il y a qqch il doit ouvrir le formulaire F_Saisie_Commandes

Mais voilà même quand il y a des enregistrements dans ma table qui correspondent à la date saisie il me balance quand même la mesgbox alors qu'il ne devrait pas

En résumé si j'ai des enregistrements dans ma table à la date du 08/10/2005 et que je met

Code :

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

sql = "SELECT Date_Comm FROM Commandes WHERE Commandes.Date_Comm = #08/10/2005#"

Il me lance la msgbox alors qu'il ne devrait pas !!??!!??

Si qqn a une idée elle sera le bienvenue.
Merci

[Alexandre Sahli]

Il me semble qu'il y a des petites erreurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub cmdOK_Click() 
    Dim rec As DAO.Recordset 
    Dim sql As String 
    sql = "SELECT Date_Comm FROM Commandes WHERE Commandes.Date_Comm = #" & Me.Date & "#" 
    Set rec = CurrentDb.OpenRecordset(sql) 
    rec.movefirst
    If Not rec.EOF Then 
        DoCmd.OpenForm "F_Saisie_Commandes" 
    Else 
    If MsgBox("Voulez vous les ajouter les commandes journalières pour la date saisie ?", vbApplicationModal + vbQuestion + vbYesNo, "Commandes journalières") = vbYes Then DoCmd.OpenForm "F_Journalier" 
   Endif 
End If 
End Sub

d'autre part n'utilise pas Me.Date pour la dénomination d'une zone de texte car date est un mot réservé ce qui peut des fois perturber le code.

[Virgile59]

Il me met une erreur 3021
Aucun enregistrement en cours

la ligne rec.movefirst est en jaune

?

[argyronet]

Bonjour,

Il te faut formater ta date:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cmdOK_Click() 
    Dim Ladate As String
    Dim rec As DAO.Recordset 
    Dim sql As String 
    Ladate = "#" & Format(Me!Date, "mm/dd/yyyy") & "#"
    sql = "SELECT Date_Comm FROM Commandes WHERE Commandes.Date_Comm = " & Ladate
    Set rec = CurrentDb.OpenRecordset(sql) 
    If Not rec.EOF Then 
        DoCmd.OpenForm "F_Saisie_Commandes" 
    Else 
        If MsgBox("Voulez vous ajouter les commandes journalières pour la date saisie ?", vbApplicationModal + vbQuestion + vbYesNo, "Commandes journalières") = vbYes Then DoCmd.OpenForm "F_Journalier" Else DoCmd.OpenForm "F_Saisie_Commandes" 
End If 
End Sub

Argy

[Virgile59]

Merci à tous c'est OK !