[vba-access] Recordcount et date [Résolu/Fermé]

Signaler
Messages postés
26
Date d'inscription
jeudi 10 février 2011
Statut
Membre
Dernière intervention
16 mars 2018
-
Messages postés
6
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
6 mai 2011
-
Bonjour à tous,

je reviens ici car j'ai un petit problème avec un recordcount

J'ai deux combobox (une avec un numéro, l'autre avec une date)
J'aimerai que quand on choisi un numéro et une date et quand on appuis sur le bouton valider, ca compare le numéro et la date saisie a ma base de donnée. et en fonction de si ca existe ou non ca m'envoie un message d'erreur.

Voici mon code utilisé :
Dim db As DAO.Database
Dim RST1 As DAO.Recordset
 
    Set RST1 = CurrentDb.OpenRecordset("select * from LIVRAISON where numero = '" & Me.ComboBox5 & "' and date_livraison = '" & Me.ComboBox6 & "'")
 
If RST1.RecordCount <> 0 Then
    DoCmd.Close
    DoCmd.OpenForm ("LIGNELIVRAISON")
Else
    MsgBox ("Le numero de livraison n'existe pas avec cette date")
End If
Exit Sub


l'erreur est : Type de donnée incompatible dans l'expression du critère
Je pense que c'est un problème a cause de la combobox6 qui est sous forme jj/mm/aaaa mais je ne sais pas comment faire.

Merci d'avoir pris le temps de me lire


3 réponses

Messages postés
6
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
6 mai 2011
4
bonjour syikmou08 essai avec ceci )
date_livraison = '" & Format (Me.ComboBox6 , "jj/mm/yy") & "'")
tiens moi au courant
Messages postés
26
Date d'inscription
jeudi 10 février 2011
Statut
Membre
Dernière intervention
16 mars 2018
2
J'ai trouver la solution en fesant ceci :
Dim db As DAO.Database  
Dim RST1 As DAO.Recordset  

    Set RST1 = CurrentDb.OpenRecordset("select * from LIVRAISON where numero = '" & Me.ComboBox5 & "' and format(date_livraison,'yymmdd') = '" & Format(Me.ComboBox6, "yymmdd") & "'")  

If RST1.RecordCount <> 0 Then  
    DoCmd.Close  
    DoCmd.OpenForm ("LIGNELIVRAISON")  
Else  
    MsgBox ("Le numero de livraison n'existe pas avec cette date")  
End If  
Exit Sub


Merci de ton aide :)
Messages postés
6
Date d'inscription
lundi 26 mai 2008
Statut
Membre
Dernière intervention
6 mai 2011
4
de rien
je developpais tres souvant en access vba mais maintenant j'ai virer en php néamoins prends mes contact tsall1@yahoo.fr et n'hésite pas à me joindre on pourait partager beaucoup de chose