Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access emploi de SetFocus ???

emploi de SetFocus ???

2 réponses
Avatar
Rémi
bonjour,
avec le code suivant, je souhaiterais dans le cas d'une erreur donner le
focus (après validation du MsgBox) à l'objet "Liste2"
j'ai cherché dans l'aide et trouvé la fonction SetFocus, je pense donc que
je devrais écrire Liste2.SetFocus, mais je ne sais pas où le placer, ni même
si c'est la bonne fonction à employer.

Private Sub Liste2_Exit(Cancel As Integer)
On Error GoTo erreur
CurrentDb.Execute "Update TBL_boncommandepapier1 SET edit_commande = True
WHERE TBL_boncommandepapier1.numauto=" & Me.Liste2
Exit_Liste2_Exit:
Exit Sub
erreur:
MsgBox "veuillez sélectionner un enregistrement"
Resume Exit_Liste2_Exit
End Sub

merci d'avance de votre aide



---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 100405-1, 05/04/2010
Analyse le : 06/04/2010 09:30:38
avast! - copyright (c) 1988-2010 ALWIL Software.
http://www.avast.com
Signaler un problème avec ce contenu

2 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
Avatar
3stone
Salut,

Annuler la sortie devrait suffire...

Rémi wrote:

Private Sub Liste2_Exit(Cancel As Integer)
On Error GoTo erreur
CurrentDb.Execute "Update TBL_boncommandepapier1 SET edit_commande > True WHERE TBL_boncommandepapier1.numauto=" & Me.Liste2
Exit_Liste2_Exit:
Exit Sub



erreur:
Cancel = True
MsgBox "veuillez sélectionner un enregistrement"
Resume Exit_Liste2_Exit
End Sub

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Avatar
Rémi
bonjour Pierre,
après avoir mieux lu l'aide, SetFocus est sans effet sur une ListBox
j'ai donc désactivé le bouton de sortie du formulaire tant qu'aucun
enregistrement n'est sélectionné
un peu la méthode "ni vu ni connu j't'embrouille" mais ça revient à ce que
je voulais faire


"3stone" a écrit dans le message de
news:hpf7cq$po1$
Salut,

Annuler la sortie devrait suffire...

Rémi wrote:

Private Sub Liste2_Exit(Cancel As Integer)
On Error GoTo erreur
CurrentDb.Execute "Update TBL_boncommandepapier1 SET edit_commande >> True WHERE TBL_boncommandepapier1.numauto=" & Me.Liste2
Exit_Liste2_Exit:
Exit Sub



erreur:
Cancel = True
MsgBox "veuillez sélectionner un enregistrement"
Resume Exit_Liste2_Exit
End Sub

--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)



---
Antivirus avast! : message Entrant sain.
Base de donnees virale (VPS) : 100406-0, 06/04/2010
Analyse le : 06/04/2010 14:17:41
avast! - copyright (c) 1988-2010 ALWIL Software.
http://www.avast.com








---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 100406-0, 06/04/2010
Analyse le : 06/04/2010 14:25:26
avast! - copyright (c) 1988-2010 ALWIL Software.
http://www.avast.com