IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Modifier Eléments d'une table


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Juillet 2007
    Messages
    75
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 75
    Par défaut Modifier Eléments d'une table
    Bonjour j'utilise un code VBA pour modifier ma table access, et j'utilise le codes suivant, seulement il modifie toujours la première ligne, comment lui faire dire de modifier que la ligne qui contien tel "N° de séquence" Merci.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Dim Matable
    Set MaTable = CurrentDb.OpenRecordset("DataTech", dbOpenDynaset)
    With Matable
     
                   .Edit
                   !Produit = txtproduit.value
                   !blablabla = blablabla.value
                   .Update
                   .Requery
    End With
    Je pense qu'il fait rajouter quelque part un critère de sélection mais ou ?
    Merci de m'aider
    Adrien

  2. #2
    Rédacteur/Modérateur
    Avatar de Jeannot45
    Homme Profil pro
    Retraité
    Inscrit en
    Octobre 2004
    Messages
    3 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 76
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Enseignement

    Informations forums :
    Inscription : Octobre 2004
    Messages : 3 871
    Par défaut Modifier ...
    bonjour adrien.gendre

    tu peux modifier ta proc comme suit:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    Dim Matable as DAO.Recordset
    Dim strSqlMaTable as String
    Dim NumSequence 
     
    NumSequence = inputbox("N° de Sequence à modifier")
     
    strSqlMaTable = "SELECT * FROM DataTech WHERE Numero de Sequence= " & NumSequence
     
    Set MaTable = CurrentDb.OpenRecordset(strSqlMaTable)
     
    With Matable
                   .Edit
                   .Fields("Produit") = txtproduit.value
                   .Fields("blablabla") = blablabla.value
                   .Update
    End With
    Remarque : si le numéro de sequence est alpha il faut les '

    exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    WHERE Numero de Sequence= '" & NumSequence & "'"
    A+

    Jeannot
    Jeannot

    Liens Office indispensables à visiter: Cours (Tutos), F.A.Q., Sources VBA

    Ne posez pas de questions par MP, je n'ai pas le temps d'y répondre

  3. #3
    Membre confirmé
    Inscrit en
    Juillet 2007
    Messages
    75
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 75
    Par défaut Merci
    Ok Merci Beaucoup Jeannot45

  4. #4
    Membre confirmé
    Inscrit en
    Juillet 2007
    Messages
    75
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 75
    Par défaut En fait j'ai une erreur
    Bonjour Jeannot45 il me dit trop peu de paramètre sur la ligne, 1 Attendu.

    sur cette ligne la :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set MaTable = (CurrentDb.OpenRecordset(strSQLMaTable)

  5. #5
    Rédacteur/Modérateur
    Avatar de Jeannot45
    Homme Profil pro
    Retraité
    Inscrit en
    Octobre 2004
    Messages
    3 871
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 76
    Localisation : France, Loiret (Centre)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Enseignement

    Informations forums :
    Inscription : Octobre 2004
    Messages : 3 871
    Par défaut
    re,

    Peux tu me dire de quel type est le N° de Sequence (alpha ou numérique)

    Jeannot
    Jeannot

    Liens Office indispensables à visiter: Cours (Tutos), F.A.Q., Sources VBA

    Ne posez pas de questions par MP, je n'ai pas le temps d'y répondre

  6. #6
    Membre confirmé
    Inscrit en
    Juillet 2007
    Messages
    75
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 75
    Par défaut
    Les séquences sont de type 070101 (Année 2007 Mois Janvier 1ère séquence de l'année) mais dans un format Text pour garder le zéro au début. Mais ce n'est pas là le problème je pense car j'ai adapté ton code a une autre fonction et ici c'est un mois en String que je vais chercher et j'ai une erreur sur Set maTable

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [VBA] Modifier valeur d'une table
    Par gelipepetefli dans le forum VBA Access
    Réponses: 2
    Dernier message: 25/04/2010, 17h06
  2. Modifier lignes d'une table via un formulaire
    Par Hombe dans le forum IHM
    Réponses: 2
    Dernier message: 11/03/2009, 19h23
  3. Modifier structure d'une table
    Par Mister Nono dans le forum Hibernate
    Réponses: 2
    Dernier message: 18/02/2008, 15h16
  4. Modifier champTexte d'une table attachée
    Par MissItaly23 dans le forum Access
    Réponses: 1
    Dernier message: 26/09/2006, 20h51
  5. Suppression Elément d'une table à partir sous formulaire
    Par Daniel MOREAU dans le forum Access
    Réponses: 3
    Dernier message: 19/05/2006, 10h57

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo