regnemaskine ?

Private Sub Knap_Click()
Dim total
If txt = \"\" And txt1 = \"\" Then
  MsgBox \"De er begge TextBox tomme\"
Else
  total = txt - txt1
  MsgBox total
End If
End Sub   

jeg skulle plus...jeg skiftede \"-\" til \"+\" men den regner da ik de to tal sammen, den ligger dem bare ved siden af hinanden..

eks:
skriver du 10 i den ene text box og i den anden 22, så får du resultat som \"1022\" i den msgbox der kommer ?

Private Sub Knap_Click()
Dim total
If txt = \"\" And txt1 = \"\" Then
  MsgBox \"De er begge TextBox tomme\"
Else
  total = val(txt) - val(txt1)
  MsgBox \"& total\"
End If
End Sub 

Jeg har svaret derhjemme. Jeg kan skrive til dig ved. 15-tiden. (Hvis ikke nogen andre har nået det! :-)  )

Hovsa, der har lige sneget sig en lille fejl ind....


Private Sub Knap_Click()
Dim total
If txt = \"\" And txt1 = \"\" Then
  MsgBox \"De er begge TextBox tomme\"
Else
  total = val(txt) - val(txt1)
  MsgBox total
End If
End Sub 

Du skal vist også bruge nogle paranteser:

Private Sub Knap_Click()
Dim total
If ((txt = \"\") And (txt1 = \"\")) Then
  MsgBox(\"De er begge TextBox tomme\")
Else
  total = val(txt) + val(txt1)
  MsgBox(total)
End If
End Sub 


og så bør du nok brug or istedet:

If ((txt = \"\") Or (txt1 = \"\")) Then
  MsgBox(\"En eller begge Felter er tomme\")

Flg. steder vil give fejl.

Private Sub Knap_Click()
Dim total
If ((txt = \"\") And (txt1 = \"\")) Then
  \'FEJL
  MsgBox(\"De er begge TextBox tomme\")
Else
  total = val(txt) + val(txt1)
  \'FEJL
  MsgBox(total)
End If
End Sub 


og så bør du nok brug or istedet:

If ((txt = \"\") Or (txt1 = \"\")) Then
  \'FEJL
  MsgBox(\"En eller begge Felter er tomme\")

kedde