Bonsoir,
je n'arrive pas à détecter la faute de syntaxe dans le code suivant (voir
ligne 10):
Private Sub btOK_Click()
Dim strFiltre As String
On Error Resume Next
strFiltre = ""
If Not IsNull(Me.cmbDiv) Then
strFiltre = "([DIV]='" & Me.cmbDiv & "')"
End If
If Not IsNull(Me.cmbregime) Then
' l'erreur serait! par là! dans la ligne suivante je me perds dans les & et
les " ou ' A L'AIDE?
If strFiltre <> "" Then strFiltre = strFiltre & " AND " strFiltre =
strFiltre & "([ELEREGIME]='" & Me.cmbregime &"')"
End If
Me.Caption = strFiltre
With Me.sfrm_recherche_résultat.Form
.Filter = strFiltre
.FilterOn = True
End With
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
Eddie
Bonsoir,
Ton code est pour le moins confus. Il manque un ELSE et un END IF selon moi. Je ne connais le résultat escompté mais je l'ai imaginé comme ceci:
If Not IsNull(Me.cmbregime) Then If strFiltre <> "" Then strFiltre = strFiltre & " AND " Else strFiltre = strFiltre & "([ELEREGIME]='" & Me.cmbregime & "')" End If End If
Si cela ne convient pas, il faudra sans plus d'explication Bonne chance tout de même
-----Message d'origine----- Bonsoir, je n'arrive pas à détecter la faute de syntaxe dans le code suivant (voir
ligne 10):
Private Sub btOK_Click() Dim strFiltre As String
On Error Resume Next strFiltre = "" If Not IsNull(Me.cmbDiv) Then strFiltre = "([DIV]='" & Me.cmbDiv & "')" End If
If Not IsNull(Me.cmbregime) Then ' l'erreur serait! par là! dans la ligne suivante je me perds dans les & et
les " ou ' A L'AIDE? If strFiltre <> "" Then strFiltre = strFiltre & " AND " strFiltre =
strFiltre & "([ELEREGIME]='" & Me.cmbregime &"')" End If
Me.Caption = strFiltre
With Me.sfrm_recherche_résultat.Form .Filter = strFiltre .FilterOn = True End With
.
Bonsoir,
Ton code est pour le moins confus. Il manque un ELSE et
un END IF selon moi. Je ne connais le résultat escompté
mais je l'ai imaginé comme ceci:
If Not IsNull(Me.cmbregime) Then
If strFiltre <> "" Then
strFiltre = strFiltre & " AND "
Else
strFiltre = strFiltre & "([ELEREGIME]='" &
Me.cmbregime & "')"
End If
End If
Si cela ne convient pas, il faudra sans plus d'explication
Bonne chance tout de même
-----Message d'origine-----
Bonsoir,
je n'arrive pas à détecter la faute de syntaxe dans le
code suivant (voir
ligne 10):
Private Sub btOK_Click()
Dim strFiltre As String
On Error Resume Next
strFiltre = ""
If Not IsNull(Me.cmbDiv) Then
strFiltre = "([DIV]='" & Me.cmbDiv & "')"
End If
If Not IsNull(Me.cmbregime) Then
' l'erreur serait! par là! dans la ligne suivante je me
perds dans les & et
les " ou ' A L'AIDE?
If strFiltre <> "" Then strFiltre = strFiltre & "
AND " strFiltre =
strFiltre & "([ELEREGIME]='" & Me.cmbregime &"')"
End If
Me.Caption = strFiltre
With Me.sfrm_recherche_résultat.Form
.Filter = strFiltre
.FilterOn = True
End With
Ton code est pour le moins confus. Il manque un ELSE et un END IF selon moi. Je ne connais le résultat escompté mais je l'ai imaginé comme ceci:
If Not IsNull(Me.cmbregime) Then If strFiltre <> "" Then strFiltre = strFiltre & " AND " Else strFiltre = strFiltre & "([ELEREGIME]='" & Me.cmbregime & "')" End If End If
Si cela ne convient pas, il faudra sans plus d'explication Bonne chance tout de même
-----Message d'origine----- Bonsoir, je n'arrive pas à détecter la faute de syntaxe dans le code suivant (voir
ligne 10):
Private Sub btOK_Click() Dim strFiltre As String
On Error Resume Next strFiltre = "" If Not IsNull(Me.cmbDiv) Then strFiltre = "([DIV]='" & Me.cmbDiv & "')" End If
If Not IsNull(Me.cmbregime) Then ' l'erreur serait! par là! dans la ligne suivante je me perds dans les & et
les " ou ' A L'AIDE? If strFiltre <> "" Then strFiltre = strFiltre & " AND " strFiltre =
strFiltre & "([ELEREGIME]='" & Me.cmbregime &"')" End If
Me.Caption = strFiltre
With Me.sfrm_recherche_résultat.Form .Filter = strFiltre .FilterOn = True End With
