[vba-access] Recordcount et date

Résolu
stikmou08 Messages postés 27 Date d'inscription   Statut Membre Dernière intervention   -  
moussasall Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -
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

Réponse 1 / 3
moussasall Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour syikmou08 essai avec ceci )
date_livraison = '" & Format (Me.ComboBox6 , "jj/mm/yy") & "'")
tiens moi au courant
0
Réponse 2 / 3
stikmou08 Messages postés 27 Date d'inscription   Statut Membre Dernière intervention   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 :)
0
Réponse 3 / 3
moussasall Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   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
0

Discussions similaires

Sécurité réseau
Astafor99 -
Astafor99 -

4 réponses
je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
Acer quick access
Bidou21 -
sortout -

2 réponses
Problème publipostage date de naissance
garbiche22 -
cg13 -

3 réponses
C'est quoi le runtime Access ?
Pekin -
Pekin -

2 réponses