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

Access Discussion :

access remplissage auto d'une table


Sujet :

Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2005
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2005
    Messages : 2
    Par défaut access remplissage auto d'une table
    Bonjour ,

    Je voudrai savoir si on pourrai par intermediaire d'une questionnaire sur access remplir automatiquement cette table avec ces infos d'une date début à une date fin?

    Par exemple:je remplir valeur :8 date début:2/11/2005 date fin 2/12/2006

    il remplit le valeur 8 après il apui sur un bouton et hop il me fait une table de autant de jours entre date début et date fin avec la valeur 8 .

    et es ce qu'il est possible que quand on remplit dans le même champs un autre valeur par exemple 4 de date début 6/12/2005 a date fin 10/12/2005 il ecrase la valeur 8 pour mettre a la place 4?

    je suis débutant et j'essaye de faire un truc de fou donc cette aide m'est très précieuse...

    merci ,

    Bjorn.

  2. #2
    Modérateur

    Homme Profil pro
    Inscrit en
    Octobre 2005
    Messages
    15 410
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : Octobre 2005
    Messages : 15 410
    Par défaut
    Bonjour, je vais reformuler ce que j'ai compris de ta question.

    1) Tu as une table access (maTable) qui contient un champ date (maDate)
    2) Tu as (ou vas avoir) un formulaire avec deux champs : dateDébut et dateFin.
    3) Tu veux un enregistrement pour chacun des jour qui séparent dateDebut de dateFin.

    Ex : début 01/01/05, fin 03/01/05

    01/01/05
    02/01/05
    03/01/05

    Si c'est bien cela il te faut un peu de code VBA associé à ton form, sur l'événement click d'un bouton par exemple.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    'Eventuellement commencer par mettre ici du code controle sur la saisie (ex : datedebut<=dateFin) ou mieux le mettre les contrôle dans une fonction qui valide la saisie et qui détermine si on appele le programme. Un truc du genre : 
     
    if SaisieOK() then
         call CreerJour(me.DateDebut, me.DateFin)
      else
         msgbox "Saisie invalide"
    end if
    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
     
    Private Function SaisieOK() as boolean
       dim result as boolean
     
       if isDate(me.datedebut) and isDate(me.DateFin) then
              if me.dateDebut<=me.dateFin then
                    result=true
                else
                    result=false
              end if
         else
              result=false
       end if
     
       SaisieOK=result
    end function
    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
    17
    18
    19
    20
    21
     
    'Ici le code actif proprement dit
    Private Sub CreerJour(prmDateDebut as date, prmDateFin as date)
     
    dim d as date
    dim db as database:set db=codedb
    dim r as recordset:set r=db.openrecordset("maTabe", dbOpenDynaset)
     
    d=prmDateDebut :'Champ du formulaire qui contient la date de début
     
    do
       r.adnew
       r![maDate]=d
       r.update
       d=dateAdd("d",1,d):'Ajoute un jour à la date
    while d<=prmDateFin
     
    r.close:set r=nothing :'feme le recordset et libère la mémoire associée
    db.close:set db=nothing:'Ferme la bas et libère la mémoire associée
     
    end sub
    Ce code n'a pas été validé, il se peut qu'il y ai des erreurs de syntaxe
    Vous voulez une réponse rapide et efficace à vos questions téchniques ?
    Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
    Et aussi regardez dans la FAQ Access et les Tutoriaux Access. C'est plein de bonnes choses.

  3. #3
    Candidat au Club
    Profil pro
    Inscrit en
    Novembre 2005
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Novembre 2005
    Messages : 2
    Par défaut merci
    ça m'aide déjà beaucoup et je vais chercher un livre sur vba au bibliotheque pour aller dans ce sense la.

    merci ,

    Bjorn.

Discussions similaires

  1. Réponses: 6
    Dernier message: 17/03/2015, 23h16
  2. [access] fichier particulier dans une table
    Par maxdwarf dans le forum Access
    Réponses: 1
    Dernier message: 02/07/2006, 19h00
  3. Réponses: 8
    Dernier message: 09/05/2006, 11h08
  4. Réponses: 2
    Dernier message: 16/11/2005, 13h41

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