J'ai un form "frmdonnees" contenant un sous form "sfrmdonnees" m'affichant
des articles disponibles à la vente que j'assigne au fur et à mesure des
ventes dans le champ "pneu", ma requete de sélection de pneus libres
"rqpneudispo" fonctionne puisque si je ferme le form et que je le réouvre
les articles vendus ne sont plus disponibles..
Je voudrais que lorsque je choisis un article dans la liste des articles
dispo il soit automatiquement enlevé des articles dispos.
J'ai essayé de mettre un bout de code dans la after update du champ :
Private Sub pneu_AfterUpdate()
Me.sfrmdonnees.Requery
End Sub
Le Wed, 04 Oct 2006 14:00:02 +0200, <"//www.cerbermail.com/?sj4KuQC4GQ>"> a écrit:
c'est quoi cette erreur dont tu me parles sur la sélection du champ ?
Ben par exemple avec ce code :
Private Sub pneu_AfterUpdate() Me.sfrmdonnees.Requery Me.vendu = True End Sub
J'ai une erreur membre de methode ou de données introuvable et la ligne causant l'erreur est celle de me.sfrmdonnees, comme s'il ne trouvait pas le sousform en question (alors qu'il est dedans cet idiot !!!)
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
Le Wed, 04 Oct 2006 14:00:02 +0200, <"//www.cerbermail.com/?sj4KuQC4GQ>">
a écrit:
c'est quoi cette erreur dont tu me parles sur la sélection du champ ?
Ben par exemple avec ce code :
Private Sub pneu_AfterUpdate()
Me.sfrmdonnees.Requery
Me.vendu = True
End Sub
J'ai une erreur membre de methode ou de données introuvable et la ligne
causant l'erreur est celle de me.sfrmdonnees, comme s'il ne trouvait pas
le sousform en question (alors qu'il est dedans cet idiot !!!)
Le Wed, 04 Oct 2006 14:00:02 +0200, <"//www.cerbermail.com/?sj4KuQC4GQ>"> a écrit:
c'est quoi cette erreur dont tu me parles sur la sélection du champ ?
Ben par exemple avec ce code :
Private Sub pneu_AfterUpdate() Me.sfrmdonnees.Requery Me.vendu = True End Sub
J'ai une erreur membre de methode ou de données introuvable et la ligne causant l'erreur est celle de me.sfrmdonnees, comme s'il ne trouvait pas le sousform en question (alors qu'il est dedans cet idiot !!!)
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
3stone
Salut,
"Txl" | > c'est quoi cette erreur dont tu me parles sur la sélection du champ ? | > | | Ben par exemple avec ce code : | | | Private Sub pneu_AfterUpdate() | Me.sfrmdonnees.Requery | Me.vendu = True | End Sub
Ta roue... heu, ton "pneu" il se trouve dans le formulaire principal ?
"Txl"
| > c'est quoi cette erreur dont tu me parles sur la sélection du champ ?
| >
|
| Ben par exemple avec ce code :
|
|
| Private Sub pneu_AfterUpdate()
| Me.sfrmdonnees.Requery
| Me.vendu = True
| End Sub
Ta roue... heu, ton "pneu" il se trouve dans le formulaire principal ?
"Txl" | > c'est quoi cette erreur dont tu me parles sur la sélection du champ ? | > | | Ben par exemple avec ce code : | | | Private Sub pneu_AfterUpdate() | Me.sfrmdonnees.Requery | Me.vendu = True | End Sub
Ta roue... heu, ton "pneu" il se trouve dans le formulaire principal ?
Le Fri, 06 Oct 2006 00:09:05 +0200, 3stone a écrit:
Salut,
"Txl" | > c'est quoi cette erreur dont tu me parles sur la sélection du champ ? | > | | Ben par exemple avec ce code : | | | Private Sub pneu_AfterUpdate() | Me.sfrmdonnees.Requery | Me.vendu = True | End Sub
Ta roue... heu, ton "pneu" il se trouve dans le formulaire principal ?
car si c'est dans le sous-form, tu fais :
Me.requery
Mon "pneumatique" :-) se trouve dans le sousform, la requete est en source de sousform et le me.requery ne me donne rien....
J'ai un fantome dans mon access ou quoi ?
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
Le Fri, 06 Oct 2006 00:09:05 +0200, 3stone <home@sweet_home.be> a écrit:
Salut,
"Txl"
| > c'est quoi cette erreur dont tu me parles sur la sélection du champ ?
| >
|
| Ben par exemple avec ce code :
|
|
| Private Sub pneu_AfterUpdate()
| Me.sfrmdonnees.Requery
| Me.vendu = True
| End Sub
Ta roue... heu, ton "pneu" il se trouve dans le formulaire principal ?
car si c'est dans le sous-form, tu fais :
Me.requery
Mon "pneumatique" :-) se trouve dans le sousform, la requete est en source
de sousform et le me.requery ne me donne rien....
Le Fri, 06 Oct 2006 00:09:05 +0200, 3stone a écrit:
Salut,
"Txl" | > c'est quoi cette erreur dont tu me parles sur la sélection du champ ? | > | | Ben par exemple avec ce code : | | | Private Sub pneu_AfterUpdate() | Me.sfrmdonnees.Requery | Me.vendu = True | End Sub
Ta roue... heu, ton "pneu" il se trouve dans le formulaire principal ?
car si c'est dans le sous-form, tu fais :
Me.requery
Mon "pneumatique" :-) se trouve dans le sousform, la requete est en source de sousform et le me.requery ne me donne rien....
J'ai un fantome dans mon access ou quoi ?
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
3stone
re,
"Txl" [...] | Mon "pneumatique" :-) se trouve dans le sousform, la requete est en source | de sousform et le me.requery ne me donne rien.... | | J'ai un fantome dans mon access ou quoi ?
"Txl"
[...]
| Mon "pneumatique" :-) se trouve dans le sousform, la requete est en source
| de sousform et le me.requery ne me donne rien....
|
| J'ai un fantome dans mon access ou quoi ?
"Txl" [...] | Mon "pneumatique" :-) se trouve dans le sousform, la requete est en source | de sousform et le me.requery ne me donne rien.... | | J'ai un fantome dans mon access ou quoi ?
Le Sat, 07 Oct 2006 01:13:15 +0200, 3stone a écrit:
re,
"Txl" [...] | Mon "pneumatique" :-) se trouve dans le sousform, la requete est en source | de sousform et le me.requery ne me donne rien.... | | J'ai un fantome dans mon access ou quoi ?
et le "After_Update" à bien lieu ?
si tu y place un Msgbox, il s'ouvre ?
Avec ce code
Private Sub pneu_AfterUpdate() Me.Requery Me.vendu = True MsgBox (test) End Sub
J'ai bien le messagebox qui s'affiche, par contre le me.vendu ne marche pas, donc on dirait bien qu'il a du mal à localiser le "me." :-(
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
Le Sat, 07 Oct 2006 01:13:15 +0200, 3stone <home@sweet_home.be> a écrit:
re,
"Txl"
[...]
| Mon "pneumatique" :-) se trouve dans le sousform, la requete est en
source
| de sousform et le me.requery ne me donne rien....
|
| J'ai un fantome dans mon access ou quoi ?
et le "After_Update" à bien lieu ?
si tu y place un Msgbox, il s'ouvre ?
Avec ce code
Private Sub pneu_AfterUpdate()
Me.Requery
Me.vendu = True
MsgBox (test)
End Sub
J'ai bien le messagebox qui s'affiche, par contre le me.vendu ne marche
pas, donc on dirait bien qu'il a du mal à localiser le "me." :-(
Le Sat, 07 Oct 2006 01:13:15 +0200, 3stone a écrit:
re,
"Txl" [...] | Mon "pneumatique" :-) se trouve dans le sousform, la requete est en source | de sousform et le me.requery ne me donne rien.... | | J'ai un fantome dans mon access ou quoi ?
et le "After_Update" à bien lieu ?
si tu y place un Msgbox, il s'ouvre ?
Avec ce code
Private Sub pneu_AfterUpdate() Me.Requery Me.vendu = True MsgBox (test) End Sub
J'ai bien le messagebox qui s'affiche, par contre le me.vendu ne marche pas, donc on dirait bien qu'il a du mal à localiser le "me." :-(
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
3stone
re,
"Txl" | Avec ce code | | Private Sub pneu_AfterUpdate() | Me.Requery | Me.vendu = True | MsgBox (test) | End Sub | | | J'ai bien le messagebox qui s'affiche, par contre le me.vendu ne marche | pas, donc on dirait bien qu'il a du mal à localiser le "me." :-(
"Txl"
| Avec ce code
|
| Private Sub pneu_AfterUpdate()
| Me.Requery
| Me.vendu = True
| MsgBox (test)
| End Sub
|
|
| J'ai bien le messagebox qui s'affiche, par contre le me.vendu ne marche
| pas, donc on dirait bien qu'il a du mal à localiser le "me." :-(
"Txl" | Avec ce code | | Private Sub pneu_AfterUpdate() | Me.Requery | Me.vendu = True | MsgBox (test) | End Sub | | | J'ai bien le messagebox qui s'affiche, par contre le me.vendu ne marche | pas, donc on dirait bien qu'il a du mal à localiser le "me." :-(
Le Sat, 07 Oct 2006 15:42:13 +0200, 3stone a écrit:
re,
"Txl" | Avec ce code | | Private Sub pneu_AfterUpdate() | Me.Requery | Me.vendu = True | MsgBox (test) | End Sub | | | J'ai bien le messagebox qui s'affiche, par contre le me.vendu ne marche | pas, donc on dirait bien qu'il a du mal à localiser le "me." :-(
essaies
Me!Vendu = True
Pas mieux....
c'est bizarre quand meme, y'a pourtant rien de spécial dans mon cas et ca ne marche vraiment pas...
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
Le Sat, 07 Oct 2006 15:42:13 +0200, 3stone <home@sweet_home.be> a écrit:
re,
"Txl"
| Avec ce code
|
| Private Sub pneu_AfterUpdate()
| Me.Requery
| Me.vendu = True
| MsgBox (test)
| End Sub
|
|
| J'ai bien le messagebox qui s'affiche, par contre le me.vendu ne marche
| pas, donc on dirait bien qu'il a du mal à localiser le "me." :-(
essaies
Me!Vendu = True
Pas mieux....
c'est bizarre quand meme, y'a pourtant rien de spécial dans mon cas et ca
ne marche vraiment pas...
Le Sat, 07 Oct 2006 15:42:13 +0200, 3stone a écrit:
re,
"Txl" | Avec ce code | | Private Sub pneu_AfterUpdate() | Me.Requery | Me.vendu = True | MsgBox (test) | End Sub | | | J'ai bien le messagebox qui s'affiche, par contre le me.vendu ne marche | pas, donc on dirait bien qu'il a du mal à localiser le "me." :-(
essaies
Me!Vendu = True
Pas mieux....
c'est bizarre quand meme, y'a pourtant rien de spécial dans mon cas et ca ne marche vraiment pas...
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
3stone
re,
"Txl" | | Pas mieux.... | | c'est bizarre quand meme, y'a pourtant rien de spécial dans mon cas et ca | ne marche vraiment pas...
regardé le fil en diagonale...
[Pneu] est dans le sous formulaire, tout comme ton code [Vendu] "semble"... être dans le form principal
Private Sub pneu_AfterUpdate() Me.Requery Me.Parent!vendu = True End Sub
bien que je me demande pourquoi tu fait un requery dans le sous form... si c'est por sauver la saisie de [Pneu], fait Me.Dirtyúlse
Le Mon, 09 Oct 2006 17:32:29 +0200, 3stone a écrit:
re,
"Txl" | | Pas mieux.... | | c'est bizarre quand meme, y'a pourtant rien de spécial dans mon cas et ca | ne marche vraiment pas...
regardé le fil en diagonale...
[Pneu] est dans le sous formulaire, tout comme ton code [Vendu] "semble"... être dans le form principal
Private Sub pneu_AfterUpdate() Me.Requery Me.Parent!vendu = True End Sub
bien que je me demande pourquoi tu fait un requery dans le sous form... si c'est por sauver la saisie de [Pneu], fait Me.Dirtyúlse
Je te refais un historique :
Le form contient les infos de session, course, équipe, circuit.
Le sousform contient les pneus achetés par cette équipe sur ce circuit pendant cette course.
Dans les propriétés du sousform j'ai une requete qui alimente le champ "pneudonnees" en "pneus dispos", c'est à dire que dans la table générale des pneus (avec numéro de série) la requete va chercher ceux qui ne sont pas vendus ou alors qui sont vendu mais qui ont été ramenés et échangés et qui donc sont a nouveau dispos.
Les controles "vendu" et "échange" sont dans le sousform, en fait le sousform comprend une liste déroulante (les numéros de série des pneus dispos) et 4 cases à cocher (vendu, in échange, out échange et arrière pour savoir si c'est un pneu arrière ou avant)
le problème c'est que quand je choisis un pneu dans la liste déroulante du sousform pour dire que "3stone à pris le Z12334" je voudrais bien que ca relance la requete une fois que la case "vendu" a été cochée pour que le Z12334 disparaisse de la liste déroulante pour le prochain pneu que 3stone va prendre puisqu'il est déja vendu (et donc non dispo)
Merci de ton aide
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
Le Mon, 09 Oct 2006 17:32:29 +0200, 3stone <home@sweet_home.be> a écrit:
re,
"Txl"
|
| Pas mieux....
|
| c'est bizarre quand meme, y'a pourtant rien de spécial dans mon cas et
ca
| ne marche vraiment pas...
regardé le fil en diagonale...
[Pneu] est dans le sous formulaire, tout comme ton code
[Vendu] "semble"... être dans le form principal
Private Sub pneu_AfterUpdate()
Me.Requery
Me.Parent!vendu = True
End Sub
bien que je me demande pourquoi tu fait un requery dans le sous form...
si c'est por sauver la saisie de [Pneu], fait Me.Dirtyúlse
Je te refais un historique :
Le form contient les infos de session, course, équipe, circuit.
Le sousform contient les pneus achetés par cette équipe sur ce circuit
pendant cette course.
Dans les propriétés du sousform j'ai une requete qui alimente le champ
"pneudonnees" en "pneus dispos", c'est à dire que dans la table générale
des pneus (avec numéro de série) la requete va chercher ceux qui ne sont
pas vendus ou alors qui sont vendu mais qui ont été ramenés et échangés et
qui donc sont a nouveau dispos.
Les controles "vendu" et "échange" sont dans le sousform, en fait le
sousform comprend une liste déroulante (les numéros de série des pneus
dispos) et 4 cases à cocher (vendu, in échange, out échange et arrière
pour savoir si c'est un pneu arrière ou avant)
le problème c'est que quand je choisis un pneu dans la liste déroulante du
sousform pour dire que "3stone à pris le Z12334" je voudrais bien que ca
relance la requete une fois que la case "vendu" a été cochée pour que le
Z12334 disparaisse de la liste déroulante pour le prochain pneu que 3stone
va prendre puisqu'il est déja vendu (et donc non dispo)
Le Mon, 09 Oct 2006 17:32:29 +0200, 3stone a écrit:
re,
"Txl" | | Pas mieux.... | | c'est bizarre quand meme, y'a pourtant rien de spécial dans mon cas et ca | ne marche vraiment pas...
regardé le fil en diagonale...
[Pneu] est dans le sous formulaire, tout comme ton code [Vendu] "semble"... être dans le form principal
Private Sub pneu_AfterUpdate() Me.Requery Me.Parent!vendu = True End Sub
bien que je me demande pourquoi tu fait un requery dans le sous form... si c'est por sauver la saisie de [Pneu], fait Me.Dirtyúlse
Je te refais un historique :
Le form contient les infos de session, course, équipe, circuit.
Le sousform contient les pneus achetés par cette équipe sur ce circuit pendant cette course.
Dans les propriétés du sousform j'ai une requete qui alimente le champ "pneudonnees" en "pneus dispos", c'est à dire que dans la table générale des pneus (avec numéro de série) la requete va chercher ceux qui ne sont pas vendus ou alors qui sont vendu mais qui ont été ramenés et échangés et qui donc sont a nouveau dispos.
Les controles "vendu" et "échange" sont dans le sousform, en fait le sousform comprend une liste déroulante (les numéros de série des pneus dispos) et 4 cases à cocher (vendu, in échange, out échange et arrière pour savoir si c'est un pneu arrière ou avant)
le problème c'est que quand je choisis un pneu dans la liste déroulante du sousform pour dire que "3stone à pris le Z12334" je voudrais bien que ca relance la requete une fois que la case "vendu" a été cochée pour que le Z12334 disparaisse de la liste déroulante pour le prochain pneu que 3stone va prendre puisqu'il est déja vendu (et donc non dispo)
Merci de ton aide
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
ze_titi
Bonjour,
essaye ça... Trouvé sur access.developpez.com
Dans un module, colle la fonction suivante.
sub subRefreshLists(ByRef oForm As Form) Dim oControl As Control
For Each oControl In oForm.Controls Select Case oControl.ControlType Case acListBox,acComboBox oControl.Requery Case acSubform subRefreshLists oControl.Form End Select Next oControl
End Sub
Et dans ton formulaire, tu appelles la fonction de cette façon là.
subRefreshLists Me
-- Cordialement,
ze_titi
Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ
Bonjour,
J'ai un form "frmdonnees" contenant un sous form "sfrmdonnees" m'affichant des articles disponibles à la vente que j'assigne au fur et à mesure des ventes dans le champ "pneu", ma requete de sélection de pneus libres "rqpneudispo" fonctionne puisque si je ferme le form et que je le réouvre les articles vendus ne sont plus disponibles..
Je voudrais que lorsque je choisis un article dans la liste des articles dispo il soit automatiquement enlevé des articles dispos.
J'ai essayé de mettre un bout de code dans la after update du champ :
Private Sub pneu_AfterUpdate() Me.sfrmdonnees.Requery End Sub
Evidemment ca ne marche pas...
Merci de votre aide
-- Email contact
http://cerbermail.com/?ltQ8eCFmRa
Bonjour,
essaye ça... Trouvé sur access.developpez.com
Dans un module, colle la fonction suivante.
sub subRefreshLists(ByRef oForm As Form)
Dim oControl As Control
For Each oControl In oForm.Controls
Select Case oControl.ControlType
Case acListBox,acComboBox
oControl.Requery
Case acSubform
subRefreshLists oControl.Form
End Select
Next oControl
End Sub
Et dans ton formulaire, tu appelles la fonction de cette façon là.
subRefreshLists Me
--
Cordialement,
ze_titi
Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ
Bonjour,
J'ai un form "frmdonnees" contenant un sous form "sfrmdonnees" m'affichant
des articles disponibles à la vente que j'assigne au fur et à mesure des
ventes dans le champ "pneu", ma requete de sélection de pneus libres
"rqpneudispo" fonctionne puisque si je ferme le form et que je le réouvre
les articles vendus ne sont plus disponibles..
Je voudrais que lorsque je choisis un article dans la liste des articles
dispo il soit automatiquement enlevé des articles dispos.
J'ai essayé de mettre un bout de code dans la after update du champ :
Private Sub pneu_AfterUpdate()
Me.sfrmdonnees.Requery
End Sub
sub subRefreshLists(ByRef oForm As Form) Dim oControl As Control
For Each oControl In oForm.Controls Select Case oControl.ControlType Case acListBox,acComboBox oControl.Requery Case acSubform subRefreshLists oControl.Form End Select Next oControl
End Sub
Et dans ton formulaire, tu appelles la fonction de cette façon là.
subRefreshLists Me
-- Cordialement,
ze_titi
Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ
Bonjour,
J'ai un form "frmdonnees" contenant un sous form "sfrmdonnees" m'affichant des articles disponibles à la vente que j'assigne au fur et à mesure des ventes dans le champ "pneu", ma requete de sélection de pneus libres "rqpneudispo" fonctionne puisque si je ferme le form et que je le réouvre les articles vendus ne sont plus disponibles..
Je voudrais que lorsque je choisis un article dans la liste des articles dispo il soit automatiquement enlevé des articles dispos.
J'ai essayé de mettre un bout de code dans la after update du champ :
Private Sub pneu_AfterUpdate() Me.sfrmdonnees.Requery End Sub
