Jeg får en fejlmeddelelse som lyder:
[Run-time error '5'
Invalid procedure call or argument]
på nedenstående eksempel.
Hvis jeg ikke indtaster noget i det første felt,
men indtaster jeg noget først så får jeg ikke
en error !?
Det skal lige indskydes at når jeg tester
programmet i VB inden jeg laver exe-filen så
er der ingen errors!
Er der en der kan hjælpe mig videre?
Option Explicit
Private Sub Command1_Click()
Text3 = 1 * Text1 + Text2
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1) Then
Text1.SetFocus
MsgBox "indtast tal!"
Text1 = ""
End If
End Sub
Private Sub Text2_LostFocus()
If Not IsNumeric(Text2) Then
Text2.SetFocus
MsgBox "indtast tal!"
Text2 = ""
End If
End Sub
--
Preben Jensen
www.pdcs.dk
preben@NOSPAMpdcs.dk
fjern NOSPAM