[VB] operazioni

[Rossella_75]

ciao a tutti

ho da chiedervi una cosa semplice, ma non riesco a capire quale evento devo assegnare :gren:


io ho tre text box

1) prezzo
2) acconto
3) rimanenza

adesso vorrei che quando scrivo il prezzo tutte le text box abbiano lo stesso valore mentre quando scrivo nella text box acconto la text box rimanenza faccia la sottatrazione (prezzo - acconto)

pero la text box acconto deve rimanere disabilitata fino a quando non scrivo il prezzo


grazie mille (non ridete :gren: )

[optime]

direi che potresti sfruttare l'evento lostfocus

[Rossella_75]

e no a me serve tipo con l'evento KeyPress solo che non mi dà la prima cifra

[optime]

Originariamente inviato da Rossella_75
e no a me serve tipo con l'evento KeyPress solo che non mi dà la prima cifra

?

[ladyBlu]

prova questo codice...

Private Sub Form_Activate()
        txtAcconto.Locked = True
End Sub

Private Sub txtAcconto_Change()
        Dim miaRimanenza As Single
        miaRimanenza = CSng(txtPrezzo) - CSng(txtAcconto)
        txtRimanenza = miaRimanenza
End Sub

Private Sub txtPrezzo_Change()
        txtAcconto = txtPrezzo
        txtRimanenza = txtPrezzo
        txtAcconto.Locked = False
End Sub

ciaociao

[Rossella_75]

Grazie mille,

Hai preso in pieno il problema, cosi funziona solo posso scrivere in acconto anche prima di scrivere il prezzo e quando cancello tutto quello che c'è in acconto mi dà errore

"tipo non corrispondente"

 miaRimanenza = CSng(prezzo) - CSng(acconto)

poi un'ultima cosa che non ho detto il prezzo ovviamente è in euro

basta che faccio la conversione vero??


Grazie mille

[ladyBlu]

ecco, prova questo... di più non posso fare.

Private Sub Form_Activate()
        txtAcconto.Locked = True
End Sub

Private Sub txtAcconto_Change()

        If Trim(txtPrezzo) <> "" And Trim(txtAcconto) <> "" Then
            
            If Not IsNumeric(txtPrezzo) Then
                    MsgBox "Il Prezzo deve essere un valore numerico"
                    txtPrezzo = ""
                    txtAcconto = ""
                    txtRimanenza = ""
                    txtPrezzo.SetFocus
                    Exit Sub
            End If
            
            If Not IsNumeric(txtAcconto) Then 
                MsgBox "L' Acconto deve essere un valore numerico"
                txtAcconto = ""
                txtPrezzo = ""
                txtRimanenza = ""
                txtAcconto.SetFocus
                Exit Sub
            End If

            Dim miaRimanenza As Single
            
            txtPrezzo = Replace(txtPrezzo, ".", ",")
            txtAcconto = Replace(txtAcconto, ".", ",")
            miaRimanenza = CSng(txtPrezzo) - CSng(txtAcconto)
            txtRimanenza = miaRimanenza
        
        End If

End Sub

Private Sub txtPrezzo_Change()

        txtPrezzo = Replace(txtPrezzo, ".", ",")
        txtAcconto = txtPrezzo
        txtRimanenza = txtPrezzo
        If txtPrezzo = "" Then
                txtAcconto.Locked = True
            Else
                txtAcconto.Locked = False
        End If

End Sub

ciao ciao

[Rossella_75]

Originariamente inviato da ladyBlu
ecco, prova questo... di più non posso fare.

Private Sub Form_Activate()
        txtAcconto.Locked = True
End Sub

Private Sub txtAcconto_Change()

        If Trim(txtPrezzo) <> "" And Trim(txtAcconto) <> "" Then
            
            If Not IsNumeric(txtPrezzo) Then
                    MsgBox "Il Prezzo deve essere un valore numerico"
                    txtPrezzo = ""
                    txtAcconto = ""
                    txtRimanenza = ""
                    txtPrezzo.SetFocus
                    Exit Sub
            End If
            
            If Not IsNumeric(txtAcconto) Then 
                MsgBox "L' Acconto deve essere un valore numerico"
                txtAcconto = ""
                txtPrezzo = ""
                txtRimanenza = ""
                txtAcconto.SetFocus
                Exit Sub
            End If

            Dim miaRimanenza As Single
            
            txtPrezzo = Replace(txtPrezzo, ".", ",")
            txtAcconto = Replace(txtAcconto, ".", ",")
            miaRimanenza = CSng(txtPrezzo) - CSng(txtAcconto)
            txtRimanenza = miaRimanenza
        
        End If

End Sub

Private Sub txtPrezzo_Change()

        txtPrezzo = Replace(txtPrezzo, ".", ",")
        txtAcconto = txtPrezzo
        txtRimanenza = txtPrezzo
        If txtPrezzo = "" Then
                txtAcconto.Locked = True
            Else
                txtAcconto.Locked = False
        End If

End Sub

ciao ciao

hai fatto pure troppo

grazie mille è perfetto

[ladyBlu]

Originariamente inviato da Rossella_75
hai fatto pure troppo

grazie mille è perfetto

di niente... felice di esserti stata utile...

ciao