09. marts 2007 - 08:43
Der er
6 kommentarer og 1 løsning
hvorfor kommer den aldrig ned i løkke 1 ?
Dim Input 'option explicit 'dim Initialer lengde = 0 dim msgtekst msgtekst = "Indtast initaler" While lengde < 1 Initialer = InputBox(msgtekst, "Indtast navn", "f.eks abc") 'InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context]) lengde = Len(Initialer) if lengde < 1 and lengde > 4 then Initialer = InputBox("fejl", "Indtast navn" & Initialer) end if if lengde > 1 And lengde < 5 then MsgBox ("Du indtasted: " & Initialer) end if wend
Annonceindlæg fra Novataris
Vejen til devops med Bavarian Nordic
Bavarian Nordics vækst blev starten på et DevOps-samarbejde med Novataris for hurtigt at kunne tilpasse IT-organisation til forretningen.
7. december 2023
09. marts 2007 - 08:48
#1
Hvis du mener betingelse 1, så er det fordi en værdi ikke både kan være mindre end 1 OG større end 4 if lengde < 1 and lengde > 4 then Initialer = InputBox("fejl", "Indtast navn" & Initialer) end if du mener nok ELLER i stedet for if lengde < 1 or lengde > 4 then Initialer = InputBox("fejl", "Indtast navn" & Initialer) end if
09. marts 2007 - 08:49
#2
...og i virkeligheden skal det jo nok være if lengde <= 1 and lengde > 4 then Initialer = InputBox("fejl", "Indtast navn" & Initialer) end if da du ellers ikke vil reagere på værdien 1
09. marts 2007 - 09:00
#4
Jeg kom vist også til at bruge den oprindelige kode med AND i mit opfølgnignsindlæg, prøv dette i stedet: if lengde <= 1 or lengde > 4 then Initialer = InputBox("fejl", "Indtast navn" & Initialer) end if