Bonjour,
J'ai créé un Formulaire '...Accueil' qui dispose d'un Sous-Formulaire '...Accueil2'
Sur le Formulaire, il y a une saisie qui lance une requête SQL qui s'affiche dans le sous-formulaire.
' La saisie
Dim SQL As String
If ZoneAgent > "" Then
SQL = " SELECT * FROM AppelDémarrage" _
& " WHERE [AppelDémarrage].[GICER_SERV_ADH].[AGT_CODE_AGENT] LIKE
'" & ZoneAgent & "'"
Form_Stockage_Production_ACCUEIL2.RecordSource = SQL
Form_Stockage_Production_ACCUEIL2.Refresh
Form_Stockage_Production_ACCUEIL2.Requery
End If
de cette liste, je selectionne un des résultats et je peu
cliquer sur un bouton qui m'ouvre un autre formulaire où j'affiche
d'autres informations.
' Le bouton
Dim SQL As String
SQL = " SELECT DISTINCTROW GICER_ADHERENT.NUM_ADH,
Fin_Facture.*, Fin_Lignes.*, Fin_Résultat_Panda.*, Fin_Pesage.*,
Fin_Tps_Production.*," _
& "
Fin_Existant.[2002_Extrême], Fin_Existant.[2003_Extrême],
Fin_Existant.[2004_Extrême], Fin_Existant.[2005_Extrême]," _
& "
Fin_Existant.[2006_Extrême], Fin_Existant.[2007_Extrême],
Fin_Existant.[2008_Extrême], Fin_Existant.[2009_Extrême]," _
& "
Fin_Existant.[2010_Extrême], GICER_ADHERENT.DESIGNATION,
GICER_ADHERENT.CIV_CODE" _
& " FROM
((((((GICER_ADHERENT LEFT JOIN Fin_Existant ON GICER_ADHERENT.NUM_ADH =
Fin_Existant.num_ADH)" _
& " LEFT JOIN Fin_Facture ON GICER_ADHERENT.NUM_ADH = Fin_Facture.num_ADH)" _
& " LEFT JOIN
Fin_Informatisation ON GICER_ADHERENT.NUM_ADH =
Fin_Informatisation.num_ADH)" _
& " LEFT JOIN Fin_Lignes ON GICER_ADHERENT.NUM_ADH = Fin_Lignes.num_ADH)" _
& " LEFT JOIN
Fin_Résultat_Panda ON GICER_ADHERENT.NUM_ADH =
Fin_Résultat_Panda.num_ADH)" _
& " LEFT JOIN Fin_Pesage ON GICER_ADHERENT.NUM_ADH = Fin_Pesage.num_ADH)" _
& " LEFT JOIN
Fin_Tps_Production ON GICER_ADHERENT.NUM_ADH =
Fin_Tps_Production.num_ADH" _
& " WHERE
((GICER_ADHERENT.NUM_ADH)='" &
Form_Stockage_Production_ACCUEIL2.ZoneNumADH & "');"
Form_Stockage_Production_Informations.RecordSource = SQL
Form_Stockage_Production_Informations.Visible = True
Form_Stockage_Production_ACCUEIL.Visible = False
Mon interrogation est :
comment éviter de revenir sur le formulaire d'accueil pour choisir l'enregistremet
nt suivant ?
je travail avec des liens de table Oracle (les GICER_...) et des locals le tout sous Access 2003
par avance,
merci