Discussion :

[PAPINDOL]

Bonjour à tous
J'ai développé pour mon activité une base classique sous ACCESS avec noms, adresses etc
J'ai souvent besoin de connaitre si un ASSURE a déjà un dossier dans la base, et souhaiterai automatiser la recherche par requete
J'ai abandonné la requete par SELECT, qui me parait fastidieuse avec les recordsets, et opté pour une CREATION DE TABLE
Afin d'éviter une input box à remplir, je souhaiterai que la requete prenne la valeur de l'enregistrement sur lequel je suis positionné au moment où je lance la requete
ci dessous mon code
celà marche avec la MSGBOX mais pas sur la requete qui me renvoie une table vide, alors que mes essais se font sur un enregistrement où je sias qu'il y a des résultats

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Commande531_Click()
On Error GoTo Err_Commande531_Click
 
 
Dim CRITERE1 As String
Dim CRITERE2 As String
 
CRITERE1 = Mid([ASSURE], 2, 3)
CRITERE2 = Mid([VILLE], 2, 3)
 
MsgBox CRITERE1 & CRITERE2
 
DoCmd.RunSQL "SELECT Table1.NOTREF, Table1.ASSURE, Table1.VILLE INTO VIEUXDOSSIERS FROM Table1 WHERE (((Table1.ASSURE) = '*CRITERE1*') And ((Table1.VILLE) ='*CRITERE2*'))"
 
Exit_Commande531_Click:
Exit Sub
 
Err_Commande531_Click:
MsgBox Err.Description
Resume Exit_Commande531_Click
 
End Sub

Je vous remercie d'avance pour votre aide

[vodiem]

bienvenu,

au lieu de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL "SELECT Table1.NOTREF, Table1.ASSURE, Table1.VILLE INTO VIEUXDOSSIERS FROM Table1 WHERE (((Table1.ASSURE) = '*CRITERE1*') And ((Table1.VILLE) ='*CRITERE2*'))"

met:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
sSQL= "SELECT Table1.NOTREF, Table1.ASSURE, Table1.VILLE INTO VIEUXDOSSIERS FROM Table1 WHERE (((Table1.ASSURE) = '*CRITERE1*') And ((Table1.VILLE) ='*CRITERE2*'))"
MsgBox sSQL
 
DoCmd.RunSQL sSQL

tu comprendras mieux le problème.

[PAPINDOL]

Je vous remercie de votre réponse
J'ai avant votre instruction défini sSQL As String.OK?
la MSGBOX me renvoie le texte entier de la requete.OK?
Mais la table créée ensuite reste désespérément vide
POur info, si je remplace dans ma requete *CRITERE1* ou *CRITERE2* par un nom déjà existant et une ville déjà existante, la table se créée
A priori, la requete ne semble pas aller chercher dans les champs de l'enregistrement sur lequel je suis positionné les valeurs de ces champs
Encore Merci

[vodiem]

Désolé PAPINDOL, je pensais que tu aurais vu le pb:

la MSGBOX me renvoie le texte entier de la requete.OK?

c'est là!
regarde bien... là où îl y a tes critères...

bon je te donne le bon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sSQL= "SELECT Table1.NOTREF, Table1.ASSURE, Table1.VILLE INTO VIEUXDOSSIERS FROM Table1 WHERE (((Table1.ASSURE) = '" & CRITERE1 & "') And ((Table1.VILLE) ='" & CRITERE2 & "'))"

du moins je l'espère puisque je ne peux le tester.

[PAPINDOL]

Je commence à comprendre et continue mes recherches
le problème vient en fait que je voudrais lui faire rechercher *CRITERE1* et *CRITERE2* alors que là il me recherche la correspondance avec CRITERE1 et CRITERE2
je poursuis!
A+

[vodiem]

'*' ? cest pour étendre la recherche?
dans ce cas c'est 'Like' qu'il faut utiliser...
bonne continuation

[PAPINDOL]

Merci pour le like
La solution ci dessous fonctionne
Peut-etre y-a-t-il mieux
Avec mes remerciements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WHERE (((Table1.ASSURE) like '" & Chr(42) & CRITERE1 & Chr(42) & "') And ((Table1.VILLE) like '" & Chr(42) & CRITERE2 & Chr(42) & "'))