Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access calendrier erreur en dbclick

calendrier erreur en dbclick

4 réponses
Avatar
Dave
Private Sub Commande0_Click()
If CtlActiveX1.Visible = True Then
CtlActiveX1.Visible = False
Else
CtlActiveX1.Visible = True
End If
End Sub

Private Sub CtlActiveX1_dbClick()
CtlActiveX1.Visible = False
****** j'ai une erreur ici "Impossible de masquer le control activex"
*****

End Sub
Signaler un problème avec ce contenu

4 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
Eric
re,
Voir l'autre post.
Tu dois faire :

Private Sub CtlActiveX1_dbClick()
UnAutreControle.SetFocus
CtlActiveX1.Visible = False
End Sub

Private Sub Commande0_Click()
If CtlActiveX1.Visible = True Then
CtlActiveX1.Visible = False
Else
CtlActiveX1.Visible = True
End If
End Sub

Private Sub CtlActiveX1_dbClick()
CtlActiveX1.Visible = False
****** j'ai une erreur ici "Impossible de masquer le control activex"
*****

End Sub




--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Dave
Merci pour ta réponse mais ça ne fonctionne pas :(

J'ai fait ceci mais quen je fais un dbclick le calendrier reste toujours
visible :(


Private Sub Commande0_Click()
If CtlActiveX1.Visible = True Then
CtlActiveX1.Visible = False
Else
CtlActiveX1.Visible = True
End If
End Sub

Private Sub CtlActiveX1_dbClick()
CtlActiveX1.Visible = False
Texte2.SetFocus
End Sub




"Eric" a écrit dans le message de news:
%
re,
Voir l'autre post.
Tu dois faire :

Private Sub CtlActiveX1_dbClick()
UnAutreControle.SetFocus
CtlActiveX1.Visible = False
End Sub

Private Sub Commande0_Click()
If CtlActiveX1.Visible = True Then
CtlActiveX1.Visible = False
Else
CtlActiveX1.Visible = True
End If
End Sub

Private Sub CtlActiveX1_dbClick()
CtlActiveX1.Visible = False
****** j'ai une erreur ici "Impossible de masquer le control activex"
*****

End Sub


--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Eric
re,

Tu as une erreur dans le nom de l'évènement DblClick en non dbClick

De plus, il faut mettre dans l'ordre :

Private Sub CtlActiveX1_DblClick()
Me.Texte0.SetFocus
Me.CtlActiveX1.Visible = False
End Sub

Ca marche aussi si le calendrier est un DTPicker et non le contrle
calendrier

Un exemple ici : http://cjoint.com/?jiu5mhgUID


Merci pour ta réponse mais ça ne fonctionne pas :(

J'ai fait ceci mais quen je fais un dbclick le calendrier reste toujours
visible :(


Private Sub Commande0_Click()
If CtlActiveX1.Visible = True Then
CtlActiveX1.Visible = False
Else
CtlActiveX1.Visible = True
End If
End Sub

Private Sub CtlActiveX1_dbClick()
CtlActiveX1.Visible = False
Texte2.SetFocus
End Sub




"Eric" a écrit dans le message de news:
%

re,
Voir l'autre post.
Tu dois faire :

Private Sub CtlActiveX1_dbClick()
UnAutreControle.SetFocus
CtlActiveX1.Visible = False
End Sub


Private Sub Commande0_Click()
If CtlActiveX1.Visible = True Then
CtlActiveX1.Visible = False
Else
CtlActiveX1.Visible = True
End If
End Sub

Private Sub CtlActiveX1_dbClick()
CtlActiveX1.Visible = False
****** j'ai une erreur ici "Impossible de masquer le control activex"
*****

End Sub


--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Dave
Merci ca fonctionne maintenant
j'ai mis dbclick au lieu de dblclick ;)

Merci encore pour ton aide


"Eric" a écrit dans le message de news:
%
re,
Voir l'autre post.
Tu dois faire :

Private Sub CtlActiveX1_dbClick()
UnAutreControle.SetFocus
CtlActiveX1.Visible = False
End Sub

Private Sub Commande0_Click()
If CtlActiveX1.Visible = True Then
CtlActiveX1.Visible = False
Else
CtlActiveX1.Visible = True
End If
End Sub

Private Sub CtlActiveX1_dbClick()
CtlActiveX1.Visible = False
****** j'ai une erreur ici "Impossible de masquer le control activex"
*****

End Sub


--
A+
Eric
http://users.skynet.be/mpfa/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr