Application dans vb6

badr -  
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
Configuration: Windows XP
Internet Explorer 6.0

3 réponses

  1.  lermite222 Contributeur
    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+
    1. badr
      deja declarer la variable de connection + de la table
    2. badr
      @badren module la declaration
      Public b As New Connection
      Public d As Recordset

      en mdiform
      b.Open "file name=" & App.Path & "\c.udl"
    3. lermite222 Contributeur
      @badrAh, désolé, ma boule de cristal est cassée.
    5.  lermite222 Contributeur
      @badrMa 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 ?
  2. gizo
    ta oublié un "end if"avant la fin du programme
    1. badr
      tu peut me donne le code complet s'il te plait
  3. lermite222 Contributeur
    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+
    1. 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