Macro per eseguire operazione

[lseed78]

Buongiorno a tutti,

sono alle prese con la realizzazione di un db per gestire il magazzino aziendale delle materie prime e sono quasi riuscito nell'intento...
Quello che mi manca è creare una macro che esegua una sottrazione mediante un pulsante di due valori presenti in tabella.

Ho trovato il comando sql per eseguire l'operazione su tutta la tabella e funziona perfettamente:

Codice: Seleziona tutto

UPDATE "Gestione_Carta" SET "Metri Rotolo" =  "Metri Rotolo" - "Metri Impegnati"

Ora vorrei inserire questa funzione in un formulario e che esegua l'operazione di sottrazione dei "Metri Impegnati" dai "Metri Rotolo" solo sulla riga selezionata.
Ho provato a realizzarla....

Codice: Seleziona tutto

REM  *****  BASIC  *****

Sub UPDATE_Test
sSQL= "UPDATE Gestione_Carta SET Metri Rotolo = Metri Rotolo - Metri Impegnati"
End Sub

ma non riesco neanche ad eseguire il codice sql per fargli eseguire l'operazione.

In allegato il db di test contenete la tabella e il formulario

Grazie

[charlie]

Ciao, cercando sul Forum ho trovato come far funzionare il tuo comando SQL in una macro:

Codice: Seleziona tutto

Sub UPDATE (oEvent As Object) 'Button > Execute > event
	oForm = oEvent.Source.Model.Parent 'MainForm from Button
	oStatement = oForm.ActiveConnection.createStatement() 'Create an SQL statement object
	sSQL= "UPDATE ""Gestione_Carta"" SET ""Metri Rotolo"" = ""Metri Rotolo"" - ""Metri Impegnati""" 
	oStatement.executeUpdate( sSQL ) 'Execute the SQL command
	oForm.reload
End Sub

N.B. ho scoperto che il comando SQL va in questo caso va scritto con i nomi Tabella e nomi Campo fra doppi apici (""... "").
Rimane da fare (io non sono un esperto) di far agire la macro solo sulla riga selezionata.

[lseed78]

Grazie charlie!
Era proprio quello che cercavo!

Grazie al tuo aiuto adesso so come inserire correttamente il codice SQL!

Riguardo alla selezione della riga ci lavorerò su e spero di risolvere....
ho in mente delle alternative ma renderebbero solo più macchinosa la gestione.

Grazie ancora.

[vladboscaneanu]

Devi raggiungere l'operatore WHERE

Codice: Seleziona tutto

sSQL= "UPDATE ""Gestione_Carta"" SET ""Metri Rotolo"" = ""Metri Rotolo"" - ""Metri Impegnati"" WHERE ""id_rotolo""=2" 'QUI INSERISCE LA RIGA RICHIESTA 

saluti

[charlie]

@vladboscanenu
Troppo facile! Il nostro amico Iseed78 vuole selezionare la riga con un click.

[Gaetanopr]

Ora vorrei inserire questa funzione in un formulario e che esegua l'operazione di sottrazione dei "Metri Impegnati" dai "Metri Rotolo" solo sulla riga selezionata.

Invece di usare un istruzione sql, si può aggiornare il valore nel formulario e poi aggiornare la corrispondente riga nella tabella.

Codice: Seleziona tutto

Option Explicit
Sub Consumo (oEv as object)
Dim oForm as object
Dim MetriIm As Double, MetriR As Double
If MsgBox ( "Vuoi Aggiornare la riga selezionata",1,"Calcolo Metri") = 2 Then Exit Sub
oForm = oEv.source.model.parent
MetriR = oForm.GetByName("Campo di controllo tabella 1").GetByName("Metri Rotolo").CurrentValue 
MetriIm = oForm.GetByName("Campo di controllo tabella 1").GetByName("Metri Impegnati").CurrentValue 
MetriR = (MetriR - MetriIm)
oForm.GetByName("Campo di controllo tabella 1").GetByName("Metri Rotolo").BoundField.UpdateInt(MetriR)
 
 If oForm.IsNew then
    oForm.InsertRow()
 Else
    oForm.UpdateRow()
 End if

End sub