[access vba] modifier une requete

Question

Bonjour,

J'apprivoise tranquillement access. Je me suis fais un formulaire ou je choisi les critères afin de modifier ma requete. Ensuite j'ouvre l'état correspondant. Par contre, les criteres ne sont pas seulement dans la clause where, car j'ai plusieurs select imbriqué, si seulement dans la clause where, j'envoie le critère lors de l'ouverture de l'état, mais comment faire pour changer d'autres parties dans ma requete avant d'ouvrir mon état? Recordset? si oui, comment?

Merci beaucoup de bien vouloir me donner des pistes!

surzone · Answer

Bonjour,

Peux tu m'expliquer comment on crée un formulaire qui permet de modifier une requete ?

Merci beaucoup

Utilisateur anonyme · Answer

Bonjour,

suggestion :

Créer un requête type de ce que vous souhaité avoir comme résultat :

ex, passer en mode SQL :

soit une requête [ SELECT * FROM tabClients WHERE (((tabClients.Acronyme) Like "zzz*")); ]

l'objectif étant de décomposer la requête en chaines de caractères :

Dim Chaine As String

Chaine = Chaine = "SELECT * FROM tabClients WHERE (((" & MonChamps & ") Like" & """" & "zzz*" & """" & "));"

ici, la variable [ MonChamps ] peut provenir de n'importe où [ Zone de texte, liste déroulante, etc ...

ensuite on valide la mise à jour de la requête avec :

If (ChangeRequeteDef("MaRequeteType", Chaine)) Then
    DoCmd.OpenForm "MonFormulaire", acNormal, "", "[Acronyme]", , acNormal
End If

dans la ligne du IF, on utilise ici une fonction qui est la suivante :

Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean
    
    Dim Definition As Variant
    
    If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
        ChangeRequeteDef = False
    Else
        Set Definition = CurrentDb.QueryDefs(ChaineRequete)
        Definition.SQL = ChaineSQL
        Definition.Close
        RefreshDatabaseWindow
        ChangeRequeteDef = True
    End If
    
End Function
'


Lupin

Utilisateur anonyme · Answer

Bonjour,

Oui je suis pas loin, toutefois je dois vous avouer que j'ai du mal avec le langage sms !

La langue française n'est-elle pas à ce point riche qu'elle ne mérite d'être écorché à ce point.

Lupin

Utilisateur anonyme · Answer

re :

Bon je veux bien refaire le parcours.

Alllons pas à pas !

As-tu un formuliare qui pointe sur une requête, qui elle-même pointe sur une table ?

Si une telle requête existe, peux-tu le voir en mode SQL ?

Si oui, fias-en un copier coller ici .

Lupin

seblekiller_oupas · Answer

Je suis pas sur que ce soit ce que tu voule mais voila 

Refmaintenance	Numlicence_cle	Fin_garantie	Fin_extension
G_BLE_1		                                30/01/2007	
G_CET		                                03/01/2007	
G_UCP	                                                12/06/2007	
G_GEM		                                22/05/2007	
G_DEN		                                09/10/2007	
G_TUN		                                18/10/2007	
G_GE_01		                                29/12/2007	
G_SIN		                                13/12/2007	
G_ARA		                                15/12/2007	
EG_BLE_1		                                30/01/2007	30/01/2008
EG_CET		                                03/01/2007	03/01/2008
EG_DEN		                                09/10/2007	09/10/2008

Dans critere en mode creation j'ai un intervalle de dates: >#01/01/2007# Et <#01/01/2008#
et je voudrais pouvoir changer ces dates a partir d un formulaire quelconque

Utilisateur anonyme · Answer

re :

lorsque tu es en mode création, utilise le premier bouton de la barre d'outils pour accéder au mode SQL.

lorsque tu passe la souris sur le bouton un info-bulle [ Affichage ] apparaît.

en utilisant la liste déroulante de ce bouton, tu auras le mode SQL.

tu obtiendra quelque chose comme :

SELECT *
FROM tabClients
WHERE (((tabClients.Acronyme) Like "zzz*"));


Lupin

Utilisateur anonyme · Answer

re :

maintenant, l'idée est de recomposer la requète SQL dans une chaine de caractères :

ex.:

Sub Test()

'SELECT [Maintenance].[Refmaintenance], [Maintenance].[Numlicence_cle], [Maintenance].[Fin_garantie], [Maintenance].[Fin_extension]
'FROM Maintenance
'WHERE ((([Maintenance].[Fin_garantie])>#1/1/2007# And ([Maintenance].[Fin_garantie])<#1/1/2008#));

    Dim ChaineSQL As String, Critere1 As String, Critere2 As String
    
    Critere1 = "#1/1/2007#" ' Pourrait provenir de n'importe où, variable, textbox, etc ...
    Critere2 = "#1/1/2008#"
    
    ChaineSQL = "SELECT [Maintenance].[Refmaintenance], [Maintenance].[Numlicence_cle], [Maintenance].[Fin_garantie], [Maintenance].[Fin_extension]"
    ChaineSQL = ChaineSQL & " " & "FROM Maintenance "
    ChaineSQL = ChaineSQL & "WHERE ((([Maintenance].[Fin_garantie])>" & Critere1 & " "
    ChaineSQL = ChaineSQL & "And ([Maintenance].[Fin_garantie])<" & Critere2 & "));"
    
    If (ChangeRequeteDef("nom_de_la_requete", ChaineSQL)) Then
        DoCmd.OpenForm "formulaire_Specifique", acNormal, "", "[Acronyme]", , acNormal
    End If
    
    
End Sub
'

Lupin

seblekiller_oupas · Answer

Et j'ecris tout dans cette fenetre alors c'est bien ca?
(Car c'est la premiere fois que je vois ca!)

Utilisateur anonyme · Answer

re :

non, ce texte n'est pas a écrire dans la fenêtre du mode SQL !

c'est du code VBA qui va s'accrocher sur un formulaire, sur un bouton, sur une liste déroulante, etc ...

Dans mon exemple, plaçons un formulaire maitre et un formulaire secondaire.

dans le formulaire maitre, on place 2 textbox pour inscrire les dates de sélection

sur chacun des textboxs on place une procédure évènementiel

Private Sub tbxDateDebut_AfterUpdate()

     If ((tbxDateDebut.Text <> "") and ( tbxDateFin.Text <> "" ))
          ' On reconstruit la chaine SQL avec les paramètres des 2 textbox
          ' On modifie la requète
          ' On ouvre le sous-formulaire qui pointe sur la requête que l'on vien de modifié.
     End IF
End Sub
'

Lupin

seblekiller_oupas · Answer

Donc deja j'espere que tu as le temps car je ne comprends pas vite!
Ensuite elles sont ou les textboxs et enfin formulaire secondaire=sous-formulaire?
Je pense qu'apres ca ira mieux

Utilisateur anonyme · Answer

re :

bon alors nous serons deux car je n'explique pas toujours bien ma pensée.

ce qui est évident pour moi ne l'est pas forcément pour toi et vice-versa :-)

oui sous-formulaire = formulaire secondaire

les textboxs ne sont qu'un exemple.

je cite (message 7) :

Dans critere en mode creation j'ai un intervalle de dates: >#01/01/2007# Et <#01/01/2008#
et je voudrais pouvoir changer ces dates a partir d un formulaire quelconque

tu crées 2 textboxs pour saisir ces valeurs :

ensuite tu y ajoute le code comme soumis :

Private Sub tbxDateDebut_AfterUpdate()

    Dim ChaineSQL As String, Critere1 As String, Critere2 As String

     If ((tbxDateDebut.Text <> "") And (tbxDateFin.Text <> "")) Then

        Critere1 = Me.tbxDateDebut.Text
        Critere2 = Me.tbxDateFinal.Text
        
        ChaineSQL = "SELECT [Maintenance].[Refmaintenance], [Maintenance].[Numlicence_cle], [Maintenance].[Fin_garantie], [Maintenance].[Fin_extension]"
        ChaineSQL = ChaineSQL & " " & "FROM Maintenance "
        ChaineSQL = ChaineSQL & "WHERE ((([Maintenance].[Fin_garantie])>" & Critere1 & " "
        ChaineSQL = ChaineSQL & "And ([Maintenance].[Fin_garantie])<" & Critere2 & "));"
        
        If (ChangeRequeteDef("nom_de_la_requete", ChaineSQL)) Then
            DoCmd.OpenForm "formulaire_Specifique", acNormal, "", "[Champs]", , acNormal
        End If
    
     End If
     
End Sub
'

Lupin

Utilisateur anonyme · Answer

re :

dis moi, 

le nom de(s) table(s)
le nom de(s) requète(s)
le nom de(s) formulaire(s)


Lupin

seblekiller_oupas · Answer

Pour l instant tout ce qui est concerne:
les tables: Maintenance, Machine, Logiciel
les requetes: R_Maintenance, R_Machine, R_Logiciel
le formulaire (vide): Tri_dates

Utilisateur anonyme · Answer

re :

disons que le formulaire Tri_dates est le formulaire principal, sur ce formulaire tu places 2 textboxs.

tu crées une quatrième requête partiel du style que celle que tu as soumis
en lui donnant un autre nom [ nom_de_la_requete dans la procédure ] :

SELECT [Maintenance].[Refmaintenance], [Maintenance].[Numlicence_cle], [Maintenance].[Fin_garantie], [Maintenance].[Fin_extension]
FROM Maintenance
WHERE ((([Maintenance].[Fin_garantie])>#1/1/2007# And ([Maintenance].[Fin_garantie])<#1/1/2008#));

maintenant tu crées un second formulaire qui pointe sur la requête partiel avec le visuel souhaité.
donne un nom significatif à ce second formulaire

maintenant, sur les 2 textboxs en mode création, fenêtre des propriétés, onglet évènement

ligne après MAJ, choisir Procédure événementiel ...
clic sur l'icon (le bouton) du bout qui a 3 petits points

tu attéris directement dans le module VBA du formulaire !

C'est là que tu va placé le code :

Private Sub tbxDateDebut_AfterUpdate()

    Dim ChaineSQL As String, Critere1 As String, Critere2 As String

     If ((tbxDateDebut.Text <> "") And (tbxDateFin.Text <> "")) Then

        Critere1 = Me.tbxDateDebut.Text
        Critere2 = Me.tbxDateFinal.Text
        
        ChaineSQL = "SELECT [Maintenance].[Refmaintenance], [Maintenance].[Numlicence_cle], [Maintenance].[Fin_garantie], [Maintenance].[Fin_extension]"
        ChaineSQL = ChaineSQL & " " & "FROM Maintenance "
        ChaineSQL = ChaineSQL & "WHERE ((([Maintenance].[Fin_garantie])>" & Critere1 & " "
        ChaineSQL = ChaineSQL & "And ([Maintenance].[Fin_garantie])<" & Critere2 & "));"
        
        If (ChangeRequeteDef("nom_de_la_requete", ChaineSQL)) Then
            DoCmd.OpenForm "second_formulaire", acNormal, "", "[Champs]", , acNormal
        End If
    
     End If
     
End Sub
'

bon, ça c'est le truc en gros, mais je dois souvent valider la construction de la chaine SQL en mode
pas à pas d'exécution VBA.

Lupin

Utilisateur anonyme · Answer

re :

effectivement, pour ma part j'utilise des zones de liste modifiable, qui sont accroché
sur des mini requètes de mes tables pour obtenir les données voulues.

Je sélectionne une valeur dans ma liste déroulante et la requête est modifé
selon ce nouveau critère par programmation et j'ouvre alors un second formulaire récapitulatif
de la recherche.

Sur ce second formulaire, lorsque je double-clic sur un enregistrement choisi,
ce second formulaire se ferme et mon formiulaire pricinpal pointe sur l'enregistrement
que j'ai choisi dans le second formulaire.

C'est très efficace pour la recherche :-)

Lupin

seblekiller_oupas · Answer

merci beaucoup :-)

Utilisateur anonyme · Answer

re :

Ton formulaire principal [ Tri_dates ] devrait afficher l'ensemble de tes tables en pointant sur une
requête globale qui rend tout le contenu de tes tables !

Quelques questions :

1.) as-tu créés 2 textbox sur ton formulaire Tri_dates ?

2.) peux-tu entrer dans la procédure évènementiel de l'après MAJ de ces textbox ?

3.) as-tu créés un 4ième requête ?

4.) si oui, quelle est le nom de cette nouvelle requête ?

5.) as-tu créés un formulaire qui s'accroche à cette nouvelle requête ?

6.) si oui, quelle est son nom ?

Lupin

seblekiller_oupas · Answer

En fait je m'excuse platement car comme un gros blaireau j'avais lie le dernier formulaire a une requete qui n'etait pas la bonne! autant pour moi je vais fignoler et je te remercie

seblekiller_oupas · Answer

euh ca marche toujours pas en fait parce que c'est toujours l intervalle 01/01/07 et 01/01/08

Utilisateur anonyme · Answer

re :

as-tu inclus la fonction qui modifie la requête :


Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean
    
    Dim Definition As Variant
    
    If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
        ChangeRequeteDef = False
    Else
        Set Definition = CurrentDb.QueryDefs(ChaineRequete)
        Definition.SQL = ChaineSQL
        Definition.Close
        RefreshDatabaseWindow
        ChangeRequeteDef = True
    End If
    
End Function
'

Lupin

Utilisateur anonyme · Answer

re : tu devrais avoir la routine : Private Sub tbxDateDebut_AfterUpdate() Dim ChaineSQL As String, Critere1 As String, Critere2 As String If ((tbxDateDebut.Text <> "") And (tbxDateFin.Text <> "")) Then Critere1 = Me.tbxDateDebut.Text Critere2 = Me.tbxDateFinal.Text ChaineSQL = "SELECT [Maintenance].[Refmaintenance], [Maintenance].[Numlicence_cle], [Maintenance].[Fin_garantie], [Maintenance].[Fin_extension]" ChaineSQL = ChaineSQL & " " & "FROM Maintenance " ChaineSQL = ChaineSQL & "WHERE ((([Maintenance].[Fin_garantie])>" & Critere1 & " " ChaineSQL = ChaineSQL & "And ([Maintenance].[Fin_garantie])<" & Critere2 & "));" If (ChangeRequeteDef("nom_de_la_requete", ChaineSQL)) Then DoCmd.OpenForm "formulaire_Specifique", acNormal, "", "[Champs]", , acNormal End If End If End Sub ' dans cette routine, il y a un appel à la fonction [ ChangeRequeteDef ] dans la ligne : If (ChangeRequeteDef("nom_de_la_requete", ChaineSQL)) Then celle-ci devient : If (ChangeRequeteDef("R_tridate", ChaineSQL)) Then et l'appel au second formulaire : DoCmd.OpenForm "F_tridates", acNormal, "", "[Champs]", , acNormal dans cette ligne le mot [ Champs ] devra être remplacer par un nom de champ de la table. tu place donc la function à la suite de ce code. Lupin

Utilisateur anonyme · Answer

re :

message 19 :

maintenant, sur les 2 textboxs en mode création, fenêtre des propriétés, onglet évènement 

ligne après MAJ, choisir Procédure événementiel ... 
clic sur l'icon (le bouton) du bout qui a 3 petits points 

tu attéris directement dans le module VBA du formulaire ! 

C'est là que tu va placé le code : 

Private Sub tbxDateDebut_AfterUpdate()
...

et la fonction à la suite :

Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean
    
Lupin

Utilisateur anonyme · Answer

re :

voici un exemple complet :

http://membre.oricom.ca/lupin/documents/video.zip
ce lien ne sera valide que pour la journée ! désolé

Ouvre le formulaire : Formulaire Table Vidéo

Tu trouveras 3 listes déroulantes

Lorsque tu sélectionne une valeur la requête associé est modifié
par programmation et ouvre un second formulaire basé sur cette
même requête.

Dans le second formulaire, un double clic sur le début de la ligne
amène l'enregistrement pointé dans le premier formulaire !

Lupin

Utilisateur anonyme · Answer

re:

peux-tu déposer ta BD quelques part que je la télécharge pour voir ce qui ne va pas ?

Lupin

seblekiller_oupas · Answer

oui en fait c'etait pour savoir sur quelle site je pouvais la copier pour que tu la voit car je n'en connais aucun

Utilisateur anonyme · Answer

re :

genre ici : http://www.cijoint.fr/

Lupin

seblekiller_oupas · Answer

Desole du retard mais voila ma base de donnee: 

http://www.cijoint.fr/cjlink.php?file=cj200804/cijEhEWC9X.zip.

Utilisateur anonyme · Answer

re :

peut-être juste le zippé !

Lupin

seblekiller_oupas · Answer

http://www.cijoint.fr/cjlink.php?file=cj200804/cijQkDa7yz.zip.

seblekiller_oupas · Answer

donc que puis je faire maintenant?

Utilisateur anonyme · Answer

re :

Je n'accède pas au fichier ! !!! Fichier non accessible !!!

Et si tu esssayais sur ce site :

https://www.cjoint.com/

Lupin

seblekiller_oupas · Answer

https://www.cjoint.com/?eCoW3aluym

seblekiller_oupas · Answer

bon ca marche mais j'ai mis le mauvais!
 https://www.cjoint.com/?eCoYPMJylN

Utilisateur anonyme · Answer

re : re : Voilà, maintenant j'ai ton fichier. 1.) La routine qui porte le nom de [ Test ], n'est appellé d'aucune façon. a) Ouvrir le formulaire [ Tri_Date ]. b) Un clic sur la première liste déroulante "Date Début" c) Un clic sur icon de barre d'outils [ Propriétés ] d) Dans la nouvelle fenêtre [ Zone de liste déroulante: Modifiable14 ], choisir onglet [ Évènement ] e) Deuxième ligne [ Après MAJ ], sèlectionner dans liste déroulante [ Procédure événementielle ] f) Un clic sur icon [ ... ] à côté de la liste déroulante [ Procédure événementielle ] tu attérit : Private Sub Modifiable12_AfterUpdate() ' Tu ajoute ces lignes ... If ((Me.Modifiable12.Text <> "") And (Me.Modifiable14.Text <> "")) Then Call Test End If End Sub ' Private Sub Modifiable14_AfterUpdate() ' Tu ajoute ces lignes ... If ((Me.Modifiable12.Text <> "") And (Me.Modifiable14.Text <> "")) Then Call Test End If End Sub ' dans la routine [ Test ], il faut modifier : Critere1 = "#" & Me.Modifiable14.Text & "#" Critere2 = "#" & Me.Modifiable12.Text & "#" et ici, il faut indiquer quel est le formulaire que l'on veut ouvrir ! DoCmd.OpenForm "formulaire_Specifique", acNormal, "", "[Fin_garantie]", , acNormal où [ formulaire_spécifique ] doit être un nom valide de formulaire de la BD. alors je recherche lequel doit être ouvert ? Lupin

seblekiller_oupas · Answer

Le truc, en fait c'est que j'ai la base originale et je l'ai cop[iee 2 fois pour pouvoir essayer plein de truc sans faire n'importe quoi sur la base originale donc je commence a me melanger serieusement les pinceaux. Je crois que je vais pas tarder a te reposer d'autres questions!!!!! et j'en suis desole

seblekiller_oupas · Answer

If ((Me.Modifiable12.Text <> "") And (Me.Modifiable14.Text <> "")) Then Cette ligne ne marche pas apparemment (j'ai mis ceci tout a la fin: Private Sub Modifiable12_AfterUpdate() ' Tu ajoute ces lignes ... If ((Me.Modifiable12.Text <> "") And (Me.Modifiable14.Text <> "")) Then Call Test End If End Sub ' Private Sub Modifiable14_AfterUpdate() ' Tu ajoute ces lignes ... If ((Me.Modifiable12.Text <> "") And (Me.Modifiable14.Text <> "")) Then Call Test End If End Sub '

seblekiller_oupas · Answer

en fait je ne serias plus la a partir de 5h donc je te laisse ma base et si tu as envie d'y jeter un oeil, ne te prive pas!
      En tout cas merci beaucoup

https://www.cjoint.com/?eCqUbpWaY5

seblekiller_oupas · Answer

il ne marche plus le lien donc tant pis

seblekiller_oupas · Answer

Bon au final n'etant pas vraiment doue et n'etant pas sur d'avoir de reponse je voudrais juste savoir commenton fait pour juste ecrire une valeur a paritr d'un formulaire,dans les criteres d'une requete

Utilisateur anonyme · Answer

re :

Partons d'un point commun :

Ta base que tu m'as fournit :

http://membre.oricom.ca/lupin/documents/baseprojet.zip

Celui-ci contient :

Base-Projet-Org.mdb [ Le fichier tel que tu me l'as envoyé ]
Base-Projet-Mod.mdb [ Le fichier avec la première étape ]

Étape1

Automatisé l'évènement sur le changement des valeurs dans le formulaire [ Tri_Date ].

Ouvrir le formulaire en mode "modification"

Un clic sur la première liste déroulante ayant l'étiquette [ Date début ] ayant pour nom [ Modofiable14 ]

Un clic sur l'icon Propriétés dans la barre d'outils

Sélectionner l'onglet évènement :

Sélectionner la ligne [ Après MAJ ]

Choisir dans la liste déroulante [ Procédure évènementiel ], clic sur le bouton [ ... ]

arrivé dans le code :

Private Sub Modifiable14_AfterUpdate()

End Sub

Tu dois obtenir, la même chose que dans la BD BaseProjet-Mod.mdb


Y es-tu ?

Lupin

Utilisateur anonyme · Answer

re : maintenant, tu ajoute le code comme suit : Private Sub Modifiable12_AfterUpdate() If (Me.Modifiable12.Text <> "") Then Me.Modifiable14.SetFocus If (Me.Modifiable14.Text <> "") Then MsgBox "Date début et final" Else MsgBox "Date début manquante" End If End If End Sub ' Private Sub Modifiable14_AfterUpdate() If (Me.Modifiable14.Text <> "") Then Me.Modifiable12.SetFocus If (Me.Modifiable12.Text <> "") Then MsgBox "Date début et Date final" Else MsgBox "Date final manquante" End If End If End Sub ' donc ici, dans un premier temps on valide l'évènement [ Après MAJ ] de chaque liste. Une fois ce code ajouter, si tu choisi des dates dans le formulaire, vois-tu apparaître les [ MsgBox ] de dates ? Lupin

Utilisateur anonyme · Answer

re :

j'ai modifié étape par étape pour obtenir le résultat escompté.

Regarde cela un peu, et dis moi ce que tu en comprends.

n.b. Le formulaire Tri-Date pourrait être complètement 
......intégré dans le formulaire Formulaire_Maintenance_Globale

BasePorjet-Mod1.ndb
BasePorjet-Mod2.ndb
BasePorjet-Mod3.ndb

http://membre.oricom.ca/lupin/documents/baseprojet.zip 

Avec ces étapes je pourrai te guider :-)

@+
Lupin

seblekiller_oupas · Answer

Deuxieme petite remarque, j'ai change les < et > en <= et >= mais je n'ai que la valeur de la borne inferieure et pas la valeur de la borne superieure, comment se fais-ce?

Utilisateur anonyme · Answer

re :

J'ai observé un problème semblable lorsque j'ai ajouté le tri dans la requête :

ORDER BY [Maintenance].[Fin_garantie]

le tri ne s'effctuait pas, je soupconne un problème de typage !

Est-ce que les champs de dates sont bien des champs dates ?

Pour le formulaire F_Selection, celui-ci est accroché sur la requête modifiable
par programmation, alors lorsque celui-ci est ouvert, il réflète l'état de la requête.

Alors que le formulaire Formulaire_Maintenance_Globale est accroché sur une requête
fixe et globale qui prend toute la table.

Toujours suivre l'ordre : Table -> Requête -> Fromulaire

Le formulaire est accroché sur la requête et la requête sur la table.

@+
Lupin

Utilisateur anonyme · Answer

re :

Pour accrocher un formulaire sur un requête.

1.) Choisir une table
2.) Créer une requête globale sur cette table
3.) Créer un formulaire

// Formulaire / Nouveau / Assistant Formulaire

Dans la liste déroulante [ Tables/Requêtes ]

Sélectionner la requête visé.

Faire basculer les champs disponibles dans la colonne 
des champs sélectionnés.

Suivant - Suivant - etc ...


Pour ce qui est du problème avec l'instruction : [ Definition.SQL = ChaineSQL ]
Cette fonction a été vérifié, testé, éprouvé, donc le problème ne vient pas de la.
En copiant la table, il faut s'assurer que la requête associé est toujours valide.

N'oublie pas, pour être capable de modifier une requête par programmation,
il faut connaître le nom de la requête et son contenu.

Cette requête pointe sur une table, alors si tu modifie le nom de la table,
il devient évident qu'il y aura un problème quelque part.

Toujours garder à l'esprit que les objets sont ainsi attachés :

[ Table ] -> [ Requête ] -> [ Formulaire ]

@+
Lupin



Lupin

Utilisateur anonyme · Answer

re :

"une page de formulaire avec tous les champs"

1.) Choisir une table visé.
2.) Créer un requête visé.

// Requête / Nouveau / Assistant Requête

Dans la liste déroulante [ Tables/Requêtes ] 

Sélectionner la table visé. 

Faire basculer les champs disponibles dans la colonne 
des champs sélectionnés. 

Suivant - Suivant - etc ... 

3.) Créer un formulaire accroché sur la requête

// Formulaire / Nouveau / Assistant Formulaire 

Dans la liste déroulante [ Tables/Requêtes ] 

Sélectionner la requête visé. 

Faire basculer les champs disponibles dans la colonne 
des champs sélectionnés. 

Suivant - Suivant - etc ... 

--------------------------

F_Selection2 n'est qu'un formulaire de test.
C'est le formulaire "Formulaire_Maintenance_Globale" qui est le bon !

Lupin

Utilisateur anonyme · Answer

Bonjour,

1.) Créer une requête globale à l'aide de l'assistant
2.) Insérer toutes les tables une à une et les champs de chaque table ( suivre document word)
3.) Créer un formulaire de la même façon accroché sur la requête globale.

document word : http://membre.oricom.ca/lupin/documents/tables.zip

Avec ces images du doc word, ce devrait être assez simple.

@+
Lupin

Utilisateur anonyme · Answer

re :

1.) Pour remplacer un champs par une liste déroulante :

Clic droit sur le champ
Sélectionner "Remplacer par" et "zone de liste déroulante"

2.) En mode données, les champs sont invisibles !

Il faudra ajouter les tables une à une dans une requête
ainsi que les champs un à un et valider à chaque étape !

J'ai fait un test globale et j'obtiens le même résultat que toi !
À mon avis, il s'agit d'un problème du à la structure des tables et/ou
des noms de champs qui sont identiques ! Toutefois, je ne suis
pas expert de cette partie.

J'ai toujours fait l'encapsulation des données avant de créer une BD
dans Access, donc mes structures sont hyper simple.

@+
Lupin

Utilisateur anonyme · Answer

re :

Bienvenue :-)

Je suis agréablement surpris que tu ais réussi à comprendre la partie
de modification de requête par programmation. Rare sont ceux qui
se sont rendu jusqu'au bout !

Bonne continuité.

Michel ( alias Lupin )

Utilisateur anonyme · Answer

Salut, Je cite : "et en sortir les valeurs superieures." Fin de citation La requête dit : 'WHERE ((([Maintenance].[Fin_garantie])>#1/1/2007# And ([Maintenance].[Fin_garantie])<#1/1/2008#)); ChaineSQL = ChaineSQL & "WHERE ((([Maintenance].[Fin_garantie])<=" & Critere1 & " " Il me semble que cela devrait être plutôt : 'WHERE (([Maintenance].[Fin_garantie])>#1/1/2007#); ChaineSQL = ChaineSQL & "WHERE ((([Maintenance].[Fin_garantie])>" & Critere1 & " " @+ Lupin

seblekiller_oupas · Answer

Par contre j'ai une question autre:

j'ai un sous formulaire contenant tous les champs de toutes mes bases. Il est controle par 3 liste deroulantes (quand chacune des 3 listes a une selection, ca m'affiche ce sous-formulaire)
J'aimerais donc pouvoir saisir de nouvelles references a partir d'un formulaire de ce type mais directement( juste apres avoir ouvert la page) j'ai essaye de faire une macro 'ouvrirFormulaire' avec l'option ajout mais ca ne marche pas, je n'arrive meme pas a modifier les donnees existantes; comment faire?

[access vba] modifier une requete

51 réponses

Discussions similaires

Newsletters