Newsgroup: it.comp.appl.access
Titolo: Problema su Maschera tipo Agenda

Su una maschera "MiaMaschera" ho posto tre controlli:
Data (quella della trybar del pc)
Attività
Descrizione
che pesca i relativi dati dalla tabella "MiaTabella"
Quello che vorrei fare è simile ad una agenda cioè che se apro tale
maschera il giorno: 11/04/2011
posso fare la registrazione dei campi Attivita e descrizione ed altri
campi (ce ne saranno diversi)
il giorno dopo, 12/04/2011, per esempio riaprendo la stessa maschera
passerò al nuovo record
e quindi farò altre registrazioni della giornata
Io ho fatto così ma non funziona
****************************************************************************
Private Sub Form_Open(Cancel As Integer)
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("Tabella2")
'Mi sposto sull'ultimo record
rst.MoveLast
'Verifico se l'ultima data inserita è divera da quella corrente
If rst!data <> Now() Then
' se la condizione è verificata aggiungo nuovo record questo è il
passaggio da un giorno all'altro
rst.AddNew
Else
Exit Sub
End If
End Sub
****************************************************************************
Mi date una mano per favore????
grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ****************************************************************************

piccola correzione
****************************************************************************
Private Sub Form_Open(Cancel As Integer)
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("MiaTabella")
'Mi sposto sull'ultimo record
rst.MoveLast
'Verifico se l'ultima data inserita è divera da quella corrente
If rst!data <> Now() Then
' se la condizione è verificata aggiungo nuovo record questo è il
passaggio da un giorno all'altro
rst.AddNew
Else
Exit Sub
End If
End Sub
****************************************************************************
-- 


"Domy73"  ha scritto nel messaggio news:inugeo$8lq$1...@news.newsland.it...











rst.AddNew
Else
Exit Sub
End If
End Sub
****************************************************************************

___Risposta:
non mi è chiaro cosa ti serve.
E' vero però che dal codice, per lui sarà sempre falsa la verifica, perchè 
con Now() tu ti porti anche l'ora
Metti invece Date()
In ogni caso secondo me sbagli l'impostazione
Creati una form e metti la tua tabella come subform oppure metti come 
origine della form (credo a maschere continue o foglio dati) where 
tuadata=date()
MA

 ****************************************************************************


Ciao MA ho risolto semplicemente cosi posto il codice:
**************************************************
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
If Me.data = Date Then
Else
DoCmd.GoToRecord , , acNewRec
Me.data = Date
End If
End Sub
****************************************************
Grazieeeeeeeeeeee e ciauuuuuuuuuuuu


 Grazieeeeeeeeeeee e ciauuuuuuuuuuuu
piccola dimenticanza:
Ciao MA ho risolto semplicemente cosi posto il codice:
**************************************************
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
If Me.data = Date Then
Exit Sub
Else
DoCmd.GoToRecord , , acNewRec
Me.data = Date
End If
End Sub
****************************************************
-- 
