Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Aide Access 2003

  • Initiateur de la discussion Initiateur de la discussion DLP77
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

DLP77

Guest
Bonsoir à tous,
Encore une fois je viens chercher de l'aide.
Voilà, j'utilise ce code sur Excel et il fonctionne très bien:

Private Sub CommandButton1_Click()

If XXXX.TextBox1.Value = "" And XXXX.TextBox1.Value = "" Then
XXXX.TextBox1.Value = Format(Time, "hh:mm") 'Affiche heure TxtB1
ElseIf XXXX.TextBox1.Value <> "" Then 'Si TxtB1 déjà rempli alors
XXXX.TextBox2.Value = Format(Time, "hh:mm") 'Affiche heure dans TxtB2
End If

End Sub

Par contre, j'ai essayé de l'adapter (j'ai fait plusieurs changements et les ai testés), le code ne fonctionne pas. J'ai beau aller voir sur mon livre et l'aide VBA, je n'y arrive toujours pas à trouver la solution.

Quelqu'un saurait d'où peut provenir la faute de syntaxe?
Merci pour votre aide.🙂
 
Re : Aide Access 2003

Bonjour DLP77,

Je suppose que tu essayes d'adapter ce code à un Formulaire Access ?
Si oui, as-tu mis ce code dans le formulaire ?
Ton bouton de commande s'appelle bien CommandButton1 ?
Pourquoi des XXXX dans le code ?
Pourquoi tester 2 fois la même chose dans la ligne

Code:
If  XXXX.TextBox1.Value = "" And XXXX.TextBox1.Value = "" Then
?
Pas besoin de tester le contraire dans la ligne

Code:
ElseIf XXXX.TextBox1.Value <> "" Then                                	'Si TxtB1 déjà rempli alors

un Else devrait suffire
 
Re : Aide Access 2003

Bonsoir,
Cette ligne de code (If XXXX.TextBox1.Value = "" And XXXX.TextBox1.Value = "" Then) dans Excel me permet de garder l'heure afficher dans le textbox1 sans la modifier lorsque je clique une seconde fois et que une autre heure s'affiche dans le textbox2.
Effectivement j'essaie de l'adapter sur Access 2003 (version que j'ai au travail).
J'ai aussi remplacé ElseIf par Else comme indiqué dans mon livre mais ça ne fonctionne pas.
J'ai employé plusieurs codes différentes. Soit la même heure s'affiche dans les deux textbox en même temps, soit dans un textbox seulement ou pas du tout.
Même avecl'aide de la touche "aide VBA" sur l'ordi, je suis coincé.
Merci de m'avoir répondu
 
Re : Aide Access 2003

Bonjour DLP77,

Au bout, tu veux que ça fasse ce que tu veux sur Excel ou sur Access ?
Explique ce que tu veux que ça fasse avec des mots
Tu as 2 Textbox, susceptibles de contenir des heures si j'ai compris
Tu cliques sur ton bouton et :
Que faire quand elles sont vides toutes les 2
Que faire quand la 1 est vide mais pas la 2... etc, lister tous les cas
Ensuite on verra pour le faire dans un formulaire Access
 
Re : Aide Access 2003

Bonsoir, En fait je cherche à créer des rapports d'interventions via Access.
A travers le formulaire, il y a des commandboutons, des textbox, des combobox et des labels.
Sur Excel, lorsque je clique une première fois sur commandbouton1, le textbox1 affiche l'heure de l'arrivée de l'intervenant sur les lieux. Un deuxième clique sur ce même bouton affiche l'heure de la fin de l'intervention dans le textbox2. Les lettres XXXX représente le nom du formulaire (ex: SSIAP.TextBox1.Value).
Ce formulaire comporte beaucoup de contrôles car il est fait pour 3 équipes qui tournent 24/24 heure.
Je tiens à signaler que ce rapport sert aussi au vérification des réseaux sprinkler sur tout le site où je travaille.
Les combobox contiennent les noms des intervenants et des lieux d'interventions.
Si je désire créer ce rapport via Access, c'est que je pense que c'est plus pratique que d'écrire tout ça sur du papier.
J'avais commencé sur Excel mais malheureusement on ne peut pas l'utiliser à plusieurs sur notre réseau internet interne.
Voilà, j'espère avoir été assez clair. Sinon c'est pas grave, je continue à chercher de mon côté et comme ce n'est pas urgent...
Merci tout de même de prendre la peine de me lire.
Bonne soirée,
Alex
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
5
Affichages
551
Réponses
5
Affichages
848
Réponses
9
Affichages
476
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
433
Réponses
3
Affichages
628
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…