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

Configuration: Windows XP
Internet Explorer 7.0

Afficher la suite

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.
0
1. samsan
  
  nvaros j ai quelques question pour le code que tu m a donner l autre fois est ce que tu peut m aider???
  
  0
Réponse 2 / 9
samsan

pourquoi je crois c'est tres utile pour moi !!!
0
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?
0
1. 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!
  
  0
2. 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.
  
  0
3. nvaros Messages postés 144 Statut Membre 17 > samsan
  
  Quels sont les champs de ta table USER?
  
  0
4. samsan > nvaros Messages postés 144 Statut Membre
  
  voila les champs:nom prenom type login et password
  
  0
5. 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
  
  0
Réponse 4 / 9
samsan

voila les champs:nom prenom type login et password
0
1. 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.
  
  0
  1. 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
    
    0
  2. 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
    
    0
  3. 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!
    
    0
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???????????*
0
1. 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?
  
  0
  1. samsan > CaPiT Messages postés 622 Statut Membre
    
    o merci bien je vais essayer et je tedirai le resultat!!
    
    0
  2. 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 *************
    
    0
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 ;)
0
1. 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 & "\';" )
  
  0
  1. 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.
    
    0
2. 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
  
  0
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.
0
1. samsan
  
  oh mon dieu il me donne tjr l erreur dans la meme ligne
  
  0
  1. 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
    
    0
  2. sanae > CaPiT Messages postés 622 Statut Membre
    
    bonjour capit pourra tu m aider a corriger un code vba???
    merci
    
    0
Réponse 8 / 9
samsan

OK JE VAI VOIR MERCI
0
Réponse 9 / 9
samsan

ok
0

Boutton access

9 réponses

Discussions similaires

Newsletters