Discussion :

[jnore]

Bonjour

Voilà, j'ai un petit souci.
je travaille sous Access 2000.
J'utilise la propriété rowsource pour alimenter une liste. Le rowsourcetype de ma liste est parametrée sur "liste valeur".
Mon code fonctionne parfaitement bien, seulement voilà, la propriété rowsource sur ma liste n'accepte qu'un nombre limité de caractère.
voir le défaut sur fichier joint.

Petite particularité, access attaque une base postgresql qui ,au niveau de la requete, contient des guillemets (dont je ne peux me défaire) pour délimiter les tables et/ou certains champs.
A cause de cela, je ne peux mettre en rowsource la requete sql comme on peut le faire sur sql server.

Quelqu'un aurait-il une solution à me proposer?

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim req As Variant
Dim secteur As Integer
Dim atelier As Integer
 
famille = Nz(Me!Modifiable32, 0)
atelier = Nz(Me!atelier, 0)
 
 
req = "SELECT ""OBJETS"".clé, ""OBJETS"".objet, ""OBJETS"".""lien famille""," _
& " ""ATELIER"".clé AS cle FROM pieces.""ATELIER"" INNER JOIN visites.""SECTEUR"" INNER JOIN visites.""FAMILLE TECHNIQUE""" _
& " INNER JOIN visites.""OBJETS"" ON ""FAMILLE TECHNIQUE"".clé=""OBJETS"".""lien famille""" _
& " ON ""SECTEUR"".clé=""FAMILLE TECHNIQUE"".""lien secteur"" ON ""ATELIER"".clé=" _
& " ""SECTEUR"".""lien atelier"" WHERE ""OBJETS"".""lien famille""=" & famille _
& " and ""ATELIER"".clé=" & atelier _
& " ORDER BY ""OBJETS"".objet"
 
 
cn.ConnectionString = "DRIVER={PostgreSQL ANSI};SERVER=u10791;port=5432;DATABASE=invest3;UID=postgres;PWD=blabla;"
 
cn.Open
rs.Open req, cn, adOpenKeyset, adLockOptimistic
 
Dim Valeur As Variant
Valeur = ""
 
If rs.EOF = False Then
    rs.MoveFirst
'preparation de la liste des valeurs séparées par des guillemets
    For i = 0 To (rs.RecordCount - 1)
        Valeur = Valeur & rs.Fields(0) & ";" & rs.Fields(1) & ";"
        rs.MoveNext
        Next
        Me!Modifiable34.RowSource = Valeur
        Else
        Me!Modifiable34.RowSource = Valeur
 
End If
 
cn.Close
Set rs = Nothing
 
Me!Modifiable34.Requery
 
End Sub

[Lou Pitchoun]

Salut,

Et si tu remplaçais "" par rien avec la focntion Replace ?
Comme ça ça te permettrait d'utiliser le SQL en source.

[jnore]

Non, sinon j'ai un défaut sur le serveur (requete non valide)

[jnore]

Y at-il un autre moyen de remplir la zone de liste avec cette config?

[LedZeppII]

Bonsoir,

moi je verrai bien une requête Access type "SQL direct".
Tu crée une requête sans ajouter de table.
Menu principal->Requête->Spécifique SQL->SQL Direct
Afficher les propriétés de la requête.
Dans "Chaîne connexion ODBC", mettre

ODBC;DRIVER={PostgreSQL ANSI};SERVER=u10791;port=5432;DATABASE=invest3;UID=postgres;PWD=blabla;

Ensuite tu écris le SQL PostgreSQL dans la requête et tu testes.
Si ça marche tu la sauves et tu l'utilises comme source de ta liste.

A+

[jnore]

moi je verrai bien une requête Access type "SQL direct".
Tu crée une requête sans ajouter de table.
Menu principal->Requête->Spécifique SQL->SQL Direct
Afficher les propriétés de la requête.
Dans "Chaîne connexion ODBC", mettre

Ensuite tu écris le SQL PostgreSQL dans la requête et tu testes.
Si ça marche tu la sauves et tu l'utilises comme source de ta liste.

A+

Bien joué l'ami !!
Je ne connaissais pas cette option. Ouah !!!

Moi qui tente de passer un max en ADO pour éviter de voir les tables liées dans access, c'est une option intéressante. Je vais bientôt pouvoir me passer de mon paramètre DSN qui sert encore aujourd'hui. Tu m'ouvres de nouveaux horizons!!!

[jnore]

Connais-tu le code VBA pour intégrer le code SQL dans cette requete liée au formulaire?

[LedZeppII]

une fois la requête sauvée, elle fait partie de la collection QueryDefs (DAO).

Code :

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

1
2
3
4
5
6
Dim db As DAO.Database, qdef As DAO.QueryDef
 
Set db = currentdb
Set qdef = db.QueryDefs("NomDeLaRequête")
qdef.SQL = "SELECT ......"
db.close

A+