[VBA/ACCESS] Utilizzo del valore recuperato da una SELECT

[Astharot]

Ciao a tutti,
vi spiego qual'è il mio problema
Sto utilizzando Access, in una maschera ho aggiunto un pulsante che mi deve effettuare alcune operazioni:
1- istruzione sql: select Max(Progressivo) From CD-DVD (progressivo è numerico)
2- al risultato della select devo aggiungere +1
3- la nuova variabile mi serve per effettuare una insert: insert into CD-DVD(Progressivo) Values (il valore dichiarato nel punto 2)

Premetto che non conosco le strutture di VB non avendole mai studiate, non so se sia una cosa banale o meno e scusatemi

Grazie mille per l'aiuto

[optime]

cos'è che NON sai fare?

[gibra]

Originariamente inviato da Astharot
Ciao a tutti,
vi spiego qual'è il mio problema
Sto utilizzando Access, in una maschera ho aggiunto un pulsante che mi deve effettuare alcune operazioni:
1- istruzione sql: select Max(Progressivo) From CD-DVD (progressivo è numerico)
2- al risultato della select devo aggiungere +1
3- la nuova variabile mi serve per effettuare una insert: insert into CD-DVD(Progressivo) Values (il valore dichiarato nel punto 2)

Premetto che non conosco le strutture di VB non avendole mai studiate, non so se sia una cosa banale o meno e scusatemi

Grazie mille per l'aiuto

Non è ben chiaro quello che scrivi: parli maschere di Access che non esistono in VB (che ha invece i form). Stai lavorando in MSAccess? Chiarisci l'ambiente di lavoro.

Comunque, il codice per ottenere il progressivo è questo:

SELECT Max(Progressivo) +1 FROM CD-DVD

In questo caso si parla di linguaggio SQL, le struttura di VB non c'entrano niente.

Ciao

[Astharot]

Sto lavorando in ms access, per maschera intendo la struttura che viene creata sempre in access, in questa maschera c'è un pulsante che ha istruzioni in VB.
A me serve in pratica associare il risultato della select ad una variabile per poterla modificare e utilizzare successivamente. Non so come fare a creare, valorizzare (con il risultato della select) e utilizzare successivamente una variabile in VB

[gibra]

Mi spiace, ma non conosco l'ambiente MS-Access, tra l'altro questo non mi pare un Forum che tratta di MS-Access.
Forse ti conviene rivolgerti a forum più specifici.

Ciao

[alka]

Preciso che quest'area tratta il linguaggio VBA per Access, Word, Excel, ..., come da Regolamento.

Ho corretto il titolo per esplicitare questa condizione.

Ciao!

[Astharot]

Originariamente inviato da gibra
Mi spiace, ma non conosco l'ambiente MS-Access, tra l'altro questo non mi pare un Forum che tratta di MS-Access.
Forse ti conviene rivolgerti a forum più specifici.

Ciao

Più che problema con access è un problema di VB, quello che chiedevo è il codice in VB per eseguire ciò che ho chiesto sopra, cioè muovere il risultato di una select in una variabile che dovrò utilizzare successivamente in una insert dopo averla modificata sommandoci 1. Tutto questo in VB

[gibra]

Originariamente inviato da Astharot
Più che problema con access è un problema di VB, quello che chiedevo è il codice in VB per eseguire ciò che ho chiesto sopra, cioè muovere il risultato di una select in una variabile che dovrò utilizzare successivamente in una insert dopo averla modificata sommandoci 1. Tutto questo in VB

OK, vedo che non capisci.
Il codice te l'ho già dato (la query).

Non è un problema di VB, perchè quella è una query ed è indipendente da linguaggio.
MSAccess è un ambiente diverso da VB6 o dal NET; trattandosi di VBA è più simile al VB6 che al NET ma oggetti, funzioni e metodi sono o possono essere diversi.
In VB6 io farei così (scrivo al volo)

Dim ProssimoNumero as Long
Dim CN As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL As String
Set CN = New ADODB.Connection
CN.Connectionstring = <connessione al database>
CN.Open

sSQL = "SELECT Max(Progressivo) + 1 FROM tabella"
Set rs = CN.Execute(sSQL)
If Not rs.EOF Then
    ProssimoNumero = rs.Fields(0).Value
End If

Vedi qualche attinenza con il VBA?

Scusa, come la esegui la INSERT di cui parli?
Ecco, allo stesso modo eseguirai la SELECT che ti ho indicato, no?


Ciao

[Astharot]

Originariamente inviato da gibra
OK, vedo che non capisci.
Il codice te l'ho già dato (la query).

Non è un problema di VB, perchè quella è una query ed è indipendente da linguaggio.
MSAccess è un ambiente diverso da VB6 o dal NET; trattandosi di VBA è più simile al VB6 che al NET ma oggetti, funzioni e metodi sono o possono essere diversi.
In VB6 io farei così (scrivo al volo)

Dim ProssimoNumero as Long
Dim CN As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL As String
Set CN = New ADODB.Connection
CN.Connectionstring = <connessione al database>
CN.Open

sSQL = "SELECT Max(Progressivo) + 1 FROM tabella"
Set rs = CN.Execute(sSQL)
If Not rs.EOF Then
    ProssimoNumero = rs.Fields(0).Value
End If

Vedi qualche attinenza con il VBA?

Scusa, come la esegui la INSERT di cui parli?
Ecco, allo stesso modo eseguirai la SELECT che ti ho indicato, no?


Ciao

non è che non capisco è solo che non conoscendo vb non capisco cosa cambi da vb6 a vba?!
praticamente la struttura è la stessa che vedo normalmente, proverò e ti farò sapere.
per la insert la inserisco come codice sSQL come hai fatto per la select