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

3 réponses

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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
    1. badr
       
      deja declarer la variable de connection + de la table
      0
    2. 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
    3. lermite222 Messages postés 9042 Statut Contributeur 1 199 > badr
       
      Ah, désolé, ma boule de cristal est cassée.
      0
    4. badr > lermite222 Messages postés 9042 Statut Contributeur
       
      alors
      0
    5. lermite222 Messages postés 9042 Statut Contributeur 1 199 > 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
  2. gizo
     
    ta oublié un "end if"avant la fin du programme
    0
    1. badr
       
      tu peut me donne le code complet s'il te plait
      0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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
    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
      0