Newsgroup: it.comp.appl.access
Titolo: Modifica record da codice

Salve,
qualcuno sa dimri come mai questo codice non funziona
mi da l'errore:
"METODO UPDATE O CANCELUPDATE SENZA ADDNEW O EDIT"
Function LOG_DB()
Dim DBS As Database, rst As dao.Recordset
Set DBS = CurrentDb
Set rst = DBS.OpenRecordset("TABELLA", dbOpenDynaset)
With rst
    .Edit
    .MoveLast
    ![data] = Now()
    .Update
End With
rst.Close
Exit Function
End Function
Grazie
Ciao
Giorgio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Giorgio
Prova cosě:
-----------------------------
Function LOG_DB()
Dim DBS As Database, rst As dao.Recordset
Set DBS = CurrentDb
Set rst = DBS.OpenRecordset("TABELLA", dbOpenDynaset)
rst.MoveLast
With rst
    .Edit
    ![data] = Now()
    .Update
End With
End Function
-------------------------------
Ciao
Bruno

salve
Ho una maschera con all'interno una casella di testo non associata che si
chiama [DATA_APP]
inserisco una data in questa casella di testo e poi clickando su un
pulsante mi esegue il seguente codice
Dim DATA_APP As String
Dim DBS As Database, rst As dao.Recordset
Set DBS = CurrentDb
Set rst = DBS.OpenRecordset("tabella", dbOpenDynaset)
rst.MoveLast
rst.MovePrevious
With rst
    .Edit
    ![data_nuova_p] = [DATA_APP]
    .Update
End With
rst.Close
pero' nel campo [data_nuova_p] non mi meorizza il valore della casella di
testo [DATA_APP]
Non riesco a capire come mai..


 Non riesco a capire come mai..
Elimina la prima istruzione sopra elencata:
Dim DATA_APP As String
e sostituisci
![data_nuova_p] = [DATA_APP]
con:
![data_nuova_p] = ![DATA_APP]
Bruno

 Bruno
Ho provato a fare come mi hai suggerito ma mi da questo errore:
"errore di runtime 3265
elemnto non trovato in questo insieme"
se poi facci il debug mi evidenzia in giallo questa riga:
![data_nuova_p] = ![DATA_APP]
Grazie in anticipo


 ![data_nuova_p] = ![DATA_APP]
[data_nuova_p] č il nome del campo di "tabella",
[DATA_APP] il nome del TextBox sulla scheda.
Controlla che vi sia corrispondenza e la grafia sia corretta.
Metti REM davanti a tutto il With... End With e metti prima
di rst.Close (che a fine routine non serve a niente)
MsgBox rst![data_nuova_p].
Dimmi se ti legge il campo, ché mi č venuto un dubbio...
Bruno

 Bruno
Ho provato a commentare le righe ed o lasciato solo:
Private Sub Comando0_Click()
 Dim DBS As Database, rst As dao.Recordset
 Set DBS = CurrentDb
 Set rst = DBS.OpenRecordset("tabella", dbOpenDynaset)
 rst.MoveLast
 rst.MovePrevious
 'With rst
 '.Edit
 ![data_nuova_p] = ![data_app]
 '.Update
 'End With
 MsgBox rst![data_nuova_p]
 rst.Close
End Sub
quando clicco sul pulsante pero mi da questo errore:
"errore di compilazione - riferimento non valido o non qualificato"
e poi mi evidenzia:
![data_app]
Grazie


 ![data_app]
Quindi il record non esiste ovvero la tabella è danneggiata.
Ma tu vuoi creare un record nuovo o editarne uno già
esistente (in questo caso il penultimo)?
Bruno 

 Bruno
Ciao Bruno
Io voglio editarne uno gia esistente (come dici tu è il penultimo) ed in
questa tabella ho gia inserito dei records e se scorro la maschera li vedo


 questa tabella ho gia inserito dei records e se scorro la maschera li vedo
Vedi anche il penultimo col contenuto dei vari campi?
Bruno 

 Giorgio
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 Bruno
Ciao
Si vedo anche il penultimo con il contenuto che ho inserito
quindi inserisco la data nella mia casella di testo non associata
[data_app]e se clicco sul pulsante mi da il solito errore:
"errore di compilazione riferimento non valido o non qualificato"
e nel debug si posiziona sul "![data_app]"
Grazie e ciao


 End Sub
bisognava togliere il punto esclamativo e le parentesi quadre sul campo
data_app
Grazie
Ciao


 wrote in message 
news:dgll48$il5$1...@news.newsland.it...

Già, perché altrimenti dentro il With... End With
il programma considera data_app un campo di rst.
La sintassi corretta è:
![data_nuova_p] = Me![data_app]
Uno dei pochi casi in cui Me è veramente necessario...
Ciao
Bruno