Application dans vb6

badr -  
 lionel curtis ndangi -
Bonjour,
Besoin d'un aide
j'ai une application sur vb6
ce code de la form utilisateur(utilisateur"combobox", motpasse"zonetext" , type"combobox")
il me donne erreur



Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "veuillez saisir le mot de passe", vbInformation, "attention"
Text1.SetFocus
Else
If cn >= 2 Then End
If Combo1 = "" Then
MsgBox "Utilisateur incorrecte", vbInformation, "attention"
Text1.SetFocus
If UCase(Text2) = "123" Then
Unload utilisateur
Load Menu
Menu.Show
Else
MsgBox "mot de passe incorrect", vbCritical, "attention"
utilisateur.Show
Text1 = ""
Text1.SetFocus
i = i + 1
End If
End If

End Sub

3 réponses

Réponse 1 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour,
Et où est la saisie du mot de passe ?
Faudrait voir avec un InputBox si ça irai pas mieux :-)
ensuite, ont fait pas un load avant un Show, Show suffit.
A+
0
badr
 
deja declarer la variable de connection + de la table
0
badr > badr
 
en module la declaration
Public b As New Connection
Public d As Recordset

en mdiform
b.Open "file name=" & App.Path & "\c.udl"
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191 > badr
 
Ah, désolé, ma boule de cristal est cassée.
0
badr > lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention  
 
alors
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191 > badr
 
Ma boule de cristal est toujour cassée... :-) 
MsgBox "veuillez saisir le mot de passe", vbInformation, "attention"

C'est avec ça que tu veux saisir le mot de passe ?
0
Réponse 2 / 3
gizo
 
ta oublié un "end if"avant la fin du programme
0
badr
 
tu peut me donne le code complet s'il te plait
0
Réponse 3 / 3
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Heuuu, j'ai enfin compris que le code est entrer dans le textBox :-D

Voilà le code comme je le ferais, juste que je vois pas ce que le Combo vient faire là dedans ?
Dim cn As Integer
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "veuillez saisir le mot de passe", vbInformation, "attention"
Text1.SetFocus
Else
If cn >= 2 Then End
If Combo1 = "" Then '??
MsgBox "Utilisateur incorrecte", vbInformation, "attention"
Text1.SetFocus
ElseIf UCase(Text2) = "123" Then
Menu.Show
Unload utilisateur
Else
MsgBox "mot de passe incorrect", vbCritical, "attention"
Text1 = ""
cn = cn + 1
Text1.SetFocus
End If
End If

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'Valider également par ENTER
If KeyAscii = 13 Then
Command1_Click
End If
End Sub
Tu dit...
A+
0
lionel curtis ndangi
 
fais ceci:
if ucase(text1)="nom d'utilisateur" and ucase(text2)="mot de passe" then
unload me
formulaire.show
else
msgbox("mot de passe incorrect"),vbcritical
text1=""
text2=""
text1.setfocus
endif
0

Discussions similaires

A quoi sert l'application Bonjour?
patrick -
Ysis -

4 réponses