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 :

Affichage d'un champ en fonction 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
    Mars 2006
    Messages
    188
    Détails du profil
    Informations forums :
    Inscription : Mars 2006
    Messages : 188
    Par défaut Affichage d'un champ en fonction d'une table
    Bonjour,

    J'ai une table "client", avec une colonne "num_client"
    Et j'ai un formulaire pour créer de nouveau client, j'aimerai afficher dans un champ "création" la valeur maximum de la colonne "num_client" +1,
    Une simple incrémentation à l'affiche du formulaire.

    Merci de votre aide!

  2. #2
    Membre habitué
    Inscrit en
    Avril 2010
    Messages
    11
    Détails du profil
    Informations forums :
    Inscription : Avril 2010
    Messages : 11
    Par défaut
    Bonjour,

    Essaie avec une requête MAX:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    SELECT 1+Max(MonChamp) FROM MaTable;
    -> Soit dans une nouvelle requête, en mode SQL (et après dans le champ "Source" des propriétés de ta zone de texte);

    -> Soit directement en VB, via les lignes:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Dim sSQL as String
    sSQL = "SELECT 1+Max(MonChamp) FROM MaTable;"
    DoCmd.RunSQL sSQL
    En espérant t'avoir été utile,

    Zod

  3. #3
    Membre confirmé
    Inscrit en
    Mars 2006
    Messages
    188
    Détails du profil
    Informations forums :
    Inscription : Mars 2006
    Messages : 188
    Par défaut
    Merci de ton aide.
    Mais je ne suis pas du tout à l'aise em VB.

    Ca donnerai la chose suivante avec mes données :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Dim sSQL as String
    sSQL = "SELECT 1+Max(num_client) FROM client;"
    DoCmd.RunSQL sSQL
    Me![creation] = sSQL

  4. #4
    Membre habitué
    Inscrit en
    Avril 2010
    Messages
    11
    Détails du profil
    Informations forums :
    Inscription : Avril 2010
    Messages : 11
    Par défaut
    J'avais mal lu ta question.

    Après réflexion, il vaudrait mieux faire ceci.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    'Déclaration de variables
    Dim sSQL as String,rs As Recordset
     
    'Création de la requête SQL
        sSQL = "SELECT MAX(num_client) FROM client"
    ' Ouverture du RecordSet
        Set rs = CurrentDb.OpenRecordset(sSQL)
    'Récupération de la donnée et affectation
        Me.creation = rs.Fields(0).Value
    'Fermeture du Recordset
        rs.Close
        Set rs = Nothing
    Toutes mes excuses pour ma précédente réponse un peu hâtive.

    Zod

  5. #5
    Membre confirmé Avatar de antoine dpt
    Inscrit en
    Juillet 2004
    Messages
    64
    Détails du profil
    Informations forums :
    Inscription : Juillet 2004
    Messages : 64
    Par défaut
    si je peux me permettre:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    me.[creation] = rs.fields(0).value + 1
    faut pas oublier qu'il veut incrementer son champ...

    note: cette methode est dangeureuse si plusieurs utilisateurs travaillent sur la table. Imagine 2 types qui rentrent des donnees quasi en meme temps....

    le mieux est que ton num_client soit défini en "autonumber" dans la table source. comme ça il prend +1 automatiquement.

  6. #6
    Membre confirmé
    Inscrit en
    Mars 2006
    Messages
    188
    Détails du profil
    Informations forums :
    Inscription : Mars 2006
    Messages : 188
    Par défaut
    Merci cela fonctionne trés bien.
    Ma base ne tourne que sur un seul poste, mais merci de la mise en garde!

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

Discussions similaires

  1. Changer le format d'un champ en fonction d'une valeur
    Par zoom61 dans le forum VBA Access
    Réponses: 6
    Dernier message: 17/06/2007, 21h35
  2. Réponses: 3
    Dernier message: 05/02/2007, 15h05
  3. Affichage de nouveau champ de formulaire avec une case à cocher
    Par breizhgen dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 04/09/2006, 21h46
  4. Modifier la valeur d'un champ en fonction d'une autre...
    Par venividivici dans le forum Général JavaScript
    Réponses: 9
    Dernier message: 25/08/2005, 14h28
  5. Activation d'un champ en fonction d'une réponse
    Par soso78 dans le forum Balisage (X)HTML et validation W3C
    Réponses: 3
    Dernier message: 30/05/2005, 09h59

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