Newsgroup: it.comp.appl.access
Titolo: Maschera: data campo record visualizzati uguale alla data del sistema

Ciao a tutti,
            vorrei far aprire una maschera con tutti i record, ma far
visualizzare il primo record dove il campo data è uguale alla data del
sistema, in modo da non doverli scorrere tutti nela caso vengano inseriti
dati futuri.
Mille grazie
                 Bruno

 ha scritto nel messaggio
news:8bj4d.291444$OR2.13...@news3.tin.it...

Ciao Bruno,
Potresti metterli in ordine descrerscente di data in modo da avere i più
recenti per primi: Proprietà Order della maschera : [CampoData] DESC
Saluti
Cinzia

 ha scritto nel messaggio
news:cisgjd$sro$1...@lacerta.tiscalinet.it...

Forse però ho capito male, se metti dei dati futuri l'ordinamento
decrescente non va bene!.
prova ad usare questo codice sull'evento Apertura del form:
Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
    rst.FindFirst "[giorno] = #" & Date & "#"
        If rst.NoMatch Then
            MsgBox "Record not found"
        Else
            Me.Bookmark = rst.Bookmark
        End If
    rst.Close
Ciao
Cinzia

-----------------
Ciao Cinzia,
    ho già proceduto in tal modo, però devo scorrere tanti record in quanto
inserisco dati fino ad un mese avanti alla data del sistema. es. oggi
22/09/04 inserisco record con data fino al 22/10/04.
Grazie lo stesso
                Bruno


Guarda la mia seconda risposta.
Cinzia

 ha scritto nel messaggio
news:cisoj8$24g$1...@lacerta.tiscalinet.it...

Cosa intendi per seconda risposta ? Spero di non essere stato frainteso
nella mia precedente risposta.
    Bruno

 ha scritto nel messaggio
news:4om4d.292700$OR2.13...@news3.tin.it...

Nessun fraintendimento,
ho solo avuto l'impressione che non avessi visto questo secondo suggerimento
che ho mandato subito dopo quello dell'ordinamento decrescente,
 te la rimetto qui magari non va bene neanche questa ma non si sa mai....



---------
Buongiorno Cinzia,
            Non avevo visto la tua seconda risposta, grazie.
            il tuo codice funziona benissiomo, l'unico problema è che Access
legge la data del sistema nel formato americano; ho provato a dare il
formato della data italiana senza riuscire, continua a darmi errore. Puoi
aiutarmi ancora ? Infatti all'apertura, se metto la data del sistema al
08/07/2004, Access fa riferimento alla data americana.
            Curiosità, da quanto lavori con Access ?
            Ciao... Bruno


            Quanto ti voglio bene, anche se non ti conosco. Mi hai aiutato a
risolvere un bel problema, grazie.
    Ho apportato anche la modifica (vedi sotto) di andare all'ultimo record
se non presenti record con data = alla data del sistema.
           Questo forum è veramente un pozzo di conoscenza, ci sono tante
persone oltre che molto preparate anche molto gentili e disponibili, come
continuano a dimostrarlo.
            Ancora grazie a te e tanti saluti dalla Sardegna.
                   Bruno
--------------
Private Sub Form_Open(Cancel As Integer)
Dim rst As DAO.Recordset
    Set rst = Me.RecordsetClone
    rst.FindFirst "[Data] = #" & Format(Date, "yyyy/mm/dd") & "#"
        If rst.NoMatch Then
            'MsgBox "Non è stato trovato nessun Record relativo alla data
odierna."
            DoCmd.Echo True, ""
            DoCmd.GoToRecord , "", acLast
        Else
            Me.Bookmark = rst.Bookmark
End If
    rst.Close
End Sub


Ciao Cinzia