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 :

Programmation en access


Sujet :

Access

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Septembre 2018
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Niger

    Informations professionnelles :
    Activité : Auditeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Septembre 2018
    Messages : 58
    Points : 31
    Points
    31
    Par défaut Programmation en access
    Bonjour
    aidez moi SVP
    J’aimerai à chaque que je valider une saisie pour enregistrement de courriers, le dernier numéro de transmission de l'année en cour ,doit s'afficher dans le formulaire de saisie
    voir ma procédure, mais ça n'a pas donné
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ,=RechDom("Max([Numro_trans])";"Couriers";" year([Date_transm])=Year(date())")
      0  0

  2. #2
    Expert éminent sénior
    Avatar de tee_grandbois
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2004
    Messages
    8 621
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Novembre 2004
    Messages : 8 621
    Points : 14 577
    Points
    14 577
    Par défaut
    re bonjour,
    il faut utiliser MaxDom:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =MaxDom("[Numro_trans]";"Couriers";" year([Date_transm])=Year(date())")
    PS: pour poster le code il faut le mettre entre les 2 balises CODE et /CODE
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
    ah non ? donc devant l'écran c'est la connectique ?
      0  0

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Septembre 2018
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Niger

    Informations professionnelles :
    Activité : Auditeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Septembre 2018
    Messages : 58
    Points : 31
    Points
    31
    Par défaut rep
    il n'affiche pas le plus grand numérojai 1,11,10,45,44,7,8,mais il affiche le 7
      0  0

  4. #4
    Invité
    Invité(e)
    Par défaut
    Bonjour

    Le champ où est ton numéro est de type texte, il doit être de type numérique pour pouvoir faire un tri.

    Philippe
      0  0

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Septembre 2018
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Niger

    Informations professionnelles :
    Activité : Auditeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Septembre 2018
    Messages : 58
    Points : 31
    Points
    31
    Par défaut souci
    Mon souci est le suivant: dès qu''on ouvre le formulaire Courrier pour enregistre un courrier, le dernier numéro de transmission de l'année en cours doit s'afficher
      0  0

  6. #6
    Nouveau membre du Club
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Septembre 2018
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Niger

    Informations professionnelles :
    Activité : Auditeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Septembre 2018
    Messages : 58
    Points : 31
    Points
    31
    Par défaut resolu
    C'est ok . J'ai transformé Le champ numéro de type texte en type numérique et ça marche. Merci de vos aides

    Philippe
      0  0

  7. #7
    Expert éminent sénior
    Avatar de tee_grandbois
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2004
    Messages
    8 621
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Novembre 2004
    Messages : 8 621
    Points : 14 577
    Points
    14 577
    Par défaut
    Mada2018,
    c'est uniquement le CODE qu'il faut mettre entre les balises {CODE} {/CODE}, pas tes réponses ou tes questions
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =MaxDom("[Numro_trans]";"Couriers";" year([Date_transm])=Year(date())")     'ici le code
    Ici les réponses ou les questions sans balises
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
    ah non ? donc devant l'écran c'est la connectique ?
      0  0

  8. #8
    Nouveau membre du Club
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Septembre 2018
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Niger

    Informations professionnelles :
    Activité : Auditeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Septembre 2018
    Messages : 58
    Points : 31
    Points
    31
    Par défaut souci
    Bonjour! j'ai un formulaire FCourier qui permet de modifier un courrier transmis. A chaque fois quand je choisi un numéro du courrier, l'application affiche toutes les informations de la table Couriers. Au début ça marchait avec cette produire:

    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
     
     
    Private Sub Numro_AfterUpdate()
    Dim rst As Recordset
        Dim agt As Recordset       
     
        If IsNull(DLookup("Numro_trans", "Couriers", "Numro_trans=forms!FCourier!Numro")) Then
       MsgBox "Numero inexistant ", vbRetryCancel, 32
     End If
       Forms!FCourier!Numro.SetFocus
     
        'Verification de l'existance du matricule dans la table Agent
        Set agt = CurrentDb.OpenRecordset("Select * from Couriers where Numro_trans = '" & Me.Numro & "'")
        If agt.RecordCount <> 0 Then
            If MsgBox("Cet Numero est déja transli! Voulez-vous lui apporter des Modifications?", vbYesNo + vbCritical, "Numerot déja transmi!!!") = vbYes Then
                With agt
                    .Edit
     
                    Me.BEs = !BE
                    Me.date1 = !Date_Cour
                    Me.date2 = !Date_arriv
                    Me.Expediteurs = !Expediteur
                    Me.Objets = !Objet
                    Me.Numro = !Numro_trans
                    Me.cont = !Code_Cont
                    Me.date3 = !Date_transm
                    Me.Etat = !Code_Etat
                    Me.trans = !Code_trans                             
                    .Close
                End With
                Me.btnfermer1.Enabled = True
                Me.Bsupprimer.Enabled = False
                Me.valider.Enabled = False
                Me.BModifier.Enabled = True
             Else
                MsgBox "Saisir un nouveau Numero de transmission et continué SVP!!!", vbOKOnly + vbInformation, "Ressaisie le Nuemro!"
                Me.BEs = ""
                Me.date1 = ""
                Me.date2 = ""
                Me.Expediteurs = ""
                Me.Objets = ""
                Me.Numro = ""
                Me.cont = ""
                Me.date3 = ""
                Me.Etat = ""
                Me.trans = ""
                Me.Numro.SetFocus
     
                Me.btnfermer1.Enabled = True
                Me.Bsupprimer.Enabled = False
                Me.valider.Enabled = True
                Me.BModifier.Enabled = False
             End If   
     
        End If
     
    End Sub
    *****************************************************

    Mon souci: Maintenant j'ai transformé le champ Numro_trans en numérique au lieur de texte. Et j'aimerai à chaque fois quand je choisisse un numéro du courrier, l'application doit afficher toutes les informations de la table Couriers de l'année en cours.Voici la nouvelle procédure et ça refuse:

    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
     Private Sub Numro_AfterUpdate()
    Dim rst As Recordset
        Dim agt As Recordset
         If IsNull(DLookup("Numro_trans", "Couriers", "Numro_trans=forms!FCourier!Numro")) Then
       MsgBox "Numero inexistant ", vbRetryCancel, 32
     End If
       Forms!FCourier!Numro.SetFocus
     
        'Verification de l'existance du numero dans la table Couriers
        '"Numro_trans", "Couriers", "Numro_trans=" & Me.Numro & "
        '"Numro_trans=" & Me.Numro &
        Set agt = CurrentDb.OpenRecordset("Select * from Couriers where "Numro_trans=" & Me.Numro & " And year(Date_transm)=Year(date())"))
        If agt.RecordCount <> 0 Then
            If MsgBox("Cet Numero est déja transmi! Voulez-vous lui apporter des Modifications?", vbYesNo + vbCritical, "Numerot déja transmi!!!") = vbYes Then
                With agt
                    .Edit
     
                    Me.BEs = !BE
                    Me.date1 = !Date_Cour
                    Me.date2 = !Date_arriv
                    Me.Expediteurs = !Expediteur
                    Me.Objets = !Objet
                    Me.Numro = !Numro_trans
                    Me.cont = !Code_Cont
                    Me.date3 = !Date_transm
                    Me.Etat = !Code_Etat
                    Me.trans = !Code_trans
     
     
                    .Close
                End With
                Me.btnfermer1.Enabled = True
                Me.Bsupprimer.Enabled = False
                Me.valider.Enabled = False
                Me.BModifier.Enabled = True
             Else
                MsgBox "Saisir un nouveau Numero de transmission et continué SVP!!!", vbOKOnly + vbInformation, "Ressaisie le Numero!"
                Me.BEs = ""
                Me.date1 = ""
                Me.date2 = ""
                Me.Expediteurs = ""
                Me.Objets = ""
                Me.Numro = ""
                Me.cont = ""
                Me.date3 = ""
                Me.Etat = ""
                Me.trans = ""
                Me.Numro.SetFocus
     
                Me.btnfermer1.Enabled = True
                Me.Bsupprimer.Enabled = False
                Me.valider.Enabled = True
                Me.BModifier.Enabled = False
             End If
        End If
    End Sub
    ***********************************************
    L'erreur est ici;
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
      Set agt = CurrentDb.OpenRecordset("Select * from Couriers where "Numro_trans=" & Me.Numro & " And year(Date_transm)=Year(date())"))
    Merci
      0  0

  9. #9
    Expert éminent sénior
    Avatar de tee_grandbois
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2004
    Messages
    8 621
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Novembre 2004
    Messages : 8 621
    Points : 14 577
    Points
    14 577
    Par défaut
    bonjour,
    merci de mettre tes questions et commentaires en dehors des balises de code
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
    ah non ? donc devant l'écran c'est la connectique ?
      0  0

  10. #10
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 261
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 261
    Points : 6 557
    Points
    6 557
    Par défaut
    L120 après le WHERE il y a trop de guillemets ou ils sont mal placés
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    WHERE Numro_trans = Numro AND ...
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur
      0  0

  11. #11
    Nouveau membre du Club
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Septembre 2018
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Niger

    Informations professionnelles :
    Activité : Auditeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Septembre 2018
    Messages : 58
    Points : 31
    Points
    31
    Par défaut Pour rafraichir un champ
    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
     Bonjour
    J' ai un champ (Numro_tran) qui affiche le dernier numéro de transmission de courrier de l'année en cours, voir la procédure:=MaxDom("[Numro_trans]";"Couriers";" year([Date_transm])=Year(date())") et ça marche.
     
    Et un bouton pour valider la saisie de courrier, toujours dans le même formulaire Courier. Mais  J'aimerai à chaque fois que je valider la saisie, le dernier numéro de champ( Numro_trans) de la table Couriers, soit afficher dans le formulaire. Voir la procédure de validation du bouton valider:
     
    Private Sub valider_Click()
    Dim agt As Recordset
    'Enregistrer les informations du formulaire dans la table Couriers
    Set agt = CurrentDb.OpenRecordset("select * from Couriers")
     
    With agt
        .AddNew
         !BE = Me.BEs
         !Date_Cour = Me.date1
         !Date_arriv = Me.date2
         !Expediteur = Me.Expediteurs
         !Objet = Me.Objets
         !Numro_trans = Me.Numro
         !Date_transm = Me.date3
         !Code_trans = Me.trans
         !Code_Cont = Me.cont
         !Code_Etat = Me.Etat
     
        .Update
        .Close
    End With
    MsgBox "Courier correctement enregistré", vbOKOnly + vbInformation, "Enregistrement Validé!!"
    'Vider les champs pour une nouvelle saisie
    Me.BEs = ""
    Me.date1 = ""
    Me.date2 = ""
    Me.Expediteurs = ""
    Me.Objets = ""
    Me.Numro = ""
    Me.cont = ""
    Me.date3 = ""
    Me.Etat = ""
    Me.trans = ""
    Me.BEs.SetFocus
     
    End Sub
    Merci
      0  0

  12. #12
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 261
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 261
    Points : 6 557
    Points
    6 557
    Par défaut
    Citation Envoyé par Mada2018 Voir le message
    Citation Envoyé par tee_grandbois Voir le message
    bonjour,
    merci de mettre tes questions et commentaires en dehors des balises de code
    Il semblerait que les règles de bien séance et vous, faites 2
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur
      0  0

  13. #13
    Expert éminent sénior
    Avatar de tee_grandbois
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2004
    Messages
    8 621
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Novembre 2004
    Messages : 8 621
    Points : 14 577
    Points
    14 577
    Par défaut
    bonsoir,
    1) as-tu fais la correction proposée par hyperion13:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set agt = CurrentDb.OpenRecordset("Select * from Couriers where Numro_trans=" & Me.Numro & " And year(Date_transm)=Year(date())")
    et fonctionne-t-elle ?
    S'il vous plait, pas de réponse ?
    2) peux-tu reposer ta question dans les règles (code entre les balises de code et question hors des balises), de plus, il y a plusieurs questions dans ce post : lesquelles sont encore non résolues ?
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
    ah non ? donc devant l'écran c'est la connectique ?
      0  1

  14. #14
    Nouveau membre du Club
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Septembre 2018
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Niger

    Informations professionnelles :
    Activité : Auditeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Septembre 2018
    Messages : 58
    Points : 31
    Points
    31
    Par défaut quest
    Bonjour....
    Voilà mon souci: j'aimerai à chaque fois quand je valide une saisie dans le formulaire Courier, le dernier numéro de transmission (Numro_tran) de la table Couriers, s'affiche sur ce formulaire de saisie(Courier). je vous rappelle que le Numro_trans est en texte, et que j'aimerai le garder en texte.
    Voir ma requete:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     =MaxDom("[Numro_trans]";"Couriers";" year([Date_transm])=Year(date())")
    Merci
      0  0

  15. #15
    Invité
    Invité(e)
    Par défaut
    Bonjour

    On ne sais pas vraiment où tu en es, tu poses de multiples questions, tu ne réponds pas vraiment au questions.

    Merci donc d'être plus clair, plus précis et une discussion = une question = problème.

    Merci d'adopter ces règles simples pour ne pas lasser ceux qui veulent te répondre.

    Philippe
      1  0

  16. #16
    Expert éminent sénior
    Avatar de tee_grandbois
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2004
    Messages
    8 621
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Novembre 2004
    Messages : 8 621
    Points : 14 577
    Points
    14 577
    Par défaut
    Citation Envoyé par Mada2018 Voir le message
    Bonjour....
    Voilà mon souci: j'aimerai à chaque fois quand je valide une saisie dans le formulaire Courier, le dernier numéro de transmission (Numro_tran) de la table Couriers, s'affiche sur ce formulaire de saisie(Courier). je vous rappelle que le Numro_trans est en texte, et que j'aimerai le garder en texte.
    Voir ma requete:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     =MaxDom("[Numro_trans]";"Couriers";" year([Date_transm])=Year(date())")
    Merci
    ceci n'est pas une requête ... mais une expression
    Citation Envoyé par Mada2018
    je vous rappelle que le Numro_trans est en texte, et que j'aimerai le garder en texte.
    et c'est le contraire de ce que tu dis plus haut:
    Mon souci: Maintenant j'ai transformé le champ Numro_trans en numérique au lieur de texte. Et j'aimerai à chaque fois quand je choisisse un numéro du courrier, l'application doit afficher toutes les informations de la table Couriers de l'année en cours.Voici la nouvelle procédure et ça refuse:
    on va VRAIMENT finir par ne plus vouloir t'aider ...
    Essaie quand même ceci : convertir le champ Numro_trans dans l'expression avec Cdbl(), mais je rappelle qu'un chiffre dans un champ de type texte ne sera jamais classé dans l'ordre donc si tu l'oublies une fois cela pourrait avoir des effets inattendus
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     =MaxDom("Cdbl([Numro_trans])";"Couriers";"year([Date_transm])=Year(date())")
    et pour erreur(s) précédente(s), puisque le champ est redevenu texte:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set agt = CurrentDb.OpenRecordset("Select * from Couriers where Numro_trans=""" & Me.Numro & """ And year(Date_transm)=Year(date())")
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
    ah non ? donc devant l'écran c'est la connectique ?
      0  0

  17. #17
    Nouveau membre du Club
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Septembre 2018
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Niger

    Informations professionnelles :
    Activité : Auditeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Septembre 2018
    Messages : 58
    Points : 31
    Points
    31
    Par défaut
    ça marche avec votre requête, il affiche le dernier numéro.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     =MaxDom("Cdbl([Numro_trans])";"Couriers";"year([Date_transm])=Year(date())")
    mai le problème à chaque quand je valide la saisie, il n'affiche pas le dernier numéro de transmission saisi. Il a fallu que je ferme le formulaire de saisie et réouvrir pour qu'il s'affiche
      0  0

  18. #18
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 261
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 261
    Points : 6 557
    Points
    6 557
    Par défaut
    après avoir vidé vos champs insérez
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur
      0  0

  19. #19
    Nouveau membre du Club
    Homme Profil pro
    Auditeur informatique
    Inscrit en
    Septembre 2018
    Messages
    58
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : Niger

    Informations professionnelles :
    Activité : Auditeur informatique
    Secteur : High Tech - Matériel informatique

    Informations forums :
    Inscription : Septembre 2018
    Messages : 58
    Points : 31
    Points
    31
    Par défaut aide
    Bonjour....
    Jusque là je pas de solution. J vous explique encore mon souci. j'ai un formulaire de saisie, et sur ce formulaire ya un bouton de validation de la saisie dont à chaque fois que je clique le dessus , les données sont enregistrées. Voir le code:
    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
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    Private Sub valider_Click()
    Dim agt As Recordset
    'Enregistrer les informations du formulaire dans la table Couriers
    Set agt = CurrentDb.OpenRecordset("select * from Couriers")
     
    With agt
        .AddNew
         !BE = Me.BEs
         !Date_Cour = Me.date1
         !Date_arriv = Me.date2
         !Expediteur = Me.Expediteurs
         !Objet = Me.Objets
         !Numro_trans = Me.Numro
         !Date_transm = Me.date3
         !Code_trans = Me.trans
         !Code_Cont = Me.cont
         !Code_Etat = Me.Etat
     
        .Update
        .Close
    End With
    MsgBox "Courier correctement enregistré", vbOKOnly + vbInformation, "Enregistrement Validé!!"
     
      'Vider les champs pour une nouvelle saisie
    Me.BEs = ""
    Me.date1 = ""
    Me.date2 = ""
    Me.Expediteurs = ""
    Me.Objets = ""
    Me.Numro = ""
    Me.cont = ""
    Me.date3 = ""
    Me.Etat = ""
    Me.trans = ""
    Me.BEs.SetFocus
     
    End Sub
    Toujours dans ce formulaire ya un champ (Numro_trans) qui affiche à chaque le dernier numéro de transmission. voir le code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     =MaxDom("Cdbl([Numro_trans])";"Couriers";"year([Date_transm])=Year(date())")
    Mon soucis, j'aimerai à chaque fois que je valide, il rafraichisse ce champ.
    Merci de m'aider
      0  0

  20. #20
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 261
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 261
    Points : 6 557
    Points
    6 557
    Par défaut
    Citation Envoyé par Mada2018 Voir le message
    Bonjour....
    Jusque là je pas de solution. J vous explique encore mon souci...
    c'est bon, nous connaissons l'histoire.
    Mais à priori vous devez souffrir de cécité, puisque je vous ai donné la solution post#19. A insérer en L36.

    EDIT:18:07 et ça marche
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur
      0  0

Discussion fermée
Cette discussion est résolue.
Page 1 sur 2 12 DernièreDernière

Discussions similaires

  1. programmation sur access
    Par dodie84 dans le forum Modélisation
    Réponses: 12
    Dernier message: 12/04/2008, 17h35
  2. Programmation VB Access
    Par catherineh dans le forum VBA Access
    Réponses: 1
    Dernier message: 19/03/2008, 22h10
  3. Activer un menu Excel depuis un programme VBA Access
    Par gbuxo dans le forum VBA Access
    Réponses: 9
    Dernier message: 27/11/2007, 11h58
  4. programme en access
    Par sanita dans le forum Access
    Réponses: 1
    Dernier message: 04/08/2007, 01h55
  5. plusieurs questions pour un programme sous access
    Par micco dans le forum Access
    Réponses: 2
    Dernier message: 06/04/2006, 20h22

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