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 :

creation d'enregistrement automatique [AC-2000]


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Consultant CRM
    Inscrit en
    Mars 2005
    Messages
    105
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Réunion

    Informations professionnelles :
    Activité : Consultant CRM

    Informations forums :
    Inscription : Mars 2005
    Messages : 105
    Par défaut creation d'enregistrement automatique
    Bonjour,
    J'ai une table "rdv" qui comprend les champs suivants: date, rdv,...
    en fait depuis un formulaire, je souhaiterais pouvoir saisir date de debut, date de fin, rdv, et tous les (7jours, 14jours,1mois).
    une fois ses données saisies, je souhaiterais que mes enregistrements se créent automatiquement.
    exemple:
    date de debut :01/11/09
    date de fin: 30/11/09
    rdv: tennis
    tous les: 14jours
    il faudrait que dans ma table rdv, les enregistrement suivant se créent:
    01/11/09 tennis
    15/11/09 tennis
    29/11/09 tennis

    cela m'éviterais de saisir tout manuellement

    si vous avez une idée pour moi

    vous remerciant par avance

  2. #2
    Membre Expert
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 70
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Par défaut
    Bonjour,

    Un début :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
     
    SQL = "insert into rdv values('" & Debut & "', '" & rdv & "')"
    do while DateDiff("d", Debut, Fin) <= 0
       Debut = DateAdd("d", TousLes, Debut)   
       SQL = "insert into rdv values('" & Debut & "', '" & rdv & "')"
    loop
    PS : Pas testé

  3. #3
    Membre confirmé
    Homme Profil pro
    Consultant CRM
    Inscrit en
    Mars 2005
    Messages
    105
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Réunion

    Informations professionnelles :
    Activité : Consultant CRM

    Informations forums :
    Inscription : Mars 2005
    Messages : 105
    Par défaut
    bonjour pc75

    merci je test et vous tiens informé

    cordialement

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

Discussions similaires

  1. Réponses: 23
    Dernier message: 16/05/2006, 17h38
  2. Réponses: 2
    Dernier message: 23/03/2006, 20h38
  3. Enregistrer automatiquement un classeur Excel
    Par delamarque dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 09/03/2006, 11h43
  4. [RAVE] Enregistrer automatiquement un rapport
    Par Cryonie dans le forum Bases de données
    Réponses: 8
    Dernier message: 11/10/2005, 12h01
  5. creation d'alias automatique
    Par Shnoof dans le forum Bases de données
    Réponses: 5
    Dernier message: 10/03/2004, 14h27

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