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
Eric
Bonjour,
Essaies ceci :
Private Sub Liste01_DblClick(Cancel As Integer) If Me.Liste01.Column(1) = "actif" Then DoCmd.RunMacro Macro1 ElseIf Me.Liste01.Column(1) = "inactif" Then DoCmd.RunMacro Macro2 End If End Sub
Bonjour à tous,
Comment faire pour :
Sub Liste01_DblClick If la valeur de la 2ème colonne = actif Then Macro1 ElseIf la valeur de la 2ème colonne = inactif Then Macro2 End If
Private Sub Liste01_DblClick(Cancel As Integer)
If Me.Liste01.Column(1) = "actif" Then
DoCmd.RunMacro Macro1
ElseIf Me.Liste01.Column(1) = "inactif" Then
DoCmd.RunMacro Macro2
End If
End Sub
Bonjour à tous,
Comment faire pour :
Sub Liste01_DblClick
If la valeur de la 2ème colonne = actif Then
Macro1
ElseIf la valeur de la 2ème colonne = inactif Then
Macro2
End If
Merci pour votre aide.
Xavier
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Private Sub Liste01_DblClick(Cancel As Integer) If Me.Liste01.Column(1) = "actif" Then DoCmd.RunMacro Macro1 ElseIf Me.Liste01.Column(1) = "inactif" Then DoCmd.RunMacro Macro2 End If End Sub
Bonjour à tous,
Comment faire pour :
Sub Liste01_DblClick If la valeur de la 2ème colonne = actif Then Macro1 ElseIf la valeur de la 2ème colonne = inactif Then Macro2 End If
Private Sub Liste01_DblClick(Cancel As Integer) If Me.Liste01.Column(1) = "actif" Then DoCmd.RunMacro Macro1 ElseIf Me.Liste01.Column(1) = "inactif" Then DoCmd.RunMacro Macro2 End If End Sub
Bonjour à tous,
Comment faire pour :
Sub Liste01_DblClick If la valeur de la 2ème colonne = actif Then Macro1 ElseIf la valeur de la 2ème colonne = inactif Then Macro2 End If
Private Sub Liste01_DblClick(Cancel As Integer)
If Me.Liste01.Column(1) = "actif" Then
DoCmd.RunMacro Macro1
ElseIf Me.Liste01.Column(1) = "inactif" Then
DoCmd.RunMacro Macro2
End If
End Sub
Bonjour à tous,
Comment faire pour :
Sub Liste01_DblClick
If la valeur de la 2ème colonne = actif Then
Macro1
ElseIf la valeur de la 2ème colonne = inactif Then
Macro2
End If
Merci pour votre aide.
Xavier
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Private Sub Liste01_DblClick(Cancel As Integer) If Me.Liste01.Column(1) = "actif" Then DoCmd.RunMacro Macro1 ElseIf Me.Liste01.Column(1) = "inactif" Then DoCmd.RunMacro Macro2 End If End Sub
Bonjour à tous,
Comment faire pour :
Sub Liste01_DblClick If la valeur de la 2ème colonne = actif Then Macro1 ElseIf la valeur de la 2ème colonne = inactif Then Macro2 End If