[AC-2007] Insertion valeur Champs text [Résolu]

[isarian]

Bonjour,

POur mon projet je souhaiterais faire, quand on clique sur un bouton qui se trouve dans un formulaire, il y a une insertion dans un champs texte. Mon champs texte s'appel date_reception

j'ai essayé

Code :

Me.zone5= "12/02/2001"

Code :

Me.Date_reception="12/02/2001"

Code :

Form("Date_reception").value="12/02/2001"

Mais rien ne marche.

Merci d'avance

Isa

[marot_r]

Qu'est-ce qui ne marche pas ?

La donnée n'apparait ?

Cela génère une erreur ?

Accessoirement je te recommande quand tu entres des dates d'utiliser DateSerial(aaaa, mm, jj) cela évite les erreurs d'interprétation des éléments de la date (parfois Acess quand il voit : 01/02/2011 interprète cela comme le 2 janvier 2011 et pas le 1 février 2011.)

A+

[dut-dut]

marot_r a raison, il est parfois compliqué de géré le format des dates dans Access.

Pour répondre à ta question rapidement si le champ est dans le même formulaire (pas dans un sous-formulaire)

Code :

1
2
3
4
5
Private Sub Bouton_Click()
    Dim mydate As Date
    mydate = #2/12/2001#    'date au format standard c'est à dire "mois/jour/année"
    Me.Date_reception.Value = Format(mydate, "dd/mm/yyyy")
End Sub

[isarian]

Nikel Super merci.

Je vais devoir maintenant retravailler le code pour que cela soit la date du jour.

En fait au moment ou la personne clique sur le bouton, cela doit enregister la fiche avec la date du jour.

Mille merci

[isarian]

Voilà le code qui me sert à verifier si une case est bien coché, si elle est coché et que l'utilisateur clique sur le bouton, on sauve la mise à jours tout en insérant la date du jour dans un champs

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Commande21_Click()
On Error GoTo Err_Commande21_Click
 
    DoCmd.RunCommand acCmdSaveRecord
    Dim mydate As Date
 
    If (Me.Reception.Value = True) Then
    mydate = Date       'date au format standard c'est à dire "mois/jour/année"
    Me.Date_Reception.Value = Format(mydate, "dd/mm/yyyy")
    End If
 
 
Exit_Commande21_Click:
    Exit Sub
 
Err_Commande21_Click:
    MsgBox Err.Description
    Resume Exit_Commande21_Click
 
End Sub

Merci pour votre aide.