Je poss=E9de un formulaire en mode continue dans lequel =E0=20
chaque enregistrement une coche est li=E9e, en utilisant la=20
barre espace de mon clavier je souhaite mettre =E0 "True"=20
ses coches et aussit=F4t passer =E0 l'enregistrement suivant=20
tant que la barre est appuy=E9e cela permet de s=E9lectionner=20
un grand nombre d'enregistrement tr=E9s rapidement, bien=20
s=FBr l'inverse doit pouvoir ce faire =E9galement et toujours=20
en descendant vers le bas.
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
Rv
Salut,
Sur l'événement touche activée de la case à cocher:
Private Sub MaCaseACocher_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then If Not Me.Recordset.EOF Then Me.MaCaseACocher = Not Me.MaCaseACocher Me.Recordset.MoveNext Me.MaCaseACocher.SetFocus End If End If End Sub
A+
Rv
"Philippe" a écrit dans le message de news:05c201c3c7ed$8a3ce8d0$ Bonsoir,
Je posséde un formulaire en mode continue dans lequel à chaque enregistrement une coche est liée, en utilisant la barre espace de mon clavier je souhaite mettre à "True" ses coches et aussitôt passer à l'enregistrement suivant tant que la barre est appuyée cela permet de sélectionner un grand nombre d'enregistrement trés rapidement, bien sûr l'inverse doit pouvoir ce faire également et toujours en descendant vers le bas.
Merci d'avance Bon Noël à tous Philippe
Salut,
Sur l'événement touche activée de la case à cocher:
Private Sub MaCaseACocher_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
If Not Me.Recordset.EOF Then
Me.MaCaseACocher = Not Me.MaCaseACocher
Me.Recordset.MoveNext
Me.MaCaseACocher.SetFocus
End If
End If
End Sub
A+
Rv
"Philippe" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:05c201c3c7ed$8a3ce8d0$a601280a@phx.gbl...
Bonsoir,
Je posséde un formulaire en mode continue dans lequel à
chaque enregistrement une coche est liée, en utilisant la
barre espace de mon clavier je souhaite mettre à "True"
ses coches et aussitôt passer à l'enregistrement suivant
tant que la barre est appuyée cela permet de sélectionner
un grand nombre d'enregistrement trés rapidement, bien
sûr l'inverse doit pouvoir ce faire également et toujours
en descendant vers le bas.
Sur l'événement touche activée de la case à cocher:
Private Sub MaCaseACocher_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then If Not Me.Recordset.EOF Then Me.MaCaseACocher = Not Me.MaCaseACocher Me.Recordset.MoveNext Me.MaCaseACocher.SetFocus End If End If End Sub
A+
Rv
"Philippe" a écrit dans le message de news:05c201c3c7ed$8a3ce8d0$ Bonsoir,
Je posséde un formulaire en mode continue dans lequel à chaque enregistrement une coche est liée, en utilisant la barre espace de mon clavier je souhaite mettre à "True" ses coches et aussitôt passer à l'enregistrement suivant tant que la barre est appuyée cela permet de sélectionner un grand nombre d'enregistrement trés rapidement, bien sûr l'inverse doit pouvoir ce faire également et toujours en descendant vers le bas.
Merci d'avance Bon Noël à tous Philippe
Philippe
Merci ça fonctionne, mais il y a un probléme, sur chaque ligne à chaque fois que la coche est = true le champ "A" doit être = au champ "B" sinon il doit être= à ""
Avec un clic sur la souris ça marche j'ai écrit le code suivant sur MAJ de la coche
Private Sub Valide_AfterUpdate() If Valide = True Then [Sanitaire] = [colle] Else [Sanitaire] = "" End If End Sub
-----Message d'origine----- Salut,
Sur l'événement touche activée de la case à cocher:
Private Sub MaCaseACocher_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then If Not Me.Recordset.EOF Then Me.MaCaseACocher = Not Me.MaCaseACocher Me.Recordset.MoveNext Me.MaCaseACocher.SetFocus End If End If End Sub
A+
Rv
"Philippe" a écrit dans le message de
news:05c201c3c7ed$8a3ce8d0$ Bonsoir,
Je posséde un formulaire en mode continue dans lequel à chaque enregistrement une coche est liée, en utilisant la barre espace de mon clavier je souhaite mettre à "True" ses coches et aussitôt passer à l'enregistrement suivant tant que la barre est appuyée cela permet de sélectionner un grand nombre d'enregistrement trés rapidement, bien sûr l'inverse doit pouvoir ce faire également et toujours en descendant vers le bas.
Merci d'avance Bon Noël à tous Philippe
.
Merci
ça fonctionne, mais il y a un probléme, sur chaque ligne
à chaque fois que la coche est = true le champ "A" doit
être = au champ "B" sinon il doit être= à ""
Avec un clic sur la souris ça marche j'ai écrit le code
suivant sur MAJ de la coche
Private Sub Valide_AfterUpdate()
If Valide = True Then
[Sanitaire] = [colle]
Else
[Sanitaire] = ""
End If
End Sub
-----Message d'origine-----
Salut,
Sur l'événement touche activée de la case à cocher:
Private Sub MaCaseACocher_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
If Not Me.Recordset.EOF Then
Me.MaCaseACocher = Not Me.MaCaseACocher
Me.Recordset.MoveNext
Me.MaCaseACocher.SetFocus
End If
End If
End Sub
A+
Rv
"Philippe" <anonymous@discussions.microsoft.com> a écrit
dans le message de
Je posséde un formulaire en mode continue dans lequel à
chaque enregistrement une coche est liée, en utilisant la
barre espace de mon clavier je souhaite mettre à "True"
ses coches et aussitôt passer à l'enregistrement suivant
tant que la barre est appuyée cela permet de sélectionner
un grand nombre d'enregistrement trés rapidement, bien
sûr l'inverse doit pouvoir ce faire également et toujours
en descendant vers le bas.
Merci ça fonctionne, mais il y a un probléme, sur chaque ligne à chaque fois que la coche est = true le champ "A" doit être = au champ "B" sinon il doit être= à ""
Avec un clic sur la souris ça marche j'ai écrit le code suivant sur MAJ de la coche
Private Sub Valide_AfterUpdate() If Valide = True Then [Sanitaire] = [colle] Else [Sanitaire] = "" End If End Sub
-----Message d'origine----- Salut,
Sur l'événement touche activée de la case à cocher:
Private Sub MaCaseACocher_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then If Not Me.Recordset.EOF Then Me.MaCaseACocher = Not Me.MaCaseACocher Me.Recordset.MoveNext Me.MaCaseACocher.SetFocus End If End If End Sub
A+
Rv
"Philippe" a écrit dans le message de
news:05c201c3c7ed$8a3ce8d0$ Bonsoir,
Je posséde un formulaire en mode continue dans lequel à chaque enregistrement une coche est liée, en utilisant la barre espace de mon clavier je souhaite mettre à "True" ses coches et aussitôt passer à l'enregistrement suivant tant que la barre est appuyée cela permet de sélectionner un grand nombre d'enregistrement trés rapidement, bien sûr l'inverse doit pouvoir ce faire également et toujours en descendant vers le bas.
Merci d'avance Bon Noël à tous Philippe
.
Rv
Re,
Je suppose que la case à cocher s'appelle 'Valide'! Dans la proc. déjà envoyé il suffit de rajouter après la ligne me.Valide = not me.Valide, la ligne suivante :
call Valide_AfterUpdate()
A+
Rv
"Philippe" a écrit dans le message de news:068e01c3c898$441a8a00$ Merci ça fonctionne, mais il y a un probléme, sur chaque ligne à chaque fois que la coche est = true le champ "A" doit être = au champ "B" sinon il doit être= à ""
Avec un clic sur la souris ça marche j'ai écrit le code suivant sur MAJ de la coche
Private Sub Valide_AfterUpdate() If Valide = True Then [Sanitaire] = [colle] Else [Sanitaire] = "" End If End Sub
Re,
Je suppose que la case à cocher s'appelle 'Valide'!
Dans la proc. déjà envoyé il suffit de rajouter après la ligne me.Valide
= not me.Valide, la ligne suivante :
call Valide_AfterUpdate()
A+
Rv
"Philippe" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:068e01c3c898$441a8a00$a601280a@phx.gbl...
Merci
ça fonctionne, mais il y a un probléme, sur chaque ligne
à chaque fois que la coche est = true le champ "A" doit
être = au champ "B" sinon il doit être= à ""
Avec un clic sur la souris ça marche j'ai écrit le code
suivant sur MAJ de la coche
Private Sub Valide_AfterUpdate()
If Valide = True Then
[Sanitaire] = [colle]
Else
[Sanitaire] = ""
End If
End Sub
Je suppose que la case à cocher s'appelle 'Valide'! Dans la proc. déjà envoyé il suffit de rajouter après la ligne me.Valide = not me.Valide, la ligne suivante :
call Valide_AfterUpdate()
A+
Rv
"Philippe" a écrit dans le message de news:068e01c3c898$441a8a00$ Merci ça fonctionne, mais il y a un probléme, sur chaque ligne à chaque fois que la coche est = true le champ "A" doit être = au champ "B" sinon il doit être= à ""
Avec un clic sur la souris ça marche j'ai écrit le code suivant sur MAJ de la coche
Private Sub Valide_AfterUpdate() If Valide = True Then [Sanitaire] = [colle] Else [Sanitaire] = "" End If End Sub
Philippe
Merci beaucoup tout fonctionne comme une horloge,c'est un beau cadeau de Noël pour moi, je vais pouvoir continuer mon application.
Bon Noël à tous Philippe
-----Message d'origine----- Re,
Je suppose que la case à cocher s'appelle 'Valide'! Dans la proc. déjà envoyé il suffit de rajouter après la ligne me.Valide
= not me.Valide, la ligne suivante :
call Valide_AfterUpdate()
A+
Rv
"Philippe" a écrit dans le message de
news:068e01c3c898$441a8a00$ Merci ça fonctionne, mais il y a un probléme, sur chaque ligne à chaque fois que la coche est = true le champ "A" doit être = au champ "B" sinon il doit être= à ""
Avec un clic sur la souris ça marche j'ai écrit le code suivant sur MAJ de la coche
Private Sub Valide_AfterUpdate() If Valide = True Then [Sanitaire] = [colle] Else [Sanitaire] = "" End If End Sub
.
Merci beaucoup tout fonctionne comme une horloge,c'est un
beau cadeau de Noël pour moi, je vais pouvoir continuer
mon application.
Bon Noël à tous
Philippe
-----Message d'origine-----
Re,
Je suppose que la case à cocher s'appelle 'Valide'!
Dans la proc. déjà envoyé il suffit de rajouter
après la ligne me.Valide
= not me.Valide, la ligne suivante :
call Valide_AfterUpdate()
A+
Rv
"Philippe" <anonymous@discussions.microsoft.com> a écrit
dans le message de
news:068e01c3c898$441a8a00$a601280a@phx.gbl...
Merci
ça fonctionne, mais il y a un probléme, sur chaque ligne
à chaque fois que la coche est = true le champ "A" doit
être = au champ "B" sinon il doit être= à ""
Avec un clic sur la souris ça marche j'ai écrit le code
suivant sur MAJ de la coche
Private Sub Valide_AfterUpdate()
If Valide = True Then
[Sanitaire] = [colle]
Else
[Sanitaire] = ""
End If
End Sub
Merci beaucoup tout fonctionne comme une horloge,c'est un beau cadeau de Noël pour moi, je vais pouvoir continuer mon application.
Bon Noël à tous Philippe
-----Message d'origine----- Re,
Je suppose que la case à cocher s'appelle 'Valide'! Dans la proc. déjà envoyé il suffit de rajouter après la ligne me.Valide
= not me.Valide, la ligne suivante :
call Valide_AfterUpdate()
A+
Rv
"Philippe" a écrit dans le message de
news:068e01c3c898$441a8a00$ Merci ça fonctionne, mais il y a un probléme, sur chaque ligne à chaque fois que la coche est = true le champ "A" doit être = au champ "B" sinon il doit être= à ""
Avec un clic sur la souris ça marche j'ai écrit le code suivant sur MAJ de la coche
Private Sub Valide_AfterUpdate() If Valide = True Then [Sanitaire] = [colle] Else [Sanitaire] = "" End If End Sub
