emploi de SetFocus ???

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #21506932
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)
Rémi
Le #21506962
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" 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
Publicité
Poster une réponse
Anonyme