Newsgroup: it.comp.appl.access
Titolo: ricerca e scrittura in campo

Salve a tutti,
sono un novizio di access e vi chiedo un aiuto che per molti potrà essere
banale ma io non riesco a venirne a capo.
La situazione è questa: sto crendo un programma archivio video (un po' per
gioco ma ora mi sto appassionando....).Ho creato un form dove in una listbox
visualizzo i primi 2 campi della tabella creata  (titolo,genere) e le altre
sono nascoste(lunghezza 0): clikkando su un titolo nella listbox visualizzo
nelle caselle di testo tutti i dati del film selezionato ( quindi
titoto,genere,regia, ecc.....). e fin qui tutto bene.
Ora mi è venuta l'idea di inserire un bottone che se clikkato mi aggiunga
nel campo "visione" della tabella la data di visione del film (cioè la data
odierna) e poi successivamente anch'essa visualizzata in una casella di
testo recuperando i dati dalla listbox. Come posso fare?
Il fatto è che la data deve inserirla ovviamente in corrispondenza del
titolo selezionato (altrimente mi darebbe come visionato un altro
tiotlo...). Un amico mi ha detto che devo aprire il Db e recordset e poi
fare un INSERT INTO nel campo desiderato,  ma proprio non mi riesce (non so
quanto ne sa lui di access).Potete darmi qualche dritta sul codice?
grazie in anticipo per l'aiuto e scusate se mi sono dilungato un po troppo.
-- 
---------------------------------------------------------------------
"Are you still wasting your time with spam?...
There is a solution!"
Protected by GIANT Company's Spam Inspector
The most powerful anti-spam software available.
http://www.giantcompany.com

 ha scritto nel messaggio
news:6n%fb.12744$e6.4...@twister2.libero.it...

Se la tabella che contiene i dati si chiama Tabella1 ed ha una struttura
simile a questa:
ID            Contatore e chiave primaria
titolo        Testo
genere     Testo
regia        Testo
visione     Data/ora
ecc. ecc.
Se hai creato una maschera non associata che contiene una casella di
riepilogo non associata chiamata Elenco che ha 5 colonne di cui visibili
solo la seconda e la terza.
Se la maschera contiene anche 5 caselle di testo non associate chiamate
rispettivamente ID, Titolo, Genere, Regia e Visione.
Se l'origine riga della casella di riepilogo ha il seguente codice SQL:
SELECT DISTINCTROW ID, titolo, genere, regia, visione FROM Tabella1;
Se a fronte dell'evento "Su clic" della casella di riepilogo hai generato il
seguente codice VBA:
Private Sub Elenco_Click()
Me!ID = Me!Elenco.Column(0)
Me!Titolo = Me!Elenco.Column(1)
Me!Genere = Me!Elenco.Column(2)
Me!Regia = Me!Elenco.Column(3)
Me!Visione = Me!Elenco.Column(4)
End Sub
Se la maschera contiene anche un pulsante di comando e vuoi che, pigiando
tale pulsante, nel campo "visione" del record selezionato nella casella di
riepilogo venga registrata la data odierna.
A fronte dell'evento "Su clic" del pulsante di comando genera il seguente
codice VBA:
If Me!Elenco.ItemsSelected.Count = 0 Then
    MsgBox "Nessun titolo selezionato"
    Exit Sub
End If
Me!Visione = Date
DoCmd.RunSQL "UPDATE Tabella1 " & _
"SET visione = Date()WHERE (([ID]=" _
& Me!ID & "));"
Me!Elenco.Requery
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:aI9gb.12968$vO5.4...@twister1.libero.it...

Ti ringrazio molto, sono arrivato ora dal lavoro e ho vista la tua risposta,
appena finito cena provo. Farò sapere....
grazie


Benissimo, funziona alla perfezione, non so come ringraziarti...ho imparato
qualcosa di nuovo.
Posso farti un'altra domanda? C'č un modo per non far venire fuori il
messaggio di access che mi avverte che il record verrŕ aggiornato?
grazie ancora

 ha scritto nel messaggio
news:5figb.14784$e6.5...@twister2.libero.it...

Prova cosě:
If Me!Elenco.ItemsSelected.Count = 0 Then
    MsgBox "Nessun titolo selezionato"
    Exit Sub
End If
Me!Visione = Date
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tabella1 " & _
"SET visione = Date()WHERE (([ID]=" _
& Me!ID & "));"
DoCmd.SetWarnings True
