[Risolto] Pulsante aggiornamento quantità

[Michele501]

Buongiorno,
mi "aggancio" a questa vecchia richiesta per chiedere aiuto nella creazione di una macro da inserire nel mio formulario per aumentare di 1 il valore della cella quantità nella tabella dei prodotti.
Sono riuscito ad adattare una macro di ricerca per la selezione dell'articolo tramite ean ora volevo abilitare un pulsante per aumentare la quantità del prodotto richiamato.
Ho provato già un adattamento alle macro presenti nei precedenti post senza risultati causa le mie conoscenze limitate di programmazione basic.

Grazie

[charlie]

Ciao, non era una buona idea l'accodamento ad altro argomanto, l'ho staccato.

Ciao e benvenuto/a sul forum.
Se intanto ti vuoi presentare, farai cosa gradita. Puoi farlo in questa sezione -> viewforum.php?f=16

L’utente che apre un quesito si impegna:

• a seguirlo dando riscontro quanto prima alle risposte ricevute nel giro di qualche giorno;
  - inserire il [Risolto] e la ✔ verde come previsto;
• rispettare le altre regole implicite del forum ( Istruzioni per nuovi arrivati - Manuale di sopravvivenza ).

In caso di inosservanza saremo costretti ad azioni di “richiamo”, sospensione o chiusura del profilo utente.

Buon proseguimento.

[charlie]

Ciao, ho dovuto aggiungere una chiave primaria "indipendente" nella tabella per avere un riferimento univoco del record da modificare. Il relativo campo, riportato nel formulario per utilizzarlo nella macro, è stato poi nascosto.
Questa è la macro:

Codice: Seleziona tutto

Sub Piu1 'aumenta di 1 la Quantità
     Dim oForm As Object
     Dim oStatement As Object
     Dim iQ As Integer
     Dim sSQL As String
     Dim sN As String
     oForm=thisComponent.drawpage.forms.getByName("MainForm")
     oStatement = oForm.ActiveConnection.createStatement()          
     iQ = VAL(oForm.getBYName("Casella di testo 1").currentvalue)' legge il valore corrente
     sN = oForm.getBYName("ID").currentvalue ' memorizza chiave primaria record corrente in Form
     iQ = iQ + 1 ' aumenta valore di 1 
     sSQL = "UPDATE ""Prodotti"" SET ""Quantità"" = " & iQ &" WHERE ""ID"" = '" & sN &"'" ' scrive nuovo valore in tabella Prodotti
     oStatement.executeUpdate(sSQL)' esegue istruzione SQL
     oForm.Reload' aggiorna Form
End Sub

[Michele501]

Perfettamente funzionante grazie e grazie anche della rapidità di risposta.