|
| Hvad gør jeg galt her?!?!?!?!? Fra : Kutaiso | Vist : 574 gange 20 point Dato : 17-03-04 07:54 |
|
Er igang med at forsøge mig med at arbejde videre på et login system som jeg læste om her på siden, men kan ikke få det til at virke efter hensigten? her er koden indtil videre:
_____________________________________________________________________________________________________
Private Sub cmdlogin_Click()
If txtbrugernavn = "test" Or "davs" And txtpassword = "Gilbert" Or "lars" Then
MsgBox ("Du er nu logget ind")
Else
MsgBox ("Du har skrevet forkert brugernavn eller adgangskode")
If "Type mismatch" Then
MsgBox ("Der er sket en fejl i programmet, du har nok udfyldt noget forkert")
End If
End Sub
_____________________________________________________________________________________________________
På forhånd tak for hjælpen
| |
| Kommentar Fra : KooL |
Dato : 17-03-04 10:29 |
|
Hej Kutaiso
Jeg er rigmelig newbee i vb, og jeg ved jo ikke hvilke elementer du har.
Men har du et sted hvor du giver variablen "txtbrugernavn" en verdi?
kunne gøres med en inputbox feks:
Kode Private Sub cmdlogin_Click()
txtbrugernavn = inputbox ("intast bruger navn")
txtppassword = inputbox ("intast password")
If txtbrugernavn = "test" Or "davs" And txtpassword = "Gilbert" Or "lars" Then
MsgBox "Du er nu logget ind"
Else
MsgBox "Du har skrevet forkert brugernavn eller adgangskode"
If "Type mismatch" Then
MsgBox "Der er sket en fejl i programmet, du har nok udfyldt noget forkert"
End If
End Sub |
Jeg antager at du har erklæret dine variabler (eller kører uden option explicit - fy! :P)
Jeg mener at MsgBox funktionen skal udføres uden parenteser.
Håber der var noget der duede.
Mvh KoL
| |
| Kommentar Fra : poul_from |
Dato : 17-03-04 10:34 |
|
mit forslag prøv dette istedet
Private Sub cmdlogin_Click()
If ((txtbrugernavn = "test") Or (txtbrugernavn = "davs") )And ((txtpassword = "Gilbert" )Or (txtpassword = "lars" ))Then
MsgBox ("Du er nu logget ind")
Else
MsgBox ("Du har skrevet forkert brugernavn eller adgangskode")
If "Type mismatch" Then
MsgBox ("Der er sket en fejl i programmet, du har nok udfyldt noget forkert")
End If End Sub
| |
| Kommentar Fra : Kutaiso |
Dato : 20-03-04 08:47 |
|
Tusind tak for hjælpen (= rart blive klogere!
MANGE TAK!!!
| |
| Godkendelse af svar Fra : Kutaiso |
Dato : 20-03-04 08:48 |
| | |
| Du har følgende muligheder | |
|
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.
Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
| |
|
|