Vise tekst fra fejl til brugeren

A = Inputbox (dit input)
IF A = Vrøvl THEN
  MSGBOX "Du har tastet noget vrøvl"
  EXIT SUB
END IF
din kode

OK nu mente, hvis brugeren taster en ikke numerisk værdi og henvise til den streng som du så tastede

OK nu mente jeg at, hvis brugeren taster en ikke numerisk værdi!. Og så i fejlmeddelsen henvise til den streng som brugeren så tastede

jeg bruger denne til at kontrollerer:

Private Sub tbAntal_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyPressNumbersOnly KeyAscii
End Sub

... og her funktionen:

Public Sub KeyPressNumbersOnly(ByVal KeyAscii As MSForms.ReturnInteger)
'Flemming Dahl, April 2000, fd@smartoffice.dk
    'eks. i KeyPress subben:    KeyPressNumbersOnly KeyAscii
    Select Case KeyAscii
        Case vbKey0 To vbKey9, vbKeyBack
        Case Else
            Beep
            KeyAscii = 0
    End Select
End Sub

Med den er det kun muligt at indtaste numeriske værdier - dvs at brugeren aldrig skriver noget forkert...

Jeg bruger den godt nok i Excel VBA - men mon ikke den også virker i Access?!

Du kan bruge den cddk, anvender, der tester på hvert eneste anslag (men jeg ved faktisk ikke om den virker i Inputbokse. Eller du kan bruge noget i denne stil:

VarX = Inputbox("Indtast første tal")
If Not IsNumeric(varX) Then
Msgbox "Du skal indtaste et tal", vbOkOnly + vbExclamation
Exit Sub
End If

Lad VarY vælre lig input boks til andet tal, og gentag ovenstående. Fortsæt dernæst med din egen kode.

Altså:

VarX = Inputbox("Indtast første tal")
If Not IsNumeric(varX) Then
  Msgbox "Du skal indtaste et tal", vbOkOnly + vbExclamation
  Exit Sub
End If

VarY = Inputbox("Indtast første tal")
If Not IsNumeric(varY) Then
  Msgbox "Du skal indtaste et tal", vbOkOnly + vbExclamation
  Exit Sub
End If

For i = VarX to VarY ....

Brugte modellen fra jkrons - tak for hurtig hjælp

Iøvrigt, hvis jeg vil præsentere brugeren for den forkert indtastede værdi - ligger det "lige til højre fod"

Ikke afprøvet:

Msgbox "Du skal indtaste et tal" & VarX &, vbOkOnly + vbExclamation

mugs' løsning burde virke.

Tak for point.

Selvtak. mugs --> Det virker perfekt, det burde nok være et sep. sp,. men hvordan indsætter jeg linieskift & vbLf har ingen effekt

Prøv med vbCRlf

Fx  "Du har indtastet en forkert værdi " & varX & vbCrlf & " Det rigtige skal være et tal"

Den vil ikke helt
MsgBox "Du SKAL indtaste et tal. Du skrev : " & vMinVærdi & vbCrLf & vbCrLf

Linieskiftet skal være efter punktum

Msgbox "Du SKAL indtaste et tal." & vbCrlf & "Du skrev: " 6 vMinværdi

& ikke 6.

Perfekt - takker igen!.

Velbekomme!

Vedr. linieskift i MsgBox, har jeg gjort den erfaring, at vbNewline altid fungerer i.s.f vbCrlf og Chr(13).