Boutton access

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

Afficher la suite

A voir également:

Boutton access
Access appdata - Guide
Acer quick access - Forum logiciel systeme
Désinstaller ACER QUICK ACCESS - Forum Logiciels
Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
[Access] creer base données client-produits - Forum Programmation

9 réponses

Réponse 1 / 9

nvaros Messages postés 144 Statut Membre 17

Salut samsan,

Je vois pas l'utilité de faire cela.

samsan

nvaros j ai quelques question pour le code que tu m a donner l autre fois est ce que tu peut m aider???

Réponse 2 / 9

samsan

pourquoi je crois c'est tres utile pour moi !!!

Réponse 3 / 9

CaPiT Messages postés 622 Statut Membre 51

Je ne comprends pas trop non plus.

Peux tu être plus clair et précis stp?

samsan

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!

CaPiT Messages postés 622 Statut Membre 51 > samsan

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 144 Statut Membre 17 > samsan

Quels sont les champs de ta table USER?

samsan > nvaros Messages postés 144 Statut Membre

voila les champs:nom prenom type login et password

samsan

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

Réponse 4 / 9

samsan

voila les champs:nom prenom type login et password

CaPiT Messages postés 622 Statut Membre 51

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.

samsan > CaPiT Messages postés 622 Statut Membre

c pas grave je sais que c'est update
mais je sais pas comment modifier tous les champs

nvaros Messages postés 144 Statut Membre 17 > samsan

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 622 Statut Membre

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

Réponse 5 / 9

samsan

tu sai comment modifier un enregistrement???????????*

CaPiT Messages postés 622 Statut Membre 51

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?

samsan > CaPiT Messages postés 622 Statut Membre

o merci bien je vais essayer et je tedirai le resultat!!

samsan > CaPiT Messages postés 622 Statut Membre

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 *************

Réponse 6 / 9

CaPiT Messages postés 622 Statut Membre 51

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 ;)

samsan

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 & "\';" )

CaPiT Messages postés 622 Statut Membre 51 > samsan

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.

samsan

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

Réponse 7 / 9

CaPiT Messages postés 622 Statut Membre 51

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.

samsan

oh mon dieu il me donne tjr l erreur dans la meme ligne

CaPiT Messages postés 622 Statut Membre 51 > samsan

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

sanae > CaPiT Messages postés 622 Statut Membre

bonjour capit pourra tu m aider a corriger un code vba???
merci

Réponse 8 / 9

samsan

OK JE VAI VOIR MERCI

Réponse 9 / 9

samsan

Discussions similaires

Avast HNS-SELF-WAN-ACCESS-IPV6

Acer quick access

Quick Access service

C'est quoi le runtime Access ?

Exemple de base de données access

Boutton access

9 réponses

Votre réponse

Discussions similaires

Newsletters