Aide

Résolu

cs_yabross Messages postés 57 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 23 juin 2016 - 18 mars 2009 à 17:14
cs_yabross Messages postés 57 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 23 juin 2016 - 19 mars 2009 à 10:01

slt tout monde, je suis debutant, aidez moi corrigé ce code pour qu'il puisse fonctionner en VBA, je l'ais copier sur le net, et je l'ais modifier un peu pour mon application en VBA merci, <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><meta name="ProgId" content="Word.Document" /><meta name="Generator" content="Microsoft Word 11" /><meta name="Originator" content="Microsoft Word 11" /><link rel="File-List" href="file:///C:%5CDOCUME%7E1%5Cvisiteur%5CLOCALS%7E1%5CTemp%5Cmsohtml1%5C01%5Cclip_filelist.xml" /><style></style>

Private Sub
CommandButton1_Click()

Dim t As
String

Dim M As
String

Dim C As
String

Dim MP As
String

'Choisir un nom d' utilisateur

C$ = "yabross"                                    'ou le nom de votre choix

'Choisir un mot de passe

MP$ = "abg" 'ou le nom de
votre choix

'Contrôler si le nom de
l’utilisateur est correct

If TextBox1.Text <> C$ Then GoTo Sortir           ' Si erreur
renvoyer vers l’étiquette Sortir

'Sélectionner le mot de passe

If TextBox2.Text = "" Then               'si
l'utilisateur n’a rien saisie, alors...erreur et sortie

t$ = "Attention!"

M$ = "Vous devez saisir un mot de passe!"

Reponse% = MsgBox(M$, 0 + 32, t$)

TextBox2.SetFocus

Exit Sub

End If

'je test le mot de passe

If TextBox2.Text <> MP$ Then 'Si
le mot de passe n’est pas correct, alors...

t$ = "Attention!"

M$ = "Vous n' êtes pas autorisé(e) à utiliser cette
Base de Donnée!"

Reponse% = MsgBox(M$, 0 + 16, t$)

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.SetFocus

Else

t$ = "Félicitations!"

M$ = "Vous êtes autorisé(e) à utiliser cette Base de
Donnée!"

Reponse% =
MsgBox(M$, 0 + 64, t$)

Unload Me

Exit Sub

End If

Exit Sub

'Etiquette de renvoie

Sortir:

TextBox1.Text = ""

t$ = "Attention!"

M$ = "Code utilisateur incorrect! désolé !"

Reponse% = MsgBox(M$, 0 + 32, t$)

TextBox1.SetFocus

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

8 réponses

Réponse 1 / 8

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
18 mars 2009 à 17:51

Salut
Et quel est ton problème ?
Je ne vois rien d'incompatible avec VBA
De toute façon, si tu as une erreur, il faudrait nous dire où

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Réponse 2 / 8

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
19 mars 2009 à 00:47

Mais de rien
Mais de rien
Mais de rien
Mais de rien
Mais de rien
Il te suffit de dimensionné ta variable avant de l'utiliser, comme les autres.
Le symbole % à la fin de ta variable veut dire qu'il s'agit d'un Entier
Dim Reponse As Integer
Tu colles ce Dim dans la partie Déclarations, tout en haut de la page de code

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Réponse 3 / 8

cs_yabross Messages postés 57 Date d'inscription mercredi 23 juillet 2008 Statut Membre Dernière intervention 23 juin 2016
18 mars 2009 à 18:17