Boutton access

Fermé
samsan - 21 juil. 2008 à 11:40
 sanae - 23 juil. 2008 à 10:38
Bonjour,
j ai créer un formulaire sous access et j ai ajoutter un boutton de commande je veux modifier un enregistrement en cliquant sur ce boutton
merci pou votre aide

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
Salut samsan,

Je vois pas l'utilité de faire cela.
0
nvaros j ai quelques question pour le code que tu m a donner l autre fois est ce que tu peut m aider???
0
pourquoi je crois c'est tres utile pour moi !!!
0
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
Je ne comprends pas trop non plus.

Peux tu être plus clair et précis stp?
0
j'ai crée un formulaire a partir d'une table "user" et on a crée dans ce formulaire un boutton "modifier" et cliquant sur ce boutton on veut qu'un enregistrement qu'on choisi soit modifié par les nouvelles valeurs qu'on saisie c clair mnt!
0
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
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.
0
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
Quels sont les champs de ta table USER?
0
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
voila les champs:nom prenom type login et password
0
slt capit j ai ecrit un code pour le login et le mot de passe mais il apparait qu il y a une erreure est ce que tu peux m aider a la corriger
0
voila les champs:nom prenom type login et password
0
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
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.
0
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
c pas grave je sais que c'est update
mais je sais pas comment modifier tous les champs
0
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
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
0
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
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!
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
tu sai comment modifier un enregistrement???????????*
0
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
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?
0
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
o merci bien je vais essayer et je tedirai le resultat!!
0
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
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 *************
0
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
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 ;)
0
j ai fais ce que tu m a dis mais l erreur est tjr la je sais pas qoui faire



Dim LOGIN, PASSWORD As String
set db = CurrentDb()
**************SET rs = db.OpenRecordset("SELECT * FROM USER WHERE LOGIN = \'" & Me.LOGIN & "\' AND PASSEWORD =\'" & Me.PASSEWORD & "\';" )
0
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
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.
0
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
0
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
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.
0
oh mon dieu il me donne tjr l erreur dans la meme ligne
0
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
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
0
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
bonjour capit pourra tu m aider a corriger un code vba???
merci
0
OK JE VAI VOIR MERCI
0
ok
0