Regnestykke i vb

Læg denne kode på selve tekstboksen

Private Sub t_Change()
Me!Label1 = Me!Textbox1 * 2
End Sub

Ret selv til korrekte navne, og udbyg den, så der ikke opstår fejl ved sletning mm., eller spørg igen.

Prøv evt. denne udvidede version:

Private Sub Textbox1_Change()
    If Me!Textbox1 = "" Then
        Me!L = 0
        Exit Sub
    End If
    Me!Label1 = Me!Textbox1 * 2
End Sub

Du kan også bruge hændelsen AfterUpdate. Så sker beregnuingen først når du forlader tekstboksen, ikke hver gang du taster i denne:



Private Sub Textbox1_AfterUpdate()
    If Me!Textbox1 = "" Then
        Me!L = 0
        Exit Sub
    End If
    Me!Label1 = Me!Textbox1 * 2
End Sub

hvad nu hvis jeg gerne vil gange med 0,3 ??

Det virker jo perfekt. Jeg var ude i noget ()-skidt. det virkede jo ikke.

"0,3".... det var jo bare at tænke lidt.. Kan den også afrundes til hele tusinder?

Round(tal_der_skal_afrundes / 1000) * 1000

jkrons.. Smid et svar, du skal have point for at svare på det første spørgsmål.

Et svar :-)

tak for hjælpen..

Velbekomme.