erreur code vba Résolu

Question

Bonjour,
j ai ecrit un code vba mais il me donne une erreur lors de l execution est ce que vous pouvvez maider a la corriger???
merci d avance

CIAnure · Answer

Très futile ton Post si tu nous donne pas les lignes de code VBA qui font l'erreur.

Merci de nous expliquer les erreurs et ce que désire faire, enfin si tu veut de l'aide. Amicalement CIAnure

sanae · Answer

voila mon code
Private Sub Commande4_Click()


Static i As Byte
Dim bd As Database
Dim rs As Recordset
Set db = CurrentDb
 
*****Set rs = bd.OpenRecordset("SELECT [LOGIN],[PASSWORD] FROM USER WHERE LOGIN = '" & Me.LOGIN & "' AND [PASSWORD]='" & Me.PASSWORD & "';")
If Not rs.EOF Then
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "Formulaire1"
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
Me.Requery
End Sub
    l erreure se trouve ou il y a des *****
ce code sert a securiser une bdd (login et mot de passe) 
si tu vex plus d informations pas de prb

sanae · Answer

le priblema est partiellement réglé mais il ya ncore une erreur das la ligne
Me.Requery 
merci

Amine-sys · Answer

Si tu veux des exemples de ce que tu viens de faire, envoyer moi une adresse mail , je vais t'envoyer des doc et exemple.
Bonne chance

sanae · Answer

ok je t ai deja envoyé mon adresse dans le forum programmation

Amine-sys · Answer

Meziane!!!!

Amine-sys · Answer

Tu m'a demander qoui? si tu veut des exemples de programmes complet envoyer moi un mail

sanae · Answer

si le type =administrateur le formulaire  "menu"se lance si le type= "limité" le formulaire menu1 se lance

Amine-sys · Answer

Private Sub CmdAnnuler_Click() End End Sub Private Sub CmdEntrer_Click() If TxtMatric = "" Then MsgBox "Saisir un utilisateur ! ", vbExclamation, " Prolème Connexion" Else DtaUtilisateur.Refresh DtaUtilisateur.Recordset.Find "Matric ='" & TxtMatric.Text & "'" If DtaUtilisateur.Recordset.EOF Then MsgBox "utilisateur non autorisé ! ", vbCritical, " Prolème Connexion" DtaUtilisateur.Recordset.MoveFirst Else If DtaUtilisateur.Recordset!MotDePasse = TxtMotDePasse Then If TxtCNewMotDePasse.Text <> TxtNewMotDePasse.Text Then MsgBox "confirmation du mot de passe incorrecte ! ", vbExclamation, " Prolème Connexion" TxtCNewMotDePasse.Text = "" TxtCNewMotDePasse.SetFocus Else MsgBox " Connection réussie ", , "Connexion" DtaUtilisateur.Recordset!MotDePasse = TxtNewMotDePasse.Text If TxtNewMotDePasse.Text <> "" Then DtaUtilisateur.Recordset.Update End If FrmSign.Hide FrmMenuGeneral.Show FrmMenuGeneral.LMatric = DtaUtilisateur.Recordset!Matric End If Else MsgBox "utilisateur ou mot de passe incorrect ! ", vbExclamation, " Prolème Connexion" TxtNewMotDePasse.Text = "" TxtCNewMotDePasse.Text = "" End If End If End If End Sub

Amine-sys · Answer

Sifte lia mail dialek oulla chi mail temporaire malek mafik ti9a

sanae · Answer

men sba7 o ana kansefto lik o makaybriwch les messages imchiw wellah

Amine-sys · Answer

Je travaille je suis ingénieur, je vais t'envoyer beacoups d'exemples ce soir. tu vas les retrouvez demains dans ta boite ok.

Tu est étudiante toi?

Amine-sys · Answer

Quelle est ta ville?

Amine-sys · Answer

C'est le nom d'une table au niveau  de la base . Tu va retrouver tous l'exemple dans ta boite demain y compris la base

sanae · Answer

tu peux pas m aider mnt a modifier dans ce code par ce que j pas bien compris 
stp c urgent

Amine-sys · Answer

Malheuresement daba non car j'ai tous ça à la maison je vais faire mon possible dés que quitte mon travail à 16:30h. je vais t'envoyer ça vers 17:00h ok.

Amine-sys · Answer

D'accord je vais faire de mon mieux, A tu un numéro de tél si cela te dérrange pas bien sûr. ja vais essayer de te rappeller dés l'envoi des exemples

sanae · Answer

ok merci  mon num je te le donerai si tu peux te connecter mnt a msn pcq je px pas te le donner dans le forum ca va etre diffusé
tu me comprend??

amine-sys · Answer

je t'ai envoyé les doc et exemples comme promis

sanae · Answer

slt j ai recu les document merci
mais moi je travaille avec vba dans access 2003  on est débutantes en vba si on peux te donner des informations sur la base de données et  tu nous aide a réaliser le code (si tu maitrise vba)
merci

Amine-sys · Answer

Consultez ta boite mail

Amine-sys · Answer

Envoyez moi le code sur mon mail ok

sanae · Answer

non je te l envoie mnt sur le forum ok??

Amine-sys · Answer

Sur mon mail j'ai plus accés au forum. Tu me comprend j'éspère

sanae · Answer

mais comment tu me répond mnt??

Amine-sys · Answer

Je travaille je peux pas accéder au Forum toute la journnée ok

sanae · Answer

d accord mais tu vas me répondre le plus vite possible stp pcq ca doit etre une petite erreur merci
je te l envoie mnt

sanae · Answer

le voila
Private Sub Commande4_Click()
Static i As Byte
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT [LOGIN],[PASSWORD] FROM USER WHERE LOGIN = '" & Me.LOGIN & "' AND [PASSWORD]='" & Me.PASSWORD & "';")
If Not rs.EOF Then
If User = "administrateur" Then
stDoName = "menu1"
DoCmd.OpenForm "menu1", acNormal, , , , acWindowNormal
End If
If User = "limité" Then
stDoName = "menu"
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
End If
DoCmd.Close acForm, "Formulaire1"
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If

End Sub

sanae · Answer

non pas l'erreur de l autre fois 
et oui biens sur je suis en bts gi meis je n ai jamais etudié vba et j ai arriver a réaliser plusieurs choses compris??

theMan · Answer

Afficher la variable "USER" et voir ce qu'il y' a de dans. supprimer le "é" de :   "limité"

sanae · Answer

ok

theMan · Answer

Tu dit que les deux formulaires se lancent tous les deux:

Ton message:
mais quand j'execute les deux formulaires se lancent les deux a la fois quelque soit le type de user il parait qu il ya une erreur est ce que je peux t envoie le code et m aider a le corriger??

Maintenant tu me dit qu'aucun de tes formulaires ne se lance!!! Bon est ce que ta variable cotient d'abord "administrateur"  et "limie" ? est ce que tu l'a affiché ?

sanae · Answer

le probléme n est pas dans les variables je crois le probléme réside dans ces lignes  
DoCmd.OpenForm "menu1", acNormal, , , , acWindowNormal 
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal 
je ne sais pas exactement ou les pllacer
car quand je les mis aprés les if les 2 formulaires se lancent et qund je les place dans if ils ne se lancent pas c ca le prb

theMan · Answer

Aprés les if les deux formulaires se lancent : c'est à dire tes lignes sont correctes le problème donc c'est au niveau de ton test:  Afficher la variable user et voir s'elle prend bien les valeurs "administrateur" et "limite"

Ton test ça marche pas,

theMan · Answer

Faites ceci:

MsgBox (User ) /////Pour voir le contenu de ta variable d'abord:


If User = "administrateur"  then 

menu1.Show
menu.Hide

Else 

menu1.Hide
menu.Show

End if

theMan · Answer

Donc ta variable "USER" mafiha walou hadchi li gelna lik.  choufi fine jebti hadik la variable.

sanae · Answer

hadik la variable rah c'est un champs de la table tu vois???ma3raft mandir 3ta9ni rah mab9a walo khassni nkaml l'application
chokran

theMan · Answer

wach kayna m3a "LOGIN" et "PASSWORD" f la même table?

sanae · Answer

oui f la meme table

theMan · Answer

Donc au niveau de cette ligne il faut récupérer aussi la variable "USER"
Set rs = db.OpenRecordset("SELECT [LOGIN],[PASSWORD] FROM USER WHERE LOGIN = '" & Me.LOGIN & "' AND [PASSWORD]='" & Me.PASSWORD & "';") 

C'est à dire :
select login, password, user into :login-loc , :password-loc, :user-loc where login = me.login and password = Me.password.

"Choufi ntia la syntaxe de la requette ok"

login-loc, password-loc et user-loc sont des variables locales à déclarer (dim login-loc.....par exemple) pour stocker les info issus de la base ensuite:

Afficher "user-loc "  (Msgbox(user-loc )) chofi achnou fiha 3ad diri les tests.

si  user-loc  = "administrateur"
ouvrir menu1

sinon 

ouvrir menu

endif


Hani 3ta9tek wakha ntia 3yana m3a rassek gelna lik sifti hadakchi dialek f mail mabritich (c'est: amine-sys).
Bon thlay o bslama 3lik

theMan · Answer

ça marche ?

samsan · Answer

nn
makhadmatch ba9i le meme prb ma3raftch chno ndir bach yat7al l formulaire selon user
ila can user=administrateur yat7l  l menu1 sinon yat7al menu
Private Sub Commande8_Click()
Static i As Byte
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT [LOGIN],[PASSWORD],[USER] FROM USERS WHERE LOGIN = '" & Me.LOGIN & "' AND [PASSWORD]='" & Me.PASSWORD & "';")
If Not rs.EOF Then
If User = "administrateur" Then
stDoName = "menu1"
End If
DoCmd.OpenForm "menu1", acNormal, , , , acWindowNormal
If User = "limite" Then
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
stDoName = "menu"
End If
DoCmd.Close acForm, "accés"
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If

End Sub
chouf ila banlak chi erreur

theMan · Answer

Faire ceci:

Private Sub Commande8_Click() 
Static i As Byte 
Dim rs As Recordset
********Ajouter ceci*************************
Dim user AS String
*********************************** 
Set db = CurrentDb 
Set rs = db.OpenRecordset("SELECT [LOGIN],[PASSWORD],[USER] FROM USERS WHERE LOGIN = '" & Me.LOGIN & "' AND [PASSWORD]='" & Me.PASSWORD & "';") 
If Not rs.EOF Then
          **************************************************
           ****Récupérer le user et l'afficher**************
           user = rs("USER")
           ************Gouli lia wach hwa hadak le user ou pas******
           MsgBox(user) 
	   If User = "administrateur" Then 
              stDoName = "menu1"
              DoCmd.OpenForm "menu1", acNormal, , , , acWindowNormal 
           End If 
           If User = "limite" Then 
                  DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal 
                  stDoName = "menu" 
                  DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal 
           End If 
      DoCmd.Close acForm, "accés" 
Else 
     MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion" 
     i = i + 1 
End If 
If i = 3 Then 
     MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical 
     DoCmd.Quit 
End If 

End Sub

Erreur code vba

43 réponses

Discussions similaires

Newsletters