Discussion :

[Enzototo]

Bonjour

pour mon niveau, tout est dit dans l'objet...

mais j'ai besoin d'une petite appli qui peut prendre la forme d'un formulaire sous Access 2003 + une table de 4 champs :
ID (numAuto), Label (texte), debut (date/heure), fin (date/heure)

l'idée : 3 boutons sur le formulaire, chaque bouton possède un nom : ABC, DEF, HIJ

si je clique sur un bouton, le code crée un enregistrement dans la table et le renseigne ainsi : Label = nom du bouton cliqué, debut = heure du clic sur le bouton, fin = rien

lorsque je clique sur un autre bouton, le code fait : enregistrement ci-dessus désigné : fin = heure du clic, puis nouvel enregistrement : Label = nom du bouton cliqué, début = heure du clic sur le début, fin = rien

voila c'est tout :-)

et en écrivant ces lignes je me dis même que le champ "fin" peut être supprimé..., donc encore plus simple

Si un bé-né-vo-le charitable :-) pouvait me donner le code de cette petite appli, je l'en remercierais mille fois.

Merci (c'est un acompte ;-)

[Invité]

Bonjour et bienvenue sur le forum Office de DVP

Le but de ce forum n'est pas donné le code tout fait (bien que certains le font pour se faire mousser ), mais vous aiguiller dans vos recherches de solution.

Donc, je vais te donner des pistes de départ :

Passer par une requête Ajout (insert Into): http://access.developpez.com/sql/
Utiliser les fonctions de temps : http://mhubiche.developpez.com/vba/f...ions/datetime/

Et bien sûr à partir de ces indications tu peux également chercher dans la (lien dans ma signature).

Philippe

[alaingui]

Tu créé un formulaire avec trois bouton
et comme code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Commande0_Click()
ajout_text ("ABC")
End Sub
 
Private Sub Commande2_Click()
ajout_text ("GHI")
End Sub
Private Sub Commande1_Click()
ajout_text ("DEF")
End Sub
 
Sub ajout_text(v_txt)
sql = "INSERT INTO Table1 ( Label, Début ) SELECT '" & v_txt & "' , #" & Format(Now, "mm/dd/yyyy") & "#"
DoCmd.RunSQL sql
End Sub

[Enzototo]

Bonjour

Merci beaucoup Alaingui, cela fonctionne bien et tu réponds totalement à ma question.

Mais lors de chaque clic j'ai un message que je dois aquitter et qui me dit qu'une ligne va être ajouter.

Comment bypasser cette confirmation à donner et ne pas avoir ce message ?

Cordialement

[Invité]

Bonjour

Il suffit d'aller faire un petit tout dans la : http://access.developpez.com/faq/?page=SQL#Warning

Philippe

[Enzototo]

Merci