OVH Cloud OVH Cloud

CRITERES

2 réponses
Avatar
GUGU
Bonjours à tous,

Ma question est la suivante,
Je souhaiterai regrouper les 4 critéres qui suivent dans une même action sub
et je n'y arrive pas ( y a des moments, c'est frustrant d'etre débutant !!!!!)

Je vous serai encore une fois eternellement reconnaissant ...

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N°OF]=" & "'" & Me![N°OF] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N° LIGNCDE]=" & Me![N° LIGNCDE]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N° FS]=" & Me![N° FS]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N° DOSSIER]=" & Me![N° DOSSIER]
DoCmd.OpenForm stDocName, , , stLinkCriteria

2 réponses

Avatar
ze Titi
Bonjour GUGU

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N°OF]='" & Me![N°OF] & "' AND [N° LIGNCDE]=" & Me![N° LIGNCDE] & " AND [N° FS]=" & Me![N° FS] & " AND [N° DOSSIER]=" & Me![N° DOSSIER]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dis-nous !

Bonjours à tous,

Ma question est la suivante,
Je souhaiterai regrouper les 4 critéres qui suivent dans une même action sub
et je n'y arrive pas ( y a des moments, c'est frustrant d'etre débutant
!!!!!)

Je vous serai encore une fois eternellement reconnaissant ...

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N°OF]=" & "'" & Me![N°OF] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N° LIGNCDE]=" & Me![N° LIGNCDE]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N° FS]=" & Me![N° FS]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N° DOSSIER]=" & Me![N° DOSSIER]
DoCmd.OpenForm stDocName, , , stLinkCriteria


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info

Avatar
GUGU
Vous êtes vraiment tous formidables ....................
Ca fonctionne super

J'étais vraimant paumé dans les "", &,!, Etc ....

Encore merci et bonne soirée


Bonjour GUGU

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N°OF]='" & Me![N°OF] & "' AND [N° LIGNCDE]=" & Me![N° LIGNCDE] & " AND [N° FS]=" & Me![N° FS] & " AND [N° DOSSIER]=" & Me![N° DOSSIER]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dis-nous !

Bonjours à tous,

Ma question est la suivante,
Je souhaiterai regrouper les 4 critéres qui suivent dans une même action sub
et je n'y arrive pas ( y a des moments, c'est frustrant d'etre débutant
!!!!!)

Je vous serai encore une fois eternellement reconnaissant ...

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N°OF]=" & "'" & Me![N°OF] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N° LIGNCDE]=" & Me![N° LIGNCDE]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N° FS]=" & Me![N° FS]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "SF-SAISIENSCEQUA"
stLinkCriteria = "[N° DOSSIER]=" & Me![N° DOSSIER]
DoCmd.OpenForm stDocName, , , stLinkCriteria


--
Cordialement,
Ze Titi

Tout pour réussir avec Access :
http://www.mpfa.info