Codigo Fecha Hoy

[SOFIARENEE]

Hola amigos.

Tengo una pequeña duda y ojala me puedan ayudar.

Tengo una base de datos en access la cual en un formulario tengo un campo llamado fecha y varios mas....en dicho formulario hice un boton que me ayuda a buscar folios el punto es que necesito crear un codigo dentro del boton para que en el campo fecha me anote la fecha hoy.

ya use la propiedades del campo en la pestaña datos del valor predeterminado utilizando el date() y sigue sin aparecerme la fecha hoy.

envio el codigo para que me digan en donde hay que hacer la correcion.


Private Sub Texto95_Exit(Cancel As Integer)

Dim fechadehoy As Date

fechadehoy = Format(Now, "dd-mmm-yy")

If Nz(Me.Texto95, "") = "" Then
MsgBox "Anote el Numero de Folio"
fechadehoy = Me.RECEPCION_MESA
Else
If DCount("*", "03Control_Instrucciones", "[folio] =" & Me.Texto95) = 0 Then
MsgBox "Lo siento, pero no hay folio"
Else
Me.Filter = "[folio] =" & Me.Texto95
Me.FilterOn = True
Me.RECEPCION_MESA.SetFocus

End If

End If

End Sub


agradezco su ayuda.