Discussion :

[paselo]

Bonjour

Dans un formulaire, j'aimerais sur "reception focus", ouvrir automatiquement le sélecteur de date afin d'éviter de devoir cliquer sur le petit icone calendrier ? Un peu comme un dropdown sur une liste déroulante.

MErci

Paselo

[hyperion13]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub MonChampDate_GotFocus()
Application.RunCommand (acCmdShowDatePicker)
End Sub

[paselo]

Merci mais voici ce qu'il se passe...

erreur d'exécution 2046

La commande ou l'action "affichersélecteurdedate" n'est pas disponible pour l'instant

Merci

[hyperion13]

votre champdate est bien de type date/heure ?
si vous avez inséré un masque de saisie, il faut le supprimer !
sinon faite un test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub MonChampDate_GotFocus()
If Me.MonChampDate.ShowDatePicker = 0 Then
    Me.MonChampDate.ShowDatePicker = 1
    Application.RunCommand (acCmdShowDatePicker)
Else
   Application.RunCommand (acCmdShowDatePicker)
End If
End Sub

[paselo]

Après le petit test, Datepicker est actif..

[paselo]

Le champ est bien un champ date et j'ai la même erreur... le débogage donne l'erreur après le "else"

Le but est donc bien d'ouvrir automatiquement le calendrier?

Merci

[hyperion13]

Oui Application.RunCommand (acCmdShowDatePicker) permet d'ouvrir le calendrier dans la zone de texte.
Dans la fenêtre vba - Menu Outils - Références ; quelles sont celles qui sont cochées chez vous ?

EDIT 12:40 remplacez Application.RunCommand (acCmdShowDatePicker) par DoCmd.RunCommand (acCmdShowDatePicker) ou RunCommand (acCmdShowDatePicker).

[paselo]

Toujours la même erreur

Les 4 premières cases sont cochées..

[hyperion13]

Les 4 premières ! Cela ne veut pas dire grand chose.
Faites un test avec la pj. je tourne sous Acc2013Pro 32bits

[paselo]

L'exemple fonctionne !

[paselo]

J'ai coché les mêmes cases que vous... mais toujours la même erreur !

c'est un champ qui ne provient pas du table, il est indépendant... est-ce que ça peut jouer un rôle?

[hyperion13]

Que la zone de texte ait une source de contrôle ou qu'elle soit indépendante, la proc fonctionne.
Votre zone de texte est bien formatée en Date, abrégé et Afficher le sélecteur de date = à certaines dates ?

EDIT 13:32 le nom de votre zone de texte indépendante est correctement orthographié dans la Proc ?
Depuis votre bdd, importez la tbl et le form de ma bdd et faites un test.

[paselo]

Oui exactement !

[paselo]

Il me semble que tout ressemble à votre exemple... et pourtant ça ne marche pas...

si jamais, j'ai Teamviewer d'installé... ,-)

[hyperion13]

je ne pense pas que Teamviewer soit la cause du problème
vous pouvez m'envoyer en zip le form et la tbl ?

[paselo]

Votre form et votre table fonctionne si je les importe dans ma BDD !

Ma base de donnée est grande, c'est pourquoi je proposais de prendre la main par Teamviewer !Mais je peux essayer de la simplifier..

[hyperion13]

On va faire plus.
Utilisez mon form en substitution au votre qui ne fonctionne pas.
Supprimez Table1 dans Données et remplacez-la par votre tbl ou req
Supprimez mes 3 contrôles idL nomL dateL et via l'icône Ajouter des champs existants, reconstruisez le form en gardant la zonedetexte Texte8.

[paselo]

Je viens de faire un test en copiant votre zone de texte indépendante 8 dans mon formulaire et j'ai toujours la même erreur....

[hyperion13]

Procédez plus tôt inversement comme indiquez dans post#17 puisque mon form fonctionne semble-t-il.

Je viens de faire un test en copiant votre zone de texte indépendante 8 dans mon formulaire et j'ai toujours la même erreur....

[paselo]

Mon champ date est dans un sous-formulaire ! Si j'ouvre le sous-formulaire seul, ça fonctionne ! Par contre lorsque j'ouvre le formulaire puis je fais un réception focus sur le champ, ça ne fonctionne plus !!!

Peut-être que ça peut vous aiguiller....