[VBA - ACCESS 2002] Problème RecordSet/Requête SQL

Version imprimable

Bonjour,
Je vais essayer de vous exposer mon problème, moi je ne vois vraiment pas ce qui ne vas pas.

Déjà, petite mise en situation :
Je possède deux bases, dont la structure des tables est strictement identique.
En fait, des données sont saisies dans une des bases, puis une fois vérifiées, ces données sont transférer dans l'autre base. Ceci pour être sûr que les données de la seconde base sont correctes.

Jusque là, aucun problème ;)

Voici une partie de mon code pour le transfert d'une base à l'autre :

MonRSJOURNEE correspond à la base de données courante.
MonRSJOURNEEExterne et MaBDDExterne correspondent à ma deuxième base de données.
Code:

1 2 Set MonRSJOURNEEExterne = MaBDDExterne.OpenRecordset("SELECT * FROM JOURNEE WHERE AGENUME = " & MonRSJOURNEE.Fields("AGENUME").Value & " AND JOUDATE = " & MonRSJOURNEE.Fields("JOUDATE").Value & ";")
Et là, mon RecordSet nommé MonRSJOURNEEExterne est vide, hors il devrait contenir UN enregistrement.

Je change un peu ma requête :
Code:

1 2 Set MonRSJOURNEEExterne = MaBDDExterne.OpenRecordset("SELECT * FROM JOURNEE WHERE JOUDATE = " & MonRSJOURNEE.Fields("JOUDATE").Value & ";")
=> Je simplifie pour me pencher uniquement sur le champ JOUDATE. Résultat : idem :cry:

Maintenant, si je fais ça :
Code:

1 2 Set MonRSJOURNEEExterne = MaBDDExterne.OpenRecordset("SELECT * FROM JOURNEE WHERE AGENUME = " & MonRSJOURNEE.Fields("AGENUME").Value & ";")
Je me penche cette fois uniquement sur le champ AGENUME. Là, tout fonctionne bien ;)

Donc je me dis que le problème viens du champ JOUDATE... Mais...
Si je rajoute ça ensuite :
Code:

1 2 3 4 5 6 If MonRSJOURNEEExterne.Fields("JOUDATE").Value = MonRSJOURNEE.Fields("JOUDATE").Value Then MsgBox "OK" Else MsgBox "NOK" End If
Alors le message OK s'affiche, donc MonRSJOURNEEExterne.Fields("JOUDATE").Value = MonRSJOURNEE.Fields("JOUDATE").Value
Alors si dans mon IF les deux valeurs sont identiques, pourquoi dans ma requête celà ne fonctionne pas ?

Moi je ne vois vraiment pas du tout ce qui ne vas pas.

J'éspère avoir été suffisament clair, mais si des incompréhensions subsistent, j'essayerais d'être plus explicite.

Peut être que le problème viens d'une énormité tellement énorme que je ne la vois pas, mais je ne pense pas, ça fait plusieurs heures que je me prend la tête à tester dans tout les sens, et le problème subsite.

Merci à ceux qui ont pris le temps de lire mon message, et merci d'avance à ceux qui je l'éspère vont m'aider à résoudre ce problème.

15/06/2006, 15h53
SamLeChiseuji
Oups, j'ai oublié de préciser ce cas là :
Code:

1 2 Set MonRSJOURNEEExterne = MaBDDExterne.OpenRecordset("SELECT * FROM JOURNEE WHERE JOUDATE = 26/05/2006;")
=> Je précise directement une date, je sais que cette date est dans ma table, donc ça devrait fonctionner, mais vous l'aurez deviné, celà ne fonctionne pas.

Le plus étrange, c'est que avec le champ AGENUME, celà fonctionne correctement, alors pourquoi ça ne veux pas avec le champ JOUDATE ?
Pourtant, j'ai bien compris le fonctionnement des recordset, je les utilises beaucoup dans toute mon appli, et je n'ai aucun soucis nul part, sauf ici...
15/06/2006, 16h01
Mariboo

AGENUM est de type numérique je suppose ...

Essaye d'écrire ("JOUDATE") avec des quotes : ('"JOUDATE"')
15/06/2006, 16h07
SamLeChiseuji
Merci,

Je viens donc d'essayer ça :
Code:

1 2 Set MonRSJOURNEEExterne = MaBDDExterne.OpenRecordset("SELECT * FROM JOURNEE WHERE JOUDATE = " & MonRSJOURNEE.Fields(" 'JOUDATE' ").Value & ";")
=> Sans espace entre " et ', là c'est pour la lisibilité du texte.
J'obtiens alors le message suivant :
Erreur d'exécution '3265', élément non trouvé dans cette collection.
15/06/2006, 16h13
SamLeChiseuji

Et effectivement, AGENUME est de type numérique, alors que JOUDATE est de type DATE.
15/06/2006, 16h29
jujusoso

les tests sur les valeurs dépendent du type

test sur date ta valeur doit être entouré de # (attention dans du sql la valeur retournée est au format US mm/jj/aaaa)

test sur valeur numérique pas besoin d'être entouré

test sur valeur string entouré soit de ' soit de double "" (c'est pour pouvoir mettre un " dans un string sans qu'access croit que c'est un délimiteur de string).
15/06/2006, 16h32
Mariboo

Heu oui pour date il faut # ...

Citation:

MonRSJOURNEE.Fields(" 'JOUDATE' ").

et c'est pas comme ça qu'il faut l'écrire mais :

MonRSJOURNEE.Fields(' "JOUDATE" ').

Code:

1 2 Set MonRSJOURNEEExterne = MaBDDExterne.OpenRecordset("SELECT * FROM JOURNEE WHERE AGENUME = " & MonRSJOURNEE.Fields("AGENUME").Value & " AND JOUDATE = #" & MonRSJOURNEE.Fields("JOUDATE").Value & "#;")
=>Impeccable, ça fonctionne !
Merci à toi jujusoso ;)
Par contre, pour l'histoire du format mm/jj/aaaa, toutes mes dates sont au formats jj/mm/aaaa, et ça fonctionne quand même (m'enfin je ne m'en plains pas !).

Sinon, Mariboo, j'avais essayé aussi MonRSJOURNEE.Fields(' "JOUDATE" '), mais là il me met une erreur, pas lors de l'exécution, mais lors de la création du code.

J'ai un peu honte quand même, c'était tout simple, ce qui m'a embrouillé, c'est l'histoire du IF...

Voilà, encore merci à vous 2 ;)

16/06/2006, 09h48
jujusoso

les dates marchent dans ton cas puisque tu n'as pas besoin de les trier mais si tu devais faire un tri croissant ou décroissant tu verais qu'access ferait n'importe quoi et qu'il faudrait passer par une bidouille pour bien y trier.

enfin je dis ca mais je dis rien

merkiss
16/06/2006, 10h01
SamLeChiseuji

Citation:

Envoyé par jujusoso

les dates marchent dans ton cas puisque tu n'as pas besoin de les trier mais si tu devais faire un tri croissant ou décroissant tu verais qu'access ferait n'importe quoi et qu'il faudrait passer par une bidouille pour bien y trier.

OK, merci pour le renseignement, c'est toujours bon à savoir ;)