Aide sur VBA
Résolu
Manshiz
Messages postés
184
Date d'inscription
Statut
Membre
Dernière intervention
-
Manshiz Messages postés 184 Date d'inscription Statut Membre Dernière intervention -
Manshiz Messages postés 184 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai créé une base de données avec un formulaire Login-Password (champs texte) dont je présente le code:
Private Sub cmdOK_Click()
Me.Requery
Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM Utilisateurs WHERE Login = '" & Me.Login & "' AND Password ='" & Me.Password & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "Interne", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "La Gondolière"
User_id = rs("Login").Value
User_groupe = rs("Groupe").Value
Else
MsgBox "Identifiant ou mot de passe incorrect", vbOKOnly, "La Gondolière"
i = i + 1
End If
If i = 5 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés!", vbOKOnly, "La Gondolière"
DoCmd.Quit
End If
End Sub
J'ai trouvé ce code sur le web; le problème maintenant (vu que je ne suis pas un expert), c'est qu'il doit ouvrir le formulaire Interne, qui lui contient juste une liste déroulante qui se nomme cboCurrentEmployee, celle-ci est pour l'instant indispensable pour la suite des opérations. Bien entendu elle contient les noms complets basés sur une requête.
Pourriez-vous m'aider à completer le code?
Une autre question:
J'ai deux tables liées, Inventaire et Détails commande. Inventaire contient un champ nommé Quantité et Détails commandes Retour(que j'ai rajouter, vu qu'il y a déjà le champ Quantité).
Inventaire.Quantité servant au stock, Détails commandes.Retour servant pour le calcul des ventes.
Comment, à partir du champ Quantité, ajouter automatiquement le même nombre au champ Retour, qui correspond à la commande et au produit sélectionné.
J'éspère que c'est compréhensible et vous remercie par avance pour votre aide.
J'ai créé une base de données avec un formulaire Login-Password (champs texte) dont je présente le code:
Private Sub cmdOK_Click()
Me.Requery
Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM Utilisateurs WHERE Login = '" & Me.Login & "' AND Password ='" & Me.Password & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "Interne", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "La Gondolière"
User_id = rs("Login").Value
User_groupe = rs("Groupe").Value
Else
MsgBox "Identifiant ou mot de passe incorrect", vbOKOnly, "La Gondolière"
i = i + 1
End If
If i = 5 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés!", vbOKOnly, "La Gondolière"
DoCmd.Quit
End If
End Sub
J'ai trouvé ce code sur le web; le problème maintenant (vu que je ne suis pas un expert), c'est qu'il doit ouvrir le formulaire Interne, qui lui contient juste une liste déroulante qui se nomme cboCurrentEmployee, celle-ci est pour l'instant indispensable pour la suite des opérations. Bien entendu elle contient les noms complets basés sur une requête.
Pourriez-vous m'aider à completer le code?
Une autre question:
J'ai deux tables liées, Inventaire et Détails commande. Inventaire contient un champ nommé Quantité et Détails commandes Retour(que j'ai rajouter, vu qu'il y a déjà le champ Quantité).
Inventaire.Quantité servant au stock, Détails commandes.Retour servant pour le calcul des ventes.
Comment, à partir du champ Quantité, ajouter automatiquement le même nombre au champ Retour, qui correspond à la commande et au produit sélectionné.
J'éspère que c'est compréhensible et vous remercie par avance pour votre aide.
