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 Probleme SQL

Probleme SQL

11 réponses
Avatar
fth
Bonjour,
VOici la situation:

MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]

Quand je choisi le type de contrat dans BtContratType, j'attend en retour
toute la table filtrée sur base de ce qu'il y a dans BtContratType

Voici le code sur lequel je butte lamentablement (faut bien l'dire!)

Merci pour vos suggestions

Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String

SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")

DoCmd.RunSQL SQL

End Sub
Signaler un problème avec ce contenu

10 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
1 2
Avatar
Patrice
bonjour

Essai

Private Sub BtSContratType_AfterUpdate()
me.filter="ContratType='" & me!BtCOntratType & "'"
me.filteron=true
end sub


Bonjour,
VOici la situation:

MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]

Quand je choisi le type de contrat dans BtContratType, j'attend en retour
toute la table filtrée sur base de ce qu'il y a dans BtContratType

Voici le code sur lequel je butte lamentablement (faut bien l'dire!)

Merci pour vos suggestions

Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String

SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")

DoCmd.RunSQL SQL

End Sub





Avatar
Gilles MOUGNOZ
Bonjour,
VOici la situation:
MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]
Quand je choisi le type de contrat dans BtContratType, j'attend en retour
toute la table filtrée sur base de ce qu'il y a dans BtContratType
Voici le code sur lequel je butte lamentablement (faut bien l'dire!)
Merci pour vos suggestions
Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String
SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")
DoCmd.RunSQL SQL
End Sub


Bonjour, Frédéric

Essaie de remplacer ta clause Where par ceci:

"WHERE (((QyContrat.ContratType)=" & Me.[BtContratType] & "));"

Ceci est valable si BtContratType est de type numérique.
Si ta liste déroulante renvoie une valeur de type texte, il faut ajouter des
guillemets simples:

"WHERE (((QyContrat.ContratType)='" & Me.[BtContratType] & "'));"

Bonne continuation

Avatar
fth
... me fais tout petit petit ...

C'est parfait...

Merci Patrice

Frédéric


"Patrice" wrote in message
news:
bonjour

Essai

Private Sub BtSContratType_AfterUpdate()
me.filter="ContratType='" & me!BtCOntratType & "'"
me.filteron=true
end sub


Bonjour,
VOici la situation:

MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]

Quand je choisi le type de contrat dans BtContratType, j'attend en retour
toute la table filtrée sur base de ce qu'il y a dans BtContratType

Voici le code sur lequel je butte lamentablement (faut bien l'dire!)

Merci pour vos suggestions

Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String

SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")

DoCmd.RunSQL SQL

End Sub







Avatar
fth
Re Bonjour,

ta solution est elle possible pour plusieurs champs dans la mm form?

Frederic
"Patrice" wrote in message
news:
bonjour

Essai

Private Sub BtSContratType_AfterUpdate()
me.filter="ContratType='" & me!BtCOntratType & "'"
me.filteron=true
end sub


Bonjour,
VOici la situation:

MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]

Quand je choisi le type de contrat dans BtContratType, j'attend en retour
toute la table filtrée sur base de ce qu'il y a dans BtContratType

Voici le code sur lequel je butte lamentablement (faut bien l'dire!)

Merci pour vos suggestions

Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String

SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")

DoCmd.RunSQL SQL

End Sub







Avatar
Jessy Sempere [MVP]
Bonjour

Oui, normalement c'est possible par contre il te faut gérer le fait que tu
peux faire des choix dans n'importe quel odre de tes champs...

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"fth" <infosSPAM?@matloc.be> a écrit dans le message de
news:
Re Bonjour,

ta solution est elle possible pour plusieurs champs dans la mm form?

Frederic
"Patrice" wrote in message
news:
bonjour

Essai

Private Sub BtSContratType_AfterUpdate()
me.filter="ContratType='" & me!BtCOntratType & "'"
me.filteron=true
end sub


Bonjour,
VOici la situation:

MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]

Quand je choisi le type de contrat dans BtContratType, j'attend en
retour



toute la table filtrée sur base de ce qu'il y a dans BtContratType

Voici le code sur lequel je butte lamentablement (faut bien l'dire!)

Merci pour vos suggestions

Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String

SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")

DoCmd.RunSQL SQL

End Sub











Avatar
Patrice
oui du genre:

me.filter="ContratType='" & me!BtCOntratType & "' and titi='" & me!champ1 &
"' and me!champ2=true"

Pas de ' pour du numérique


Re Bonjour,

ta solution est elle possible pour plusieurs champs dans la mm form?

Frederic
"Patrice" wrote in message
news:
bonjour

Essai

Private Sub BtSContratType_AfterUpdate()
me.filter="ContratType='" & me!BtCOntratType & "'"
me.filteron=true
end sub


Bonjour,
VOici la situation:

MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]

Quand je choisi le type de contrat dans BtContratType, j'attend en retour
toute la table filtrée sur base de ce qu'il y a dans BtContratType

Voici le code sur lequel je butte lamentablement (faut bien l'dire!)

Merci pour vos suggestions

Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String

SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")

DoCmd.RunSQL SQL

End Sub












Avatar
fth
rE BONJOUR Fabrice,

voici comment j'essaie de résoudre mon probleme:
Me.Filter = Nz("ContratType = '" & Me!BtSContratType, "") & "'" And
Nz("LevelResp = '" & Me!BtsLevelResp, "") & "'" And Nz("Categ = '" &
Me!BtsCateg, "")
Me.FilterOn = True

bien entendu, ça coince ...

Une iée?

D'avance merci

Frédéric



"Patrice" wrote in message
news:
oui du genre:

me.filter="ContratType='" & me!BtCOntratType & "' and titi='" & me!champ1
&
"' and me!champ2=true"

Pas de ' pour du numérique


Re Bonjour,

ta solution est elle possible pour plusieurs champs dans la mm form?

Frederic
"Patrice" wrote in message
news:
bonjour

Essai

Private Sub BtSContratType_AfterUpdate()
me.filter="ContratType='" & me!BtCOntratType & "'"
me.filteron=true
end sub


Bonjour,
VOici la situation:

MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]

Quand je choisi le type de contrat dans BtContratType, j'attend en
retour
toute la table filtrée sur base de ce qu'il y a dans BtContratType

Voici le code sur lequel je butte lamentablement (faut bien l'dire!)

Merci pour vos suggestions

Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String

SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")

DoCmd.RunSQL SQL

End Sub














Avatar
fth
Bonjour Jessy,

Que veux tu dire par la?

Frédéric

"Jessy Sempere [MVP]" wrote in message
news:44645581$
Bonjour

Oui, normalement c'est possible par contre il te faut gérer le fait que tu
peux faire des choix dans n'importe quel odre de tes champs...

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"fth" <infosSPAM?@matloc.be> a écrit dans le message de
news:
Re Bonjour,

ta solution est elle possible pour plusieurs champs dans la mm form?

Frederic
"Patrice" wrote in message
news:
bonjour

Essai

Private Sub BtSContratType_AfterUpdate()
me.filter="ContratType='" & me!BtCOntratType & "'"
me.filteron=true
end sub


Bonjour,
VOici la situation:

MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]

Quand je choisi le type de contrat dans BtContratType, j'attend en
retour



toute la table filtrée sur base de ce qu'il y a dans BtContratType

Voici le code sur lequel je butte lamentablement (faut bien l'dire!)

Merci pour vos suggestions

Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String

SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")

DoCmd.RunSQL SQL

End Sub















Avatar
Patrice
peut-être mettre Nz("ContratType = '" & Me!BtSContratType, "*") .....


rE BONJOUR Fabrice,

voici comment j'essaie de résoudre mon probleme:
Me.Filter = Nz("ContratType = '" & Me!BtSContratType, "") & "'" And
Nz("LevelResp = '" & Me!BtsLevelResp, "") & "'" And Nz("Categ = '" &
Me!BtsCateg, "")
Me.FilterOn = True

bien entendu, ça coince ...

Une iée?

D'avance merci

Frédéric



"Patrice" wrote in message
news:
oui du genre:

me.filter="ContratType='" & me!BtCOntratType & "' and titi='" & me!champ1
&
"' and me!champ2=true"

Pas de ' pour du numérique


Re Bonjour,

ta solution est elle possible pour plusieurs champs dans la mm form?

Frederic
"Patrice" wrote in message
news:
bonjour

Essai

Private Sub BtSContratType_AfterUpdate()
me.filter="ContratType='" & me!BtCOntratType & "'"
me.filteron=true
end sub


Bonjour,
VOici la situation:

MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]

Quand je choisi le type de contrat dans BtContratType, j'attend en
retour
toute la table filtrée sur base de ce qu'il y a dans BtContratType

Voici le code sur lequel je butte lamentablement (faut bien l'dire!)

Merci pour vos suggestions

Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String

SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")

DoCmd.RunSQL SQL

End Sub



















Avatar
fth
Oups,
bonne idée;

je fais donc:

Me.Filter = Nz(ContratType = Me!BtSContratType , "*") & _
"& And Nz(LevelResp = Me!BtsLevelResp, "*") & _
"& And Nz(Categ = Me!BtsCateg, "*")
Me.FilterOn = True

la j'ai une erreur (Exprected end of statment)

Grrr, ça me prend la tête ..

Merci pour ta patience ;-)

Frédéric

"fth" <i
nfosSPAM?@matloc.be> wrote in message
news:%
rE BONJOUR Fabrice,

voici comment j'essaie de résoudre mon probleme:
Me.Filter = Nz("ContratType = '" & Me!BtSContratType, "") & "'" And
Nz("LevelResp = '" & Me!BtsLevelResp, "") & "'" And Nz("Categ = '" &
Me!BtsCateg, "")
Me.FilterOn = True

bien entendu, ça coince ...

Une iée?

D'avance merci

Frédéric



"Patrice" wrote in message
news:
oui du genre:

me.filter="ContratType='" & me!BtCOntratType & "' and titi='" & me!champ1
&
"' and me!champ2=true"

Pas de ' pour du numérique


Re Bonjour,

ta solution est elle possible pour plusieurs champs dans la mm form?

Frederic
"Patrice" wrote in message
news:
bonjour

Essai

Private Sub BtSContratType_AfterUpdate()
me.filter="ContratType='" & me!BtCOntratType & "'"
me.filteron=true
end sub


Bonjour,
VOici la situation:

MaForm avec mes champs.
Un comboBox avec les types de contrats existant (BtContratType)
et mon champ [contratType]

Quand je choisi le type de contrat dans BtContratType, j'attend en
retour
toute la table filtrée sur base de ce qu'il y a dans BtContratType

Voici le code sur lequel je butte lamentablement (faut bien l'dire!)

Merci pour vos suggestions

Frédéric

Private Sub BtSContratType_AfterUpdate()
Dim SQL As String

SQL = ("SELECT QyContrat.* " & _
"From QyContrat " & _
"WHERE (((QyContrat.ContratType)=[BtCOntratType]));")

DoCmd.RunSQL SQL

End Sub


















1 2