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
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
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
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
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
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
--- 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
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" <home@sweet_home.be> a écrit dans le message de
news:hpf7cq$po1$1@speranza.aioe.org...
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
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