Bonjour j'ai ce code qui doit déconner un peut
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
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
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
Il me lance la msgbox alors qu'il ne devrait pas !!??!!??
Code : Sélectionner tout - Visualiser dans une fenêtre à part sql = "SELECT Date_Comm FROM Commandes WHERE Commandes.Date_Comm = #08/10/2005#"
Si qqn a une idée elle sera le bienvenue.
Merci
Partager