Newsgroup: it.comp.appl.access
Titolo: calendario aggiornato

Ho messo un controllo calendario in una maschera.
prima cosa dovrei fare in modo che ad ogni apertura della maschera il
calendario sia sulla data corrente
poi dovrei quando scelgo una data che questa mi finisca su di una text non
associata di nome txtData
vi ringrazio
--
ciao

 ha scritto nel messaggio
news:7b689.76265$n04.2...@twister2.libero.it...

Ti ho già risposto alle 12.27
FABIO

 Scusami ma non riesco a visualizzare quel messaggio puoi riscriverlo
grazie

 ha scritto nel messaggio
news:D7789.76432$n04.2...@twister2.libero.it...

Nell'evento SuApertura del Form scrivi
Me.ctlCalendario.Today
Me.ctlCalendario.Refresh
Nell'evento SuAggiornato del controllo calendario scrivi
Me.txtData=Me.ctlCalendario.Value
Ciao, FABIO

 ho scritto questo codice:
un pulsantino per aprire il calendario:
Private Sub ApriChiudi_Click()
If Me!ctlCalendario.Visible = False Then
    Me!ctlCalendario.Visible = True
    Else
    Me!ctlCalendario.Visible = False
End If
End Sub
Trasferimento data nella txt:
Private Sub ctlCalendario_Click()
Me.DataIniziale = Me.ctlCalendario.Value
End Sub
Private Sub Form_Current()
Me!ctlCalendario.Visible = False
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.ctlCalendario.Today
Me.ctlCalendario.Refresh
End Sub
poi volevo che una volta scelto il giorno il calendario si chiudesse da solo
senza pigiare il pulsantino
questo il codice:
Private Sub ctlCalendario_AfterUpdate()
Me!DataIniziale.SetFocus
Me!ctlCalendario.Visible = False
End Sub
senza questo codice mi trasferisce la data scelta nella txt
con questo codice mi chiude il calendario dopo scelto il giorno ma non me lo
visualizza nella txt
dove sbaglio????
 grazie mille


A occhio toglierei la routine ctlCalendario_Click e la integrerei
nell'AfterUpdate che diventerebbe cosě:
Private Sub ctlCalendario_AfterUpdate()
   Me.DataIniziale = Me.ctlCalendario.Value
   Me!DataIniziale.SetFocus
   Me!ctlCalendario.Visible = False
End Sub
Se non ti funziona prova a mettere l'ultima istruzione nell'evento Exit del
ctlCalendario
Ciao, FABIO

 >
Nell'evento SuApertura del Form scrivi
Me.ctlCalendario.Today
Me.ctlCalendario.Refresh
Ora funziona ma ancora una domanda:
io pensavo che il codice sopra servisse tenere aggiornato il calendario alla
data odierna ma non funzia mi spiego
quando apro la maschera e pigio sul pulsantino che mi apre il calendario
questo mi si apre sulla data che ho creato il calendario invece vorrei che
visualizzasse la data corrente
e' possibile?

 ha scritto nel messaggio
news:WRn89.78838$n04.2...@twister2.libero.it...

Sinceramente a me funziona (ho appena controllato): il metodo Today imposta
il calendario alla data corrente, prova a premere CTRL+T, dovrebbe eseguire
il metodo Today.
Prova al limite a fare un debug e vedi se ti salta quell'istruzione o
eventualmente prova in apertura a mettere:
Me.ctlCalendario.Value=Date()
Io comunque uso il controllo calendario 7.0
Fabio

 ho combinato con questo codice sull'evento click del pulsante di apertura
If IsNull(Me!DataIniziale) Then
        Me!ctlCalendario.Year = Year(Date)
        Me!ctlCalendario.Month = Month(Date)
        Me!ctlCalendario.Value = Date
    End If
grazie e ciao

     End If
Tanto per curiosità, lascia solo
If IsNull(Me!DataIniziale) Then
         Me!ctlCalendario.Value = Date
End If
o al limite:
If IsNull(Me!DataIniziale) Then
        Me!ctlCalendario.Year = Year(Date)
        Me!ctlCalendario.Month = Month(Date)
        Me!ctlCalendario.Day= Day(Date)
End If
o meglio ancora:
If IsNull(Me!DataIniziale) Then
        Me!ctlCalendario.Year = 0
        Me!ctlCalendario.Month = 0
        Me!ctlCalendario.Day= 0
End If
Fammi sapere, sono curioso
Fabio

 ho provato ma ctlCalendario.Day non funziona