salut!
Est-il possible d'ouvrir un formulaire a partir du
resultat d'une requete mis en variable dans le
code "onload" du formulaire??
du style dans "on_load":
dim requete
requete="select * from table"& _
"where ((champ1)=(toto))"
et du coup dans "on_open" ouvrir le formulaire par rapport
a ce que renvoie la variable requete???
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
Eric
"fred" écrivait news:1c21201c45211 $ab71cc60$:
salut! Est-il possible d'ouvrir un formulaire a partir du resultat d'une requete mis en variable dans le code "onload" du formulaire?? du style dans "on_load": dim requete requete="select * from table"& _ "where ((champ1)=(toto))"
et du coup dans "on_open" ouvrir le formulaire par rapport a ce que renvoie la variable requete???
Merci d'avance!! fred
Bonjour,
On peux faire un truc du genre : Private Sub Form_Open(Cancel As Integer) Dim f As Form, strSQL As String strSQL = "Select * from tatable where tonchamp='blabla';" Set f = Me f.RecordSource = strSQL Me.Refresh End Sub
Il faut que les champs de ton formulaire correspondent aux champs de la requête.
salut!
Est-il possible d'ouvrir un formulaire a partir du
resultat d'une requete mis en variable dans le
code "onload" du formulaire??
du style dans "on_load":
dim requete
requete="select * from table"& _
"where ((champ1)=(toto))"
et du coup dans "on_open" ouvrir le formulaire par rapport
a ce que renvoie la variable requete???
Merci d'avance!!
fred
Bonjour,
On peux faire un truc du genre :
Private Sub Form_Open(Cancel As Integer)
Dim f As Form, strSQL As String
strSQL = "Select * from tatable where tonchamp='blabla';"
Set f = Me
f.RecordSource = strSQL
Me.Refresh
End Sub
Il faut que les champs de ton formulaire correspondent aux champs de la
requête.
salut! Est-il possible d'ouvrir un formulaire a partir du resultat d'une requete mis en variable dans le code "onload" du formulaire?? du style dans "on_load": dim requete requete="select * from table"& _ "where ((champ1)=(toto))"
et du coup dans "on_open" ouvrir le formulaire par rapport a ce que renvoie la variable requete???
Merci d'avance!! fred
Bonjour,
On peux faire un truc du genre : Private Sub Form_Open(Cancel As Integer) Dim f As Form, strSQL As String strSQL = "Select * from tatable where tonchamp='blabla';" Set f = Me f.RecordSource = strSQL Me.Refresh End Sub
Il faut que les champs de ton formulaire correspondent aux champs de la requête.
Si ton champ est numérique, enleves les '
A+ Eric
Eric
Eric écrivait news::
On peux faire un truc du genre : Private Sub Form_Open(Cancel As Integer) Dim f As Form, strSQL As String strSQL = "Select * from tatable where tonchamp='blabla';" Set f = Me f.RecordSource = strSQL Me.Refresh End Sub
Il faut que les champs de ton formulaire correspondent aux champs de la requête.
Si ton champ est numérique, enleves les '
A+ Eric
re, là j'ai fait compliqué:
en simplifiant ca donne : Private Sub Form_Open(Cancel As Integer) Me.Recordsource= "Select * from tatable where tonchamp='blabla';" Me.Refresh End Sub
Eric
Eric <f_framZZ@hotmail.com> écrivait
news:XnF95089CEF68192fframZZhotmailcom@207.46.248.16:
On peux faire un truc du genre :
Private Sub Form_Open(Cancel As Integer)
Dim f As Form, strSQL As String
strSQL = "Select * from tatable where tonchamp='blabla';"
Set f = Me
f.RecordSource = strSQL
Me.Refresh
End Sub
Il faut que les champs de ton formulaire correspondent aux champs de la
requête.
Si ton champ est numérique, enleves les '
A+
Eric
re,
là j'ai fait compliqué:
en simplifiant ca donne :
Private Sub Form_Open(Cancel As Integer)
Me.Recordsource= "Select * from tatable where tonchamp='blabla';"
Me.Refresh
End Sub
On peux faire un truc du genre : Private Sub Form_Open(Cancel As Integer) Dim f As Form, strSQL As String strSQL = "Select * from tatable where tonchamp='blabla';" Set f = Me f.RecordSource = strSQL Me.Refresh End Sub
Il faut que les champs de ton formulaire correspondent aux champs de la requête.
Si ton champ est numérique, enleves les '
A+ Eric
re, là j'ai fait compliqué:
en simplifiant ca donne : Private Sub Form_Open(Cancel As Integer) Me.Recordsource= "Select * from tatable where tonchamp='blabla';" Me.Refresh End Sub