PRINCIPALE > LISTA DELLE AREE DI DISCUSSIONE > DATABASE > MESSAGGIO

Eseguire una ricerca veloce nell' archivio delle risorse di Visual Basic Italia®: 

Preso dall'archivio...

Premere il pulsante sotto per accedere direttamente ad un articolo o ad un esempio preso in modo casuale dall'archivio.
Ultimo e-book pubblicato:

"INTRODUZIONE AI CSS"

Lo scopo del CSS language è quello di controllare lo stile dei vari elementi che concorrono a formare un
documento HTML.
Si può operare in tre modi collegamento ad un foglio di stile esterno;definizione degli stili all'inizio
del documento utilizzo della proprietà style all'interno di un Tag HTML (embedded style). Questo e-book introduttivo
servirà per apprendere tali nozioni fondametali dei fogli di stile.


Prezzo: € 0.0.

Presentazione:
REAL SOFTWARE RILASCIA LA VERSIONE 5.0 di REALbasic per Windows






Gorizia, 5 maggio 2003 - Active, distributore in esclusiva di REALSoftware, Austin, Tx, annuncia la disponibilità di REALbasic 5.0 per Windows, uno strumento per lo sviluppo semplice da usare che permette agli utenti Windows di tutti i livelli di creare applicazioni personalizzate e di compilarle sia per la piattaforma Windows che per quella Macintosh. [>>]

http://www.active-software.com

Contatti. Utilizzare l'email generica per domande relative al sito:
Porre domande relative al sito
oppure scrivere ad un responsabile di area.
Responsabile del sito: >Andrea Martelli
Responsabile area "Corso di VB":
> Giorgio Abraini

Messaggio



Help! Run-time 2115
Roberto 05/06/2007
Difficoltà: Principiante

Scusante l'intrusione ma ho un problema che vi sottopongo affinchè qualcuno mi possa aiutare.
Ho scritto un codice affinchè dopo aver selezionato un pulsante di opzione (evento click) venga effettuata una semplice moltiplicazione tra due campi ed il risultato inserito in un ulteriore campo.
Quando eseguo l'evento mi appare: "Errore di run-time 2115 - Impossibile salvare i dati nel campo a causa della macro o funzione impostata alla proprietà PrimaDiAggiornare e o ValidoSe di tale campo".
Peraltro ho verificato che terminando il codice, il prodotto viene correttamente visualizzato nel campo e memorizzato nel database sottostante.
Vi propongo il codice sperando che qualcuno possa darmi una mano.
Grazie in anticipo.

Private Sub Moltiplica_Click()

Dim ImportoValuta
Dim CambioValuta
Dim CTVEuro

If Moltiplica.Value = True Then
Etichetta16.Caption = "Moltiplica"
ImportoValutaSpesa.SetFocus
ImportoValuta = ImportoValutaSpesa.Text
CambioValutaSpesa.SetFocus
CambioValuta = CambioValutaSpesa.Text
CTVEuroSpesa.SetFocus
CTVEuro = ImportoValuta * CambioValuta
CTVEuroSpesa.Text = CTVEuro

Else

Etichetta16.Caption = "Dividi"
ImportoValutaSpesa.SetFocus
ImportoValuta = ImportoValutaSpesa.Text
CambioValutaSpesa.SetFocus
CambioValuta = CambioValutaSpesa.Text
CTVEuroSpesa.SetFocus
CTVEuro = ImportoValuta / CambioValuta
CTVEuroSpesa.Text = CTVEuro
End If

End Sub