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
[Risolto] Pulsante aggiornamento quantità
-
- Messaggi: 2
- Iscritto il: domenica 24 gennaio 2021, 10:04
[Risolto] Pulsante aggiornamento quantità
- Allegati
-
- 2021_ok_demo.odb
- Allego files creato
- (49.98 KiB) Scaricato 92 volte
Ultima modifica di Michele501 il domenica 24 gennaio 2021, 18:01, modificato 1 volta in totale.
Window 10 Libre Office 6.4.7
Re: Pulsante aggiornamento quantità
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:In caso di inosservanza saremo costretti ad azioni di “richiamo”, sospensione o chiusura del profilo utente.
- 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 ).
Buon proseguimento.
charlie
macOS 14.4.1 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
macOS 14.4.1 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
Re: Pulsante aggiornamento quantità
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:
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
- Allegati
-
- 2021_ok_demo_2.odb
- (51.59 KiB) Scaricato 85 volte
charlie
macOS 14.4.1 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
macOS 14.4.1 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
-
- Messaggi: 2
- Iscritto il: domenica 24 gennaio 2021, 10:04
Re: Pulsante aggiornamento quantità
Perfettamente funzionante grazie e grazie anche della rapidità di risposta.
Window 10 Libre Office 6.4.7