07. februar 2001 - 08:57Der er
5 kommentarer og 1 løsning
msgbox
Køres nedenstående script, for man en inputbox hvor der skal tastes et password. taster man forkert kan man forsøge igen.
Det jeg vil er at såfremt man ikke gider forsøge mere og trykker på cancel skal den køre kommandoen DOCMD.QUIT.
hvordan...??? Jeg har forsøgt at lege lidt med vbokcancel men kan ikke få det til at virke.
Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize Detail.Visible = False Dim password, pw password = \"nsc\"
While pw <> password pw = InputBox(\"indtast dit password...\", \"Nordisk Solar Compagni A/S\") If pw <> password Then MsgBox (\"forkert password...\")
Der står i vb helpen at : ************************** If the user clicks OK or presses ENTER, the InputBox function returns whatever is in the text box. If the user clicks Cancel, the function returns a zero-length string (\"\").
Altså må du kunne lave et tjeck på dette sådan her :
Do While pw <> password pw = InputBox(\"indtast dit password...\", \"Nordisk Solar Compagni A/S\") If pw = \"\" then DOCMD.QUIT Exit DO ELSE if pw <> password Then MsgBox (\"forkert password...\") then Loop Detail.Visible = True End Sub
ARghhh det kan man da heller ikke : prøv lige en gang
Do While true pw = InputBox(\"indtast dit password...\", \"Nordisk Solar Compagni A/S\") If pw = \"\" then DOCMD.QUIT Exit DO ELSE if pw <> password Then MsgBox (\"forkert password...\") then else EXIT DO end if end if Loop Detail.Visible = True End Sub
Do While true pw = InputBox(\"indtast dit password...\", \"Nordisk Solar Compagni A/S\") If pw = \"\" then Exit DO ELSE if pw = password Then Exit DO else MsgBox (\"forkert password...\") end if end if Loop if pw = \"\" then DOCMD.QUIT end if Detail.Visible = True End Sub
Ja, det undrede mig også ret meget....!At det kan være lavet så \'kikset\' Men VB regner nok med at hvis man ikke skriver noget, er det det samme som at trykke cancel.....?!!!
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
