Make Summation in Userform

[hmk]

i tried with this code:

Private Sub CommandButton1_Click()
Dim tooo As Double
Dim vtt As Double

If Label1.Caption = "" Then
Label1.Caption = vtt.Value
tooo.Value = vtt.Value

Else:
Label1.Caption = Label1.Caption & vbCr
Label1.Caption = Label1.Caption & vtt
tooo.Value = CDbl(tooo) + CDbl(vtt)


End If

tooo.Value = ""

End Sub

but it gives me invaled qualifier when tring to read vtt

any idea how to solve the problem ?

 

[Norie]

Hesham

vtt is a variable, so doesn't have any properties like Value etc.

 

[hmk]

i mage some correction, but still got type mismatch in the line

CDbl(tooo.Value)

here is the whole code

Private Sub CommandButton1_Click()
Dim cdbltooo As Double
Dim cdbltotv As Double

If Label1.Caption = "" Then
Label1.Caption = totv.Value
tooo.Value = CDbl(totv.Value)

Else:
Label1.Caption = Label1.Caption & vbCr
Label1.Caption = Label1.Caption & totv.Value
tooo.Value = CDbl(tooo.Value) + CDbl(totv)


End If

tooo.Value = ""

End Sub

 

[Norie]

tooo is also a variable, therefore doesn't have propertyies like Value.