[VBA/ACCESS] Leggere un campo di una tabella di un DB

[Dreossi]

Salve a tutti.
Volevo chiedere il vostro aiuto su un problemino:

Il codice lo lancio da una maschera dello stesso database (in VBA)

- Leggere un campo di una tabella del Database
- Fare le mie elaborazioni
- Scrivere un altro campo dello stesso record.
- Ciclare al sucessivo record fino a raggiungere la fine del la tabella



ciao e grazie 1000
Davide

[Dreossi]

dimenticavo....
per "elaborazioni" intendo che ho già del codice pronto per analizzare le stringhe.

Ciao

[alka]

Si tratta di Access direi. Confermi?
Lo specifico nel titolo della discussione, così chi conosce la risposta può individuare facilmente il tuo quesito e risponderti.

Ciao!

[Dreossi]

sorry,
pensavo che una tabella di un database sia solo di Access ....
o per lo meno... ci vuole un po di curiosità/fantasia non ti pare?
comunque grazie

[alka]

Originariamente inviato da Dreossi
pensavo che una tabella di un database sia solo di Access ....
o per lo meno... ci vuole un po di curiosità/fantasia non ti pare?

E' che nel tuo caso ci voleva TROPPA fantasia a capire che si trattava di Access, visto che il concetto di "tabella" è generalmente presente in qualsiasi DB. Inoltre, non ci possiamo mettere ad interpretare il significato recondito di qualsiasi titolo, no?

Capita a tutti di sbagliarsi, per questo non ci sono problemi, ma almeno non facciamo i furbetti per favore...

Bando alle motivazioni già espresse, sarebbe sufficiente dire che il titolo deve essere chiaro e indicare esplicitamente il linguaggio di programmazione, come da Regolamento.
Tu attieniti a quello e vedrai che non ci saranno mai problemi.

Ciao!

[Dreossi]

sarà.......
ma il linguaggio c'era (VBA) ..... e a chi si riferisce (quale marca di database) è ininfluente
....
non è che invece sei in grado di aiutarmi?
....
sorry, oggi sono polemico

[mgmg]

Se all'evento click di un comando esegui le seguenti operazioni:
Dim rset As Recordset
sqlstr = "select * from tabella"
Set rset = CurrentDb.OpenRecordset(sqlstr)

Do Until rsetnom.EOF
'eseguo calcoli sui campi della tabella
Totale = rset("campo1") + rset("campo2")

rset.Edit
rset("campo3") = Totale

rset.MoveNext
Me.Repaint
g = g + 1
ContaOrdinig.Caption = g
Loop

[mgmg]

Se all'evento click di un comando esegui le seguenti operazioni:
Dim rset As Recordset
sqlstr = "select * from tabella"
Set rset = CurrentDb.OpenRecordset(sqlstr)

Do Until rsetnom.EOF
'eseguo calcoli sui campi della tabella
Totale = rset("campo1") + rset("campo2")

rset.Edit
rset("campo3") = Totale
rset.Update 'mancava nel post precedente
rset.MoveNext
Me.Repaint
g = g + 1

ContaOrdinig.Caption = g
Loop
Ciao