Discussion :

[DUCKY_]

Bonjour à tous,

J'ai utilisé la fonction recherche en vain ....

Je réalise une requête SQL des plus simples .... Et j'ai une erreur, j'avou ne pas comprendre.

J'ai beau lire et re-lire ma requête je n'y vois pas d'erreur.

Voici mon code :

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
Option Compare Database
 
Private Sub cmd_ok_Click()
Dim var1 As String
 
var1 = [Form_F_account]![n_compte]
 
MsgBox var1
 
DoCmd.RunSQL ("SELECT [FAC_Interface].Accoount, FAC_Magnitude.ACCDesignationF " _
            & "FROM [FAC_Interface], [FAC_Magnitude] " _
            & "WHERE [FAC_Interface].Compte_Magnitude = FAC_Magnitude.ACC " _
            & "AND ((([FAC_Interface].Accoount) LIKE '%" & var1 & "%'));")
 
 
 
End Sub

Et j'ai l'erreur suivante :
" Une action ExécuterSQL nécessite un argument consistant en une instruction SQL"

Merci d'avance ....

Cordialement,

[Kloun]

* Bonjour *

F1 sur RunSQL :

instructionSQL Variant requis. Expression chaîne qui correspond à une instruction SQL valide pour une requête action ou une requête définition des données. Elle utilise une instruction INSERT INTO, DELETE, SELECT...INTO, UPDATE, CREATE TABLE, ALTER TABLE, DROP TABLE, CREATE INDEX ou DROP INDEX. Insérez une clause IN pour accéder à une autre base de données.

Bref, c'est pas comme ça qu'il faut faire pour récupérer les données d'un select.

[Merryvor]

Bonjour,

La commande DoCmd.RunSql ne fonctionne que pour les INSERT, DELETE et UPDATE.

Pour le SELECT, il faut procéder comme suit:

Code vba :

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
 
Dim db As database
Dim sql As String
Dim rs AS Recordset
 
Set db = Application.CurrentDb
      sql = "SELECT [FAC_Interface].Accoount, FAC_Magnitude.ACCDesignationF " _
            & "FROM [FAC_Interface], [FAC_Magnitude] " _
            & "WHERE [FAC_Interface].Compte_Magnitude = FAC_Magnitude.ACC " _
            & "AND ((([FAC_Interface].Accoount) LIKE '%" & var1 & "%'));"
 
    Set rs = db.OpenRecordset(sql, dbOpenForwardOnly, dbReadOnly)
 
Do While Not rs.EOF
      'retrourne le 1er champ
        rs.Fields(0)
      'retrourne le 2ème champ
        rs.Fields(1)
        rs.MoveNext
Loop

[Jean-Philippe André]

salut,

attention merryvor, il manque l'attribution a ta variable RS

[DUCKY_]

En effet, son script ne fonctionnait pas

J'ai procédé de la manière qui suit :

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
24
25
Dim taBdd As Database
Dim strSQL As String
Dim rst As DAO.Recordset
Dim monTableau() As String
Dim i As Integer
 
 
strSQL = "SELECT [FAC_Interface].Accoount, FAC_Magnitude.ACCDesignationF " _
            & "FROM [FAC_Interface], [FAC_Magnitude] " _
            & "WHERE [FAC_Interface].Compte_Magnitude = FAC_Magnitude.ACC " _
            & "AND ((([FAC_Interface].Accoount) LIKE '%" & var1 & "%'));"
Set Db = Application.CurrentDb
 
Set rst = Db.OpenRecordset(strSQL)
 
 
i = 0
ReDim monTableau(rst.RecordCount, 2)
 
Do While Not rst.EOF
         monTableau(i, 1) = rst.Fields("[FAC_Interface].Accoount")
        monTableau(i, 2) = rst.Fields("FAC_Magnitude.ACCDesignationF")
          rst.MoveNext
         i = i + 1
Loop

Je cherche maintenant à avoir une table qui soit le reflet de mon recordset.

Cordialement,

[DUCKY_]

F1 sur RunSQL :

Bref, c'est pas comme ça qu'il faut faire pour récupérer les données d'un select.

J'ai utilisé la fonction F1 et je me suis dit que les " ... " étaient une erreur.

Merci pour ta réponse Merryvor !

Je vais regarder ça de ce pas !

Cordialement,