Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Conditions multiples

Conditions multiples

3 réponses
Avatar
Christophe CAMPAIN
Bonjour à tous,

J'ai bouton qui m'ouvre un état avec une condition sur le champ [Nom
client]. Je souhaiterai ajouter une seconde condition sur le champ [Date]
mais je ne parviens pas à trouver la syntaxe correcte.


'------------------------------
Private Sub CmdBtn_AperçuBilanQualité_Click()
On Error GoTo Err_CmdBtn_AperçuBilanQualité_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Edition d'un RNC par numéro" ' "Bilan Qualité Client"
stLinkCriteria = "[Nom client]=" & "'" & Me![NomSociété] & "' "
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_CmdBtn_AperçuBilanQualité_Click:
Exit Sub

Err_CmdBtn_AperçuBilanQualité_Click:
MsgBox Err.Description
Resume Exit_CmdBtn_AperçuBilanQualité_Click

End Sub
'------------------------------
Quelqu'un peut m'aider ?

Par avance merci,

@+
Kristof

Private Sub CmdBtn_AperçuBilanQualité_Click()
On Error GoTo Err_CmdBtn_AperçuBilanQualité_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Edition d'un RNC par numéro" ' "Bilan Qualité Client"
stLinkCriteria = "[Nom client]=" & "'" & Me![NomSociété] & "' "
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_CmdBtn_AperçuBilanQualité_Click:
Exit Sub

Err_CmdBtn_AperçuBilanQualité_Click:
MsgBox Err.Description
Resume Exit_CmdBtn_AperçuBilanQualité_Click

End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

essaie ceci:
stLinkCriteria = "[Nom client]='" & Me![NomSociété] & "'" _
& " And format([ladate],""mm/dd/yyyy"") = #" _
& Format(Me.Madate, "mm/dd/yyyy") & "#"

n'ai-je rien oublié ? tu t'arranges pour les formats de dates.
ne jamais appeler un champ Date qui est un mot réservé Access.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Christophe CAMPAIN" a écrit
dans le message de news:%
Bonjour à tous,

J'ai bouton qui m'ouvre un état avec une condition sur le champ [Nom
client]. Je souhaiterai ajouter une seconde condition sur le champ [Date]
mais je ne parviens pas à trouver la syntaxe correcte.


'------------------------------
Private Sub CmdBtn_AperçuBilanQualité_Click()
On Error GoTo Err_CmdBtn_AperçuBilanQualité_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Edition d'un RNC par numéro" ' "Bilan Qualité Client"
stLinkCriteria = "[Nom client]=" & "'" & Me![NomSociété] & "' "
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_CmdBtn_AperçuBilanQualité_Click:
Exit Sub

Err_CmdBtn_AperçuBilanQualité_Click:
MsgBox Err.Description
Resume Exit_CmdBtn_AperçuBilanQualité_Click

End Sub
'------------------------------
Quelqu'un peut m'aider ?

Par avance merci,


Avatar
Eric
Bonjour Kristof,

As tu essayé :

stLinkCriteria = "[Nom client]=" & "'" & Me![NomSociété] & "' and
[Madate]=#" & Me.MonControleDate & "#

A+
Eric





"Christophe CAMPAIN"
écrivait news:#:

Bonjour à tous,

J'ai bouton qui m'ouvre un état avec une condition sur le champ [Nom
client]. Je souhaiterai ajouter une seconde condition sur le champ
[Date]

mais je ne parviens pas à trouver la syntaxe correcte.


'------------------------------
Private Sub CmdBtn_AperçuBilanQualité_Click()
On Error GoTo Err_CmdBtn_AperçuBilanQualité_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Edition d'un RNC par numéro" ' "Bilan Qualité Client"
stLinkCriteria = "[Nom client]=" & "'" & Me![NomSociété] & "' "
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_CmdBtn_AperçuBilanQualité_Click:
Exit Sub

Err_CmdBtn_AperçuBilanQualité_Click:
MsgBox Err.Description
Resume Exit_CmdBtn_AperçuBilanQualité_Click

End Sub
'------------------------------
Quelqu'un peut m'aider ?

Par avance merci,

@+
Kristof



Avatar
Christophe CAMPAIN
Bonjour et merci à tous les deux !

Mon problème est maintenant résolu. C'était bien une question de format de
date et de # comme vous le suggériez.

@+
Kristof

"Christophe CAMPAIN" a écrit
dans le message de news:%
Bonjour à tous,

J'ai bouton qui m'ouvre un état avec une condition sur le champ [Nom
client]. Je souhaiterai ajouter une seconde condition sur le champ [Date]
mais je ne parviens pas à trouver la syntaxe correcte.


'------------------------------
Private Sub CmdBtn_AperçuBilanQualité_Click()
On Error GoTo Err_CmdBtn_AperçuBilanQualité_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Edition d'un RNC par numéro" ' "Bilan Qualité Client"
stLinkCriteria = "[Nom client]=" & "'" & Me![NomSociété] & "' "
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_CmdBtn_AperçuBilanQualité_Click:
Exit Sub

Err_CmdBtn_AperçuBilanQualité_Click:
MsgBox Err.Description
Resume Exit_CmdBtn_AperçuBilanQualité_Click

End Sub
'------------------------------
Quelqu'un peut m'aider ?

Par avance merci,

@+
Kristof

Private Sub CmdBtn_AperçuBilanQualité_Click()
On Error GoTo Err_CmdBtn_AperçuBilanQualité_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Edition d'un RNC par numéro" ' "Bilan Qualité Client"
stLinkCriteria = "[Nom client]=" & "'" & Me![NomSociété] & "' "
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Exit_CmdBtn_AperçuBilanQualité_Click:
Exit Sub

Err_CmdBtn_AperçuBilanQualité_Click:
MsgBox Err.Description
Resume Exit_CmdBtn_AperçuBilanQualité_Click

End Sub