Un Bonjour à ceux qui mon aidé précedement l_autodidacte, ProgElecT, iclic.

Désole de revenir vers vous mais j ai toujours pas résolus mon souci DAO en vB6. mais la ligne de commande fonctionne en VB5 pour quelle raison je ne sais pas...... Si une personne a une idée voici une image et une partie du code sinon je vous laisse un lien du fichier du programme et de la base de donnée qui fonctionne pas. Sinon si on arrive pas en ADO la faire en récent contrôle de données ADO.

voici le code qui fonctionne en VB5. en precisant que c est la date qui donne l erreur pour VB6
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 DataHisto.DatabaseName = App.Path & "\technique.mdb"
      DataHisto.RecordSource = "select * from histo where numéro=" & Val(LblNumVoiture) & " and date =" & Format(ListeDateh) & ""
DataHisto.Refresh
Nom : Capture.JPG
Affichages : 589
Taille : 63,8 Ko

j ai aussi essayé ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Data1.RecordSource = "select * from histo where numéro =" & Val (LblNuméro) & "and date = # " & Format (ListeDateh) & " # "
'ou
DataHisto.RecordSource = "select * from histo where date = # " & Format(ListeDateh, "dd.mm.yyyy") & " # "
'ou
 DataHisto.RecordSource = "SELECT * FROM histo WHERE numéro = " _
                       & Val(LblNuméro) _
                       & " AND date = #" _
                       & Str$(CDate(ListeDateh)) _
                       & "#"
toujours eu le même code erreur 3075

Pour ceux qui veulent avoir la form et le data de test voici le lien :

https://github.com/siadli/histo

" pour ce qui sont intéressé du projet de gestion de réparation de voiture pour un garage complet je peux le fournir "
Merci de votre aide et expérience que j ai plus malheureusement .....