Requete select pour access sous VBA

Bon, suis pas très douée sous vba et access, mais oriente toi vers l'objet command! A mon avis c'est possible....

tiens, j'ai trouvé ça:

ftp://ftp2.developpez.be/developps/vb/VB-ADOX.pdf

bon courage

Maily   :-))))

j'ai oublie de vous remercier d'avance.

Merci

Lionel

Ressalut

En fait, ce que je voudrais savoir c'est d'une maniere generale comment exécutons une requete SQL sous VBA???
Par exemple je veux éxecuter la requetes suivante:
SELECT period_id FROM period WHERE period_id=2;
Et si possible comment fais t'on pour récuperer le resultat??

merci

Lionel

Bonjour a toi DarkMan972,

Si tu n'as toujours pas trouvé la solution à ton probléme, voila un test que tu pourrais essayer de réalisé :

Voici ta requete:

SQL_rs202 = "select Period_id,period_desc2 from period " & _
"where Period_id >= " & period_id1 & " And Period_id <= " & period_id2 & ""

Voici ce donc je te propose de faire et tester:

SQL_rs202 = "select Period_id,period_desc2 from period " & _
"where Period_id >= '" & period_id1 & "' And Period_id <= '" & period_id2 & "'"

la modification apporté étant le rajout d'une simple guillemet autour de & period_id1 & avant et apres t double guillemet ce qui donne :

'" & period_id1 "'

et fait la même chose pour " & period _id2 & " et ensuite termine ta requete avec ta double guillement

Voila esperons que cela marche................

oui excusez moi.

Bonjour

donc je précise.
J'ai une base donnée sous access et j'ai creer un bouton dans un formulaire et je voudrais que lorsque je clique sur ce bouton he bien cela m'exécute une requete . Voila ce ke je fais mais j'ai un message d'erreur qui me dit la methode OpenRecordset n'existe pas et c vrai. Elle existait dans l'ancienne version de access mais pas dans celle la et je trouve pas l'equivalent:

Dim dbs
Dim rs As Recordset
Dim rs2 As Recordset
Dim SQL_rs202
Dim P1

Set dbs = CurrentDb

SQL_rs202 = "select Period_id,period_desc2 from period " & _
"where Period_id >= " & period_id1 & " And Period_id <= " & period_id2 & ""

'Set rs = dbs.OpenRecordset(SQL_rs202)
'Set rs = DoCmd.OpenQuery

rs.Filter = "Period_id = " & period_id1 & " "
Set rs2 = rs.OpenRecordset
rs.Open rs.Filter, dbs
P1 = rs2("period_desc2")
rs2.Close

merci beaucoup je regarde

merci beaucoup maily ca fonctionne.

Tout d'abord bonjour...

Comment veux tu qu'on t'aide si c'est tout ce que tu nous dis!
elle est où la question exactement??

Lis ça:
http://www.commentcamarche.net/ccmguide/ccmcharte.php3

bonne journée

Maily   :-))))