Arieccomi alla carica… come da titolo vi chiedo un grande aiuto, vorrei visualizzare direttamente nel formulario, l’importo totale dato dal prezzo unitario per il numero degli inviti, poi dovrò andare ad aggiungerlo ad una serie di altri valori, ma un passo per volta… Allego il file in questione. Grazie per l’aiuto sempre fondamentale.
Programma preventivi 2.1.2 vuoto.odb (120.6 KB)
2
Non comprendo…
Hai due controlli con lo stesso nome?
Do you have TWO controls with same name?
No credo di no ma uno può essere eliminato…
Prova questo codice: Evento = After updating (dopo l’aggiornamento ?) di
“Prezzo unit invito” [Prez x invito]
Option Explicit
Sub SetInvitiAmmount(Evt As Object)
'Globalscope.BasicLibraries.LoadLibrary("MRILib")
Dim NI As Object, PI As Object, II As Object, FMp As Object
Dim invitos As Integer, prezzo As Single
On Error GoTo Erro
REM SET VARIABLES FOR THE CONTROLS
FMp = Evt.Source.Parent 'the Form
NI = FMp.getByName("Nr inviti")
PI = FMp.getByName("Prezzo unit invito")
II = FMp.getByName("Importo inviti")
invitos = CInt(NI.Value)
prezzo = CSng(PI.Value)
If invitos > 0 And prezzo > 0.00 Then II.Value = invitos*prezzo
Exit Sub
Erro: MsgBox "ERRO " & Err & Chr(10) & "na linha " & Erl
End Sub
Prega di prendere nota dei nomi dei controlli.
Please take notice of control’s names.