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

come si inserisce un nuovo record da codice?
es. devo compilare i campi CAMPO1,CAMPO2 nella tabella TABELLA con dei
valori che ho calcolato da delle procedure.
grazie

 valori che ho calcolato da delle procedure.
Come al solito, se lo cerchi sull'help lo trovi subito.
Ad ogni modo:
dim rst as recordset
set rst = currentdb.openrecordset("TuaTabellaO Query",dbopendynaset)
rst.addnew
rst!Campo1=Valore1
rst!Campo2=Valore2
...
rst!CampoN=ValoreN
rst.update
rst.close
set rst=nothing
Sib
--
il sito comune di it.comp.database.access:
http://www.sitocomune.com
------------------------------------------------------
La mia home
http://digilander.iol.it/syb
------------------------------------------------------
"Non sempre cio' che viene dopo e' progresso"
Alessandro Manzoni
------------------------------------------------------
Saturiamo ECHELON:
bomba saddam attentato medio oriente

 wrote in message
4d9o6.58632$Y93.1...@news.infostrada.it...

grazie sib, ma come al solito prima di chiedere a voi cerco sull'help, ma ho
provato con "record","nuovo record","new record","add record"...ma non avevo
trovato nulla.
ciao ciao!

 Tipo non corrispondente
e quale riga ti viene evidenziata?
per i click a vuoto verifica l'attivazione degli eventi inserendo dei punti
di interruzione nel codice in modo da vedere se vanno veramente a vuoto.
Sib

 Mi viene evidenziata la riga setrst = Current......
ma tu hai scritto proprio cosi' (che e' sbagliato) o hai scritto
correttamente:
Set rst = ...
ovverossia
Set <spazio> rst = ...?
Sib

 ha scritto nel messaggio
news:9805vi$cvo$1...@pegasus.tiscalinet.it...

No ho scritto correttamente

ho risolto in un altro modo e cosě funziona...prova cosě:
               Dim rs As Recordset
                Set rs = New ADODB.Recordset
                rs.ActiveConnection = CurrentProject.Connection
                rs.Open "tua tabella", , adOpenKeyset, adLockOptimistic,
adCmdTable
                rs.AddNew
                rs.Fields("campo1").Value = valore1
                rs.Fields("campo2").Value = valore2
                ...
                rs.Update
                Set rs = Nothing

 No ho scritto correttamente
Ok, copiaincolla il codice che usi, cosi' cerchiamo di capire cosa c'e' che
non va'.


 Ecco il codice
Private Sub Comando20_Click()
Dim rst As Recordset
Set rst = currentdatbase.OpenRecordset("t_Fornitori", dbopendynaset)
rst.AddNew
rst!Indirizzo = "Via Roma"
rst!Città = "Napoli"
rst.Update
rst.Close
Set rst = Nothing
End Sub

 End Sub
Sib


 > End Sub
Riconoscop di aver fatto un errore grossolano ma la cosa non funziona
comunque

 comunque
Figurati, il problema non e' la grossolanita' dell'errore.
Il mio tono voleva essere goliardico, non ironico.
Piuttosto, che errore ti da adesso e dove?



Adesso non funziona e non mi da nessun errore :-(((

 ha scritto nel messaggio
news:hBLp6.126330$Y93.3...@news.infostrada.it...

Non e' che per caso nella tabella c'e' una chiave primaria?
Se c'e' e non e' di tipo contatore la devi inserire insieme agli altri
campi.
Ma sei sicuro che il codice venga eseguito? non e' che hai cambiato nome al
pulsante?
Sib


Nella tabella c'è una chiave primaria di tipo contatore

 Nella tabella c'č una chiave primaria di tipo contatore
Non so che dirti.
Se correttamente eseguito, il codice dovrebbe funzionare perfettamente.
Sib

Ho risolto tutto:
ho tolto un pò di riferimenti alle librerie e il tutto ha funzionato.
Grazie per l'aiuto