A voir également:
- Boutton access
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- Hns-wan-access-port-fwd ✓ - Forum Réseau
- Controller access network - Télécharger - Contrôle parental
- Acer quick access ✓ - Forum Windows
9 réponses
nvaros
Messages postés
141
Date d'inscription
mardi 20 mai 2008
Statut
Membre
Dernière intervention
6 octobre 2009
17
21 juil. 2008 à 11:49
21 juil. 2008 à 11:49
Salut samsan,
Je vois pas l'utilité de faire cela.
Je vois pas l'utilité de faire cela.
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
51
21 juil. 2008 à 11:53
21 juil. 2008 à 11:53
Je ne comprends pas trop non plus.
Peux tu être plus clair et précis stp?
Peux tu être plus clair et précis stp?
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
51
>
samsan
21 juil. 2008 à 12:00
21 juil. 2008 à 12:00
Le problème avec Access c'est qu'à partir du moment ou tu mets à jour un champs, il s'enregistre directement dans la table. Du coup le bouton modifier semble inutile.
nvaros
Messages postés
141
Date d'inscription
mardi 20 mai 2008
Statut
Membre
Dernière intervention
6 octobre 2009
17
>
samsan
21 juil. 2008 à 12:01
21 juil. 2008 à 12:01
Quels sont les champs de ta table USER?
samsan
>
nvaros
Messages postés
141
Date d'inscription
mardi 20 mai 2008
Statut
Membre
Dernière intervention
6 octobre 2009
21 juil. 2008 à 12:13
21 juil. 2008 à 12:13
voila les champs:nom prenom type login et password
voila les champs:nom prenom type login et password
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
51
21 juil. 2008 à 12:08
21 juil. 2008 à 12:08
Il faut faire une requête UPDATE SET je pense.
Nvaros t'expliquera surment plus clairement que moi. J'ai jamais fait d'Update dans Access donc je ne peux pas trop t'aider.
Bonne chance.
Nvaros t'expliquera surment plus clairement que moi. J'ai jamais fait d'Update dans Access donc je ne peux pas trop t'aider.
Bonne chance.
samsan
>
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
21 juil. 2008 à 12:09
21 juil. 2008 à 12:09
c pas grave je sais que c'est update
mais je sais pas comment modifier tous les champs
mais je sais pas comment modifier tous les champs
nvaros
Messages postés
141
Date d'inscription
mardi 20 mai 2008
Statut
Membre
Dernière intervention
6 octobre 2009
17
>
samsan
21 juil. 2008 à 12:14
21 juil. 2008 à 12:14
Moi ce que j'aurais fait c'est un bouton de recherche par rapport à une requête sur le champ que tu veux séléctionner
samsan
>
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
21 juil. 2008 à 12:23
21 juil. 2008 à 12:23
hé tu c sai comment faire un formulaire "login et mot de passe"mais ce qui est plus difficile c un autre formulaire s ouvre selon le type de l utilisateur par exemple si le typ e etait administrateur le formulaire qui s ouvre c "menu 1" si le type etait "limité" le formulaire qui s'ouvre c "menu2" je sais que c trop compliqué mais svp aidez moi!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tu sai comment modifier un enregistrement???????????*
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
51
21 juil. 2008 à 13:37
21 juil. 2008 à 13:37
Tu peux utiliser les filtres pour ouvrir juste les enregistrements que tu veux.
formulaire > propriété > filtre.
Ou alors en vba tu mets "sur click"
if user = type then
stDoName = "formulaire1"
end if
if user = type then
stDoName = "formulaire2"
end if
DoCmd.OpenForm stDocName ...etc
Tu piges le principe?
formulaire > propriété > filtre.
Ou alors en vba tu mets "sur click"
if user = type then
stDoName = "formulaire1"
end if
if user = type then
stDoName = "formulaire2"
end if
DoCmd.OpenForm stDocName ...etc
Tu piges le principe?
samsan
>
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
21 juil. 2008 à 16:07
21 juil. 2008 à 16:07
o merci bien je vais essayer et je tedirai le resultat!!
samsan
>
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
21 juil. 2008 à 16:30
21 juil. 2008 à 16:30
voila le code
Private Sub Commande5_Click()
Me.Requery
Dim sql, LOGIN, PASSWORD As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM USER WHERE LOGIN = \'" & Me.LOGIN & "\' AND PASSEWORD =\'" & Me.PASSEWORD & "\';"
****************Set rs = CurrentDb.OpenRecordset*********************
If Not rs.EOF Then
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "menu"
LOGIN = rs("LOGIN").Value
PASSWORD = rs("PASSWORD").Value
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
l'erreur se trouve dans la ligne ou il y a *************
Private Sub Commande5_Click()
Me.Requery
Dim sql, LOGIN, PASSWORD As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM USER WHERE LOGIN = \'" & Me.LOGIN & "\' AND PASSEWORD =\'" & Me.PASSEWORD & "\';"
****************Set rs = CurrentDb.OpenRecordset*********************
If Not rs.EOF Then
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "menu"
LOGIN = rs("LOGIN").Value
PASSWORD = rs("PASSWORD").Value
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
l'erreur se trouve dans la ligne ou il y a *************
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
51
21 juil. 2008 à 16:38
21 juil. 2008 à 16:38
Au lieu de :
Me.Requery
Dim sql, LOGIN, PASSWORD As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM USER WHERE LOGIN = \'" & Me.LOGIN & "\' AND PASSEWORD =\'" & Me.PASSEWORD & "\';"
****************Set rs = CurrentDb.OpenRecordset*********************
Fais plutôt :
Dim LOGIN, PASSWORD As String
set db = CurrentDb()
SET rs = db.OpenRecordset("SELECT * FROM USER WHERE LOGIN = \'" & Me.LOGIN & "\' AND PASSEWORD =\'" & Me.PASSEWORD & "\';" )
Tes variables de la requête ensuite s'appelle rs!variable.
Teste et dis moi ;)
Me.Requery
Dim sql, LOGIN, PASSWORD As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM USER WHERE LOGIN = \'" & Me.LOGIN & "\' AND PASSEWORD =\'" & Me.PASSEWORD & "\';"
****************Set rs = CurrentDb.OpenRecordset*********************
Fais plutôt :
Dim LOGIN, PASSWORD As String
set db = CurrentDb()
SET rs = db.OpenRecordset("SELECT * FROM USER WHERE LOGIN = \'" & Me.LOGIN & "\' AND PASSEWORD =\'" & Me.PASSEWORD & "\';" )
Tes variables de la requête ensuite s'appelle rs!variable.
Teste et dis moi ;)
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
51
>
samsan
21 juil. 2008 à 16:47
21 juil. 2008 à 16:47
Essaie ta requête dans les création de requete d'Access et après implémante la dans le VBA.
A coup sur y'a une erreur de \ ou de " ou de '. C'est chiant le SQL c'est assez strict.
De plus si tu pouvais me donner ce que t'affiche l'erreur et pas seulement la ligne.
A coup sur y'a une erreur de \ ou de " ou de '. C'est chiant le SQL c'est assez strict.
De plus si tu pouvais me donner ce que t'affiche l'erreur et pas seulement la ligne.
voila le code entier
Private Sub Commande5_Click()
Dim LOGIN, PASSWORD As String
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM USER WHERE LOGIN = \'" & Me.LOGIN & "\' AND PASSEWORD =\'" & Me.PASSEWORD & "\';")
If Not rs.EOF Then
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "menu"
LOGIN = rs("LOGIN").Value
PASSWORD = rs("PASSWORD").Value
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
Private Sub Commande5_Click()
Dim LOGIN, PASSWORD As String
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM USER WHERE LOGIN = \'" & Me.LOGIN & "\' AND PASSEWORD =\'" & Me.PASSEWORD & "\';")
If Not rs.EOF Then
DoCmd.OpenForm "menu", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "menu"
LOGIN = rs("LOGIN").Value
PASSWORD = rs("PASSWORD").Value
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
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
51
21 juil. 2008 à 16:53
21 juil. 2008 à 16:53
Y'a une erreur là déja. C'est pas rs.EOF mais rs!EOF.
De plus met des msgbox au début pour tester si tu as bien des valeur dans Me.PASSEWORD et l'autre.
Dans la requête il me semble que les \' ne soit pas utile donc teste en enlevant ça aussi.
Tu ne m'as pas dit l'erreur en elle même (ce que la petite boite de dialogue affiche avant de debogage).
Je suis désolé j'ai pas trop trop de temps aujourd'hui sinon j'aurais plus appronfondit.
Teste tout ça et dis moi ce qui marche/marche pas.
De plus met des msgbox au début pour tester si tu as bien des valeur dans Me.PASSEWORD et l'autre.
Dans la requête il me semble que les \' ne soit pas utile donc teste en enlevant ça aussi.
Tu ne m'as pas dit l'erreur en elle même (ce que la petite boite de dialogue affiche avant de debogage).
Je suis désolé j'ai pas trop trop de temps aujourd'hui sinon j'aurais plus appronfondit.
Teste tout ça et dis moi ce qui marche/marche pas.
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
51
>
samsan
21 juil. 2008 à 17:00
21 juil. 2008 à 17:00
Je pense que les .VALUE sont inutile aussi. A tester.
Dans la requête il me semble que les \' ne soit pas utile donc teste en enlevant ça aussi.
Tu ne m'as pas dit l'erreur en elle même (ce que la petite boite de dialogue affiche avant de debogage).
Je suis désolé j'ai pas trop trop de temps aujourd'hui sinon j'aurais plus appronfondit.
Au pire met des msgbox au début pour tester si tu as bien des valeur dans Me.PASSEWORD et l'autre.
Teste tout ça et dis moi ce qui marche/marche pas
Dans la requête il me semble que les \' ne soit pas utile donc teste en enlevant ça aussi.
Tu ne m'as pas dit l'erreur en elle même (ce que la petite boite de dialogue affiche avant de debogage).
Je suis désolé j'ai pas trop trop de temps aujourd'hui sinon j'aurais plus appronfondit.
Au pire met des msgbox au début pour tester si tu as bien des valeur dans Me.PASSEWORD et l'autre.
Teste tout ça et dis moi ce qui marche/marche pas
sanae
>
CaPiT
Messages postés
609
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
21 avril 2010
23 juil. 2008 à 10:38
23 juil. 2008 à 10:38
bonjour capit pourra tu m aider a corriger un code vba???
merci
merci
21 juil. 2008 à 12:47