[VBA] GROS PROBLEME !! help plz

DoCmd.OpenReport "E_SPECIFIQUE", acViewPreview, ,"ici ce qui va venir dans la partie WHERE de la requete, sans le mot WHERE"

Ok je vais tester merci bien ^^ Je te tiens au courant

Bon j'ai marqué ça sur le clique du bouton :

DoCmd.OpenReport "E_SPECIFIQUE", acViewPreview, , (ID_GEOBASE = " & P & ")

Ma requête est celle ci :

SELECT T_COUCHE_GEO.*
FROM T_COUCHE_GEO
WHERE ID_GEOBASE="P";


Quand je clique sur le bouton il m'affiche mon état mais tous les champs sont rempli par #Nom ?

Je ne sais pas quoi mettre dans la source de mon état :s Une requête ?

c'est quoi ce "P" ? Si P est une variable de type string qui contient l'ID que tu veux visualiser, j'essayerais :

DoCmd.OpenReport "E_SPECIFIQUE", acViewPreview, , " ID_GEOBASE = " & P

et si tu fais la requete à la main, qu'obtiens-tu ?

tu as bien compris

Snif je suis naze, j'ai jamais concaténer des variables est ce que c'est bien comme ça ?

sqlfiltre = '" ID_GEOBASE ='" + V_ID_GEOBASE_EMPL + "' & '" ID_THEME ='" + V_ID_THEME + "' & '" ID_S_THEME ='" + V_ID_S_THEME + "' & '" ID_S_THEME ='" + V_ID_SS_THEME + "' & '" ID_GEOBASE ='" + V_ID_GEROBASE_INS + "' & '" SERVICE_AGENT ='" + V_SERVICE_NOM + "' & '" ID_AGENT ='" + V_ID_AGENT + "'

Il faudrait que TOUTES les variables V_ soient de type string.
La logique suppose aussi que TOUTES les variables interviennent dans le filtre.

Il y a moyen de faire mieux, du genre :

sqlfiltre= " 0 = 0 "
if V_ID_GEOBASE_EMPL <> "" then
sqlfiltre = sqlfiltre + " and [T_GEOBASE].[ID_GEOBASE] = '" + V_ID_GEOBASE_EMPL + "' "
end if

Bonjour yg_be, bon, mon problème est que j'ai des listes qui ce sont rajoutées et deux d'entre elles posent problème.

La première, la liste LISTE_SS_THEME qui me pose un problème lors du clique du bouton afficher. En effet cette liste n'est pas forcément renseignée et donc lors de la compilation la liste retourne null.

La deuxième est une liste nommée LISTE_GEOBASE_INS, en fait elle a le même but que la liste LISTE_GEOBASE sauf que celle ci permet d'afficher des informations dans un sous état situé dans l'état....(je sais c'est vraiment compliqué comme méthode ...)

Et donc pour l'instan quand je récupère sa valeur cela m'affiche null aussi. Est ce que cela pourrait être du à la LISTE_GEOBASE qui bloqueré la LISTE_GEOBASE_INS ?

Cordialement, Onishi ^^

PS : Voici l'état de mon code pour le moment :

Option Compare Database

Private Sub BT_AFFICHER_Click()

'Déclaration des variables
Dim V_ID_GEOBASE_EMPL As String
Dim V_ID_THEME As Variant
Dim V_ID_S_THEME As Variant
Dim V_ID_SS_THEME As Variant
Dim V_ID_GEOBASE_INS As String
Dim V_SERVICE_NOM As String
Dim V_ID_AGENT As String

V_ID_GEOBASE_EMPL = F_GEOBASE_EMPL
V_ID_THEME = F_ID_THEME
V_ID_S_THEME = F_ID_S_THEME
V_ID_SS_THEME = F_ID_SS_THEME
V_ID_GEOBASE_INS = F_ID_GEOBASE_INS
V_SERVICE_NOM = LISTE_SERVICE
V_ID_AGENT = F_ID_AGENT

'DoCmd.OpenReport "E_SPECIFIQUE", acViewPreview, , V_ID_GEOBASE_EMPL & Chr(13) & V_ID_THEME & Chr(13) & V_ID_S_THEME & Chr(13) & V_ID_SS_THEME & Chr(13) & V_ID_GEOBASE_INS & Chr(13) & V_SERVICE_NOM & Chr(13) & V_ID_AGENT

sqlfiltre = " T_GEOBASE.ID_GEOBASE = '" + V_ID_GEOBASE_EMPL + "' and T_COUCHE_GEO.ID_THEME = '" + V_ID_THEME + "' and ID_S_THEME = '" + V_ID_S_THEME + "' and ID_S_THEME = '" + V_ID_SS_THEME + "' and T_GEOBASE.ID_GEOBASE = '" + V_ID_GEROBASE_INS + "' and SERVICE_AGENT = '" + V_SERVICE_NOM + "' and ID_AGENT ='" + V_ID_AGENT + "'"

DoCmd.OpenReport "E_SPECIFIQUE", acViewPreview, , sqlfiltre
End Sub

Private Sub BT_REINITIALISER_Click()

LISTE_GEOBASE_EMPL = ""
liste_theme = ""
liste_sous_theme = ""
liste_sous_sous_theme = ""

LISTE_GEOBASE_INS = ""
LISTE_SERVICE = ""
LISTE_NOM_AGENT = ""

End Sub

Private Sub LISTE_GEOBASE_1_AfterUpdate()

Forms![F_RECHERCHE_PAR_CRITERES]!liste_theme.Requery

End Sub

Private Sub LISTE_SOUS_THEME_AfterUpdate()

Forms![F_RECHERCHE_PAR_CRITERES]!liste_sous_sous_theme.Requery

End Sub

Private Sub LISTE_THEME_AfterUpdate()

Forms![F_RECHERCHE_PAR_CRITERES]!liste_sous_theme.Requery
Forms![F_RECHERCHE_PAR_CRITERES]!liste_sous_sous_theme.Requery

End Sub
Private Sub bt_retour_Click()
On Error GoTo Err_bt_retour_Click


DoCmd.Close

Exit_bt_retour_Click:
Exit Sub

Err_bt_retour_Click:
MsgBox Err.Description
Resume Exit_bt_retour_Click

End Sub

Suggestion :

sqlfiltre= " 0 = 0 "

if not isnull(V_ID_GEOBASE_EMPL) then
sqlfiltre = sqlfiltre + " and [T_GEOBASE].[ID_GEOBASE] = '" + V_ID_GEOBASE_EMPL + "' "
end if

... et ainsi de suite pour chaque critère

La syntaxe à l'air correcte mais il me dis tjs le même problème sur ID_GEOBASE mais à mon avis cela ne vient pas de là car sur V_ID_SS_THEME en passant avec la souris lors de la compilation il y a écrit "Null" et sur V_ID_GEROBASE_INS il y a écrit "Vide". :s

Bonne idée de mettre boolean pour une variable qui va recuperer le contenu d'une checkbox.
Si tu utilise ce boolean dans le filtre, veux-tu le comparer à un champ de la table ? SI oui, quel est le type de ce champ ?

Ce boolean permet d'afficher ou pas (selon si la case est cochée) si les attributs des couches géographiques sont en locale ou non. Dans la table T_ATTRIBUT ce champ ce nomme ATTRIB_LOCAL et est de type Oui/Non.

Je pense que l'incompatibilité devrait disparaitre avec ma derniere suggestion.

id_geobase est dans plusieurs tables, non ? Tu dois donc, à chaque fois, préciser à quel table appartient id_geo.

N'est ce pas ce que tu as deja fait ?

Si je viens de le faire mais maintenant il ne me trouve plus d'erreur mais me demande d'entrer ce que j'ai dis juste en dessous.
Avant j'avais fait par exemple : SELECT T_COUCHE_GEO.ID_GEOBASE, T_COUCHE_GEO.*, etc... Là j'ai tout les champs de détaillés (préfixés par une table) grâce à l'assistant.

J'ai tout remis comme avant donc quand je lance l'état à la main tous les enregistrements s'affichent et quand j'exécute mon code depuis le bouton il me dis le pb de id_geobase.

Voici mon code :

'Déclaration des variables
Dim V_ID_GEOBASE_EMPL As Variant
Dim V_ID_THEME As Variant
Dim V_ID_S_THEME As Variant
Dim V_ID_SS_THEME As Variant
Dim V_ID_GEOBASE_INS As Variant
Dim V_SERVICE_NOM As Variant
Dim V_ID_AGENT As Variant
Dim V_LOCAL_ATTRIB As Boolean

'Récupération des valeurs dans les variables
V_ID_GEOBASE_EMPL = F_GEOBASE_EMPL
V_ID_THEME = F_ID_THEME
V_ID_S_THEME = F_ID_S_THEME
V_ID_SS_THEME = F_ID_SS_THEME
V_ID_GEOBASE_INS = F_ID_GEOBASE_INS
V_SERVICE_NOM = LISTE_SERVICE
V_ID_AGENT = F_ID_AGENT
V_LOCAL_ATTRIB = cb_attribut


sqlfiltre = " 0 = 0 "

'Filtre récupérant le contenu de chaque variable

sqlfiltre = sqlfiltre + " and [T_GEOBASE].[ID_GEOBASE] = '" + V_ID_GEOBASE_EMPL + "' and [T_COUCHE_GEO].[ID_THEME] = '" + V_ID_THEME + "' and ID_S_THEME = '" + V_ID_S_THEME + "' and ID_SS_THEME = '" + V_ID_SS_THEME + "'and [T_GEOBASE].[ID_GEOBASE] = '" + V_ID_GEROBASE_INS + "' and SERVICE_AGENT = '" + V_SERVICE_NOM + "' and ID_AGENT ='" + V_ID_AGENT + "' "

'Permet de gérer le null de la liste LISTE_SS_THEME
If Not IsNull(V_ID_SS_THEME) Then

sqlfiltre = sqlfiltre + " and (not ID_SS_THEME) "

Else

sqlfiltre = sqlfiltre + " and ID_SS_THEME"

End If

'Permet que suivant si la checkbox est selectionée ou pas, le filtre selectionera les valeurs où ATTRIB_LOCAL est vrai ou faux
If V_LOCAL_ATTRIB Then

sqlfiltre = sqlfiltre + " and ATTRIB_LOCAL "

Else

sqlfiltre = sqlfiltre + " and (not ATTRIB_LOCAL) "

End If

'Syntaxe permettant d'ouvrir l'état E_SPECIFIQUE et d'y afficher les couches géographiques concernées par les critères
DoCmd.OpenReport "E_SPECIFIQUE", acViewPreview, , sqlfiltre


Ce que je ne comprend pas c'est que tout à l'heure en préfixant j'ai réussi à ouvrir mon état mais mon code n'était pas pris en compte. Il me demander de rentrer des infos et il m'afficher pas très bien la couches géographique.

Si dans le code tu fais simplement la ligne suivante, sans utiliser le filtre, que se passe-t-il ?
DoCmd.OpenReport "E_SPECIFIQUE", acViewPreview

A propos de ce que tu ne comprends pas (tout à l'heure en préfixant j'ai réussi à ouvrir mon état mais mon code n'était pas pris en compte. Il me demander de rentrer des infos et il m'afficher pas très bien la couches géographique.), à ce moment-là, s tu ouvrais l'état à la main, que se passait-il ? Comme tu as choisi de tout remettre comem avant, le saurons-nous jamais ?

Attention, ta gestion du null de la liste LISTE_SS_THEME est foireuse , il vaut mieux faire :

sqlfiltre = sqlfiltre + " and [T_GEOBASE].[ID_GEOBASE] = '" + V_ID_GEOBASE_EMPL + "' and [T_COUCHE_GEO].[ID_THEME] = '" + V_ID_THEME + "' and ID_S_THEME = '" + V_ID_S_THEME + "'and [T_GEOBASE].[ID_GEOBASE] = '" + V_ID_GEROBASE_INS + "' and SERVICE_AGENT = '" + V_SERVICE_NOM + "' and ID_AGENT ='" + V_ID_AGENT + "' "


'Permet de gérer le null de la liste LISTE_SS_THEME
If Not IsNull(V_ID_SS_THEME) Then

sqlfiltre = sqlfiltre + " and ID_SS_THEME = '" + V_ID_SS_THEME + "' "

End If

Bonjour,

Pour répondre à tes questions voilà :

Pour l'exécution du code avec cette ligne DoCmd.OpenReport "E_SPECIFIQUE", acViewPreview
Tu veux dire que je ne dois rien mettre d'autre ? SI c'est le cas j'ai fait le test et il me met le pb de ID_GEOBASE donc à mon avis j'ai une text box qui ne doit pas être préfixée dans mon état ou dans un des sous état.

Pour ce que je ne comprenez pas : En fait quand j'ai exécuté le code à partir du bouton Access me demandé de rentrer un ID_GEOBASE, un ID_THEME et deux foix un T_AGENT.ID_AGENT. Et pour l'ouverture du code à la main il me demandé de renseigner T_AGENT.ID_AGENT (mais j'avais beau le renseigner cela me répété toujours d'écrire T_AGENT.ID_AGENT)
Vraiment bizarre :s

Pour gérer le null de la liste LISTE_SS_THEME je vais corriger avec ce que tu as mis.

Je te donne les détails bientôt.

EDIT : Bon j'ai fais le test et il me dis Erreur d'exécution 13 : Incompatibilité de type. Je pense que cela vient de ce qui est en gras car il me le met à vide dans le sql filtre mais avant dans la récupération des valeurs de liste il m'affiche bien l'id.

Voici mon Code :


Option Compare Database

Private Sub BT_AFFICHER_Click()

'Déclaration des variables
Dim V_ID_GEOBASE_EMPL As Variant
Dim V_ID_THEME As Variant
Dim V_ID_S_THEME As Variant
Dim V_ID_SS_THEME As Variant
Dim V_ID_GEOBASE_INS As Variant
Dim V_SERVICE_NOM As Variant
Dim V_ID_AGENT As Variant
Dim V_LOCAL_ATTRIB As Boolean

'Récupération des valeurs dans les variables
V_ID_GEOBASE_EMPL = F_GEOBASE_EMPL
V_ID_THEME = F_ID_THEME
V_ID_S_THEME = F_ID_S_THEME
V_ID_SS_THEME = F_ID_SS_THEME
V_ID_GEOBASE_INS = F_ID_GEOBASE_INS(là il récupère bien l'id exple P pour production)
V_SERVICE_NOM = LISTE_SERVICE
V_ID_AGENT = F_ID_AGENT
V_LOCAL_ATTRIB = cb_attribut


sqlfiltre = " 0 = 0 "

'Permet de gérer le null de la liste LISTE_SS_THEME
If Not IsNull(V_ID_SS_THEME) Then

sqlfiltre = sqlfiltre + " and ID_SS_THEME = '" + V_ID_SS_THEME + "' "

End If

'Permet que suivant si la checkbox est selectionée ou pas, le filtre selectionera les valeurs où ATTRIB_LOCAL est vrai ou faux
If V_LOCAL_ATTRIB Then

sqlfiltre = sqlfiltre + " and ATTRIB_LOCAL "

Else

sqlfiltre = sqlfiltre + " and (not ATTRIB_LOCAL) "

End If

'Filtre récupérant le contenu de chaque variable

sqlfiltre = sqlfiltre + " and [T_GEOBASE].[ID_GEOBASE] = '" + V_ID_GEOBASE_EMPL + "' and [T_COUCHE_GEO].[ID_THEME] = '" + V_ID_THEME + "' and ID_S_THEME = '" + V_ID_S_THEME + "'and [T_GEOBASE].[ID_GEOBASE] = '" + V_ID_GEROBASE_INS +(là il me le met vide !) "' and SERVICE_AGENT = '" + V_SERVICE_NOM + "' and ID_AGENT ='" + V_ID_AGENT + "' and ATTRIB_LOCAL ='" + V_LOCAL_ATTRIB + "' "


'Syntaxe permettant d'ouvrir l'état E_SPECIFIQUE et d'y afficher les couches géographiques concernées par les critères
DoCmd.OpenReport "E_SPECIFIQUE", acViewPreview, , sqlfiltre

'MsgBox V_ID_GEOBASE_EMPL & Chr(13) & V_ID_THEME & Chr(13) & V_ID_S_THEME & Chr(13) & V_ID_SS_THEME & Chr(13) & V_ID_GEOBASE_INS & Chr(13) & V_SERVICE_NOM & Chr(13) & V_ID_AGENT
'sqlfiltre = " T_GEOBASE.ID_GEOBASE = '" + V_ID_GEOBASE_EMPL + "' and T_COUCHE_GEO.ID_THEME = '" + V_ID_THEME + "' and ID_S_THEME = '" + V_ID_S_THEME + "' and ID_S_THEME = '" + V_ID_SS_THEME + "' and T_GEOBASE.ID_GEOBASE = '" + V_ID_GEROBASE_INS + "' and SERVICE_AGENT = '" + V_SERVICE_NOM + "' and ID_AGENT ='" + V_ID_AGENT + "'"
'If Not (IsNull(V_ID_SS_THEME) Or IsEmpty(V_ID_SS_THEME)) Then

End Sub

Il n'y a pas un R en trop dans V_ID_GEROBASE_INS ?
Suggestion : ajouter "option explicit" tout au debut du code, tu auras alors une erreur de syntaxe pour ce genre d'anomalie.

Si l'ouverture "à la main" de l'état fonctionne sans erreur, mais que l'ouverture par le code, sans filtre, donne une erreur, je suis surpris... Est-ce bien le même état ?