| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
mercany
Anmeldungsdatum: 04.10.2005
Beiträge: 33
Wohnort: Bielefeld (NRW)
|
 Verfasst am: 21. Okt 2005 23:43 Titel: VBA - Account Abfrage erstellen |
 |
|
Guten Abend alle zusammen!
Ich hab noch ein kleines Problem mit VBA und Schleifen:
Folgendes soll gemacht werden:
Zwei Spalten, eins für den Benutzernamen, eins für das Passwort.
Ich pack also einen Button rein, der das ganze startet. Die Eingabe funktioniert soweit auch! (Hatte mir TMSearcher ja freundlicherweise schon in Verbindung mit einem anderen Prob erklärt)
Nun brauche ich einen zweiten Button.
Wenn ich auf diesen Drücke soll eine Abfrage von Benutzername und Passwort erscheinen.
Nach dem ich beides eigegeben habe, soll er überprüfen, ob der Benutzername in der ersten Spalte der Excel-Tabelle vorkommt. Wenn er ihn gefunden hat, soll er überprüfen ob das eingebene Passwort mit dem Passwort in der Excel-Tabelle übereinstimmt. Falls nicht, soll er eine erneute Abfrage der Daten starten. Dies soll er aber maximal 3 mal machen, danach soll er eine Fehlermeldung rausschmeissen. Gelingt die Eingabe, soll er eine MsgBox mit Statusmeldung anzeigen.
Leider scheint das Ganze bei mir nicht zu funktionieren, da ich wie ich glaube, das Prinzip noch nicht ganz so durchdacht habe 
Ich hänge mal an, was ich bis jetzt bereits gecodet habe.... das ist wohl das einfachste!
Vielen vielen Dank!
mercany
_________________
"Dummheiten sind nie überflüssig" |
|
| Nach oben |
|
 |
|
|
TMSearcher
Anmeldungsdatum: 19.05.2005
Beiträge: 270
Wohnort: Bremen
|
| Verfasst am: 23. Okt 2005 22:45 Titel: |
|
|
Hi,
| mercany hat Folgendes geschrieben: | | da ich wie ich glaube, das Prinzip noch nicht ganz so durchdacht habe |
Stimmt 
Du hast leider mehrere Fehler drin: Syntax- und Logikfehler.
Kleiner Tip:
1. do muss mit loop beendet werden
2. mit exit do kannst du diese Schleife verlassen
3. du musst eine Variable die bis drei zählt ausserhalb deiner Button_click Funktion deklarieren, ansonsten wird das nichts.
Mach dir doch einen Programmablaufplan um Logikfehler zu vermeiden.
Viel Spaß noch 
Bis denn..
TMS
_________________
Intelligent life is so very rare,
the rarest thing in creation
and the most precious
This is Earth Calling.. |
|
| Nach oben |
|
|
mercany
Anmeldungsdatum: 04.10.2005
Beiträge: 33
Wohnort: Bielefeld (NRW)
|
| Verfasst am: 24. Okt 2005 19:57 Titel: |
|
|
Huhu!
Ja, man merkt, dass ich da noch nicht so den Überblick habe.
Aber wie soll ich ihn halt anders lernen, als durch ausprobiere! 
Da ich aber noch ein par ernste Verständnisschwierigkeiten habe, frage ich lieber nochml genauer nach:
Also zu Tip2: Mir ist nicht ganz klar, wo ich da genau exit do hinpacken muss?
Zu Tip3: Das verstehe ich überhaupt nicht, sorry!
Viel Dank nochmal!
mercany
PS: Das andere Prog läuft soweit.....
_________________
"Dummheiten sind nie überflüssig" |
|
| Nach oben |
|
|
mercany
Anmeldungsdatum: 04.10.2005
Beiträge: 33
Wohnort: Bielefeld (NRW)
|
| Verfasst am: 24. Okt 2005 21:05 Titel: |
|
|
So, ich hab das Problem gelöst!
Unglaublich aber war.... auch wenns mit na kleinen Hilfe war. Das wichtigste für mich ist, dass ich das Prinzip jetzt besser verstanden habe.
Also, so hab ichs gelöst!
| Code: |
Dim i, x As Integer
Private Sub cmd_ok1_Click()
If txt_benutzereingabe.Text = "" Then
txt_benutzereingabe.SetFocus
Exit Sub
End If
If x = 2 Then
MsgBox "Sorry, aber das Passwort wurde 3 mal falsch eingegeben"
Unload frm_eingabe
Else
For i = 3 To 10 Step 1
If txt_benutzereingabe.Text = Range("A" & i) Then
If txt_passworteingabe.Text = Range("B" & i) Then
MsgBox "Sie wurden gerade mit dem Namen " & txt_benutzereingabe.Text & " eingeloggt!"
Unload frm_eingabe
Else
MsgBox "Dieses Passwort ist leider falsch!"
txt_passworteingabe.Text = ""
txt_passworteingabe.SetFocus
x = x + 1
End If
End If
Next i
End If
End Sub
|
Gruß, mercany
_________________
"Dummheiten sind nie überflüssig" |
|
| Nach oben |
|
|
TMSearcher
Anmeldungsdatum: 19.05.2005
Beiträge: 270
Wohnort: Bremen
|
| Verfasst am: 24. Okt 2005 22:13 Titel: |
|
|
Halt uns auf dem laufenden.
Gruß
TMS
PS.: die Tipps sollten auch nur Denkanstöße sein.
_________________
Intelligent life is so very rare,
the rarest thing in creation
and the most precious
This is Earth Calling.. |
|
| Nach oben |
|
|
mercany
Anmeldungsdatum: 04.10.2005
Beiträge: 33
Wohnort: Bielefeld (NRW)
|
| Verfasst am: 24. Okt 2005 22:58 Titel: |
|
|
Werd ich machen!
An dieser Stelle nochmal einen ganz lieben Dank an dich für die super tolle Hilfe die du mir gegeben hast.
Soeinen bräuchte man in seiner ICQ-Liste
Liebe Grüße, mercany
_________________
"Dummheiten sind nie überflüssig" |
|
| Nach oben |
|
|
TMSearcher
Anmeldungsdatum: 19.05.2005
Beiträge: 270
Wohnort: Bremen
|
| Verfasst am: 24. Okt 2005 23:55 Titel: |
|
|
THX
_________________
Intelligent life is so very rare,
the rarest thing in creation
and the most precious
This is Earth Calling.. |
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
