---

hej jeg har en textbox hvor man kan skrive et password så har jeg et modul
med kode og en knap på formen der starter det hele men jeg kan ikke få det
til at virke kan nogen give et hint til hvordan jeg får det til at virke

jeg har prøvet med denne kode i mit modul
Private Sub pass()
Dim svar
svar = Text1
If svar = "test" Then
MsgBox prompt:="Velkommen"
Else
MsgBox prompt:="Forkert Svar"
End If

End Sub
mvh Henrik C


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13-11-2002

---

Hej...

i linie 3 skriver du svar = text1

der burde nok stå

svar = text1.text

prøv det...

Med venlig hilsen JJ
"Henrik Cichosz" <cichosz@tdcadsl.dk> skrev i en meddelelse
news:3dd6788e$0$94780$edfadb0f@dread15.news.tele.dk...
> hej jeg har en textbox hvor man kan skrive et password så har jeg et modul
> med kode og en knap på formen der starter det hele men jeg kan ikke få det
> til at virke kan nogen give et hint til hvordan jeg får det til at virke
>
> jeg har prøvet med denne kode i mit modul
> Private Sub pass()
> Dim svar
> svar = Text1
> If svar = "test" Then
> MsgBox prompt:="Velkommen"
> Else
> MsgBox prompt:="Forkert Svar"
> End If
>
> End Sub
> mvh Henrik C
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.419 / Virus Database: 235 - Release Date: 13-11-2002
>
>

---

"Jay Jay" <c_j@adslhome.dk> skrev i en meddelelse
news:ar6j2l$2sh$1@sunsite.dk...
> Hej...
>
> i linie 3 skriver du svar = text1
>
> der burde nok stå
>
> svar = text1.text
>
> prøv det...
Hej og tak nu virker det 50% jeg får MsgBox med forkert svar hver gang hvor
er fejlen jeg kan ikke se den det er helt sikkert en lille ting men hvad ??
dine kode er her

Private Sub Command1_Click()
pass
End Sub

koden i modulet

Sub pass()
Dim svar
svar = "Text1.Text"
If svar = "test" Then
MsgBox prompt:="Velkommen"
Else
MsgBox prompt:="Forkert Svar"
End If
End Sub

mvh Henrik C


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.419 / Virus Database: 235 - Release Date: 13-11-2002

---

"Henrik Cichosz" <cichosz@tdcadsl.dk> skrev i en meddelelse
news:3dd74b69$0$15053$edfadb0f@dread14.news.tele.dk...

> Private Sub Command1_Click()
> pass
> End Sub
>
> koden i modulet
>
> Sub pass()
> Dim svar
> svar = "Text1.Text"

svar = Text1.Text

Lær at bruge debuggeren ! Så kan du gå gennem programmet linie for
linie og se værdien af alle variable og dermed finde fejlen. Du
ville have set, at "svar" ikke indeholdt det du havde indtastet.

> If svar = "test" Then
> MsgBox prompt:="Velkommen"
> Else
> MsgBox prompt:="Forkert Svar"
> End If

> mvh Henrik C


--
/\ preben nielsen
\/\ prel@post.tele.dk