Results 1 to 11 of 11
  1. #1
    Join Date
    Mar 2025
    Posts
    20

    pour calculer plusieurs criteres

    Bonjour , si vous pouvez m'aider , merci de votre temps .

    Plusieurs Requête : pour Calculer

    1-les forfaits en cours de (validations)
    2-les forfaits fait d'être reconduit (périme)
    3-savoir les forfaits à refaire 5 jours avant la date de Fin de validité.


    4-le nombre de forfait vendu par Catégories Articles

    Ci-joint base access et photos

    Cordialement
    Attached Thumbnails Attached Thumbnails forfait skidata.jpg  
    Attached Files Attached Files

  2. #2
    Join Date
    Jan 2017
    Location
    Swansea,South Wales,UK
    Posts
    6,555
    Non comprende. Lo siento.
    Please use # icon on toolbar when posting code snippets.
    Cross Posting: https://www.excelguru.ca/content.php?184
    Debugging Access: https://www.youtube.com/results?sear...bug+access+vba

  3. #3
    Join Date
    Mar 2025
    Posts
    20
    bonjour , oui pardon erreure de ma part , pour l explication : date de val , c 'est le jour de l'inscription : pas important !
    ensuite Fin_val , date forfait valide jusq'au 01 mai 2025 :
    calculer la date de prise du forfait en sachant Articles fonctionnel 2 mois (60 jours) en fonction du calendrier 2025 ( jour ferier et dimanche =0 pour nous ) c'est pas deduit.
    je voudrais afficher dans le champs fait le : exemple : 01-03-2025 ( s'affiche automatiquement )
    de pouvoir savoir toute les forfait qui sont valide et non valide ? requête
    et de calculer le nombres d articles vendu exp : 3 forfait fonctionnel 1 mois , et les autres .... requête

    j'espere que je me suis fait mieux comprend , je reste a votre ecoute :

    Merci

    Cdt

  4. #4
    jojowhite's Avatar
    jojowhite is offline Competent Performer
    Windows 11 Access 2021
    Join Date
    Jan 2025
    Posts
    433
    see if this is what you meant.
    Attached Files Attached Files

  5. #5
    Join Date
    Mar 2025
    Posts
    20

    Rien de changer ou pas sur faire !

    Bonjour , alors soit je suis bete , car il y a rien de changer pour moi !

    Merci d'avance , je reste a votre ecoute !

    Cordialement

  6. #6
    jojowhite's Avatar
    jojowhite is offline Competent Performer
    Windows 11 Access 2021
    Join Date
    Jan 2025
    Posts
    433
    i added this function to tbl_forfaits Sous-formulaire subform:
    Code:
    Public Function UpdateFaitLe()
        Me![Fait le] = Null
        If IsDate(Me![Fin_val]) Then
            Select Case Articles & ""
            Case "Fonctionnel 2 mois"
                ' deduct 2 months from finish date
                Me![Fait le] = DateAdd("m", -2, Me![Fin_val])
            End Select
        End If
    End Function
    then i call this on the AfterUpdate event of textbox Fin_val and combobox Articles.
    you add more code to the function for 1 month, 3 months, 1 year, etc.

  7. #7
    Join Date
    Mar 2025
    Posts
    20
    d'accord en mode Vba , sans vouloir vous Embeter et pour que je comprendre le fonctionne du code pouvez-vous me faire voir comment
    rajouter si je sélectionne fonctionne 1 mois , commenter l'écrire dans votre code .
    et je suppose que cela sera à faire pour les autres articles.
    Merci beaucoup.
    Cordialement

  8. #8
    xps35's Avatar
    xps35 is online now Competent Performer
    Windows 10 Office 365
    Join Date
    Jun 2022
    Location
    Schiedam, NL
    Posts
    299
    You provide very little background information. It is therefore difficult to understand what exactly you want. In addition, there is very little sample data in your database.
    I suspect that you will have to write a query for each question.


    Question 1
    Code:
    SELECT tbl_clients.Nom, tbl_clients.Prénom, tbl_forfaits.Début_val, tbl_forfaits.Fin_val, tbl_forfaits.Articles
    FROM tbl_clients INNER JOIN tbl_forfaits ON tbl_clients.tbl_clients_N° = tbl_forfaits.lien
    WHERE (((tbl_forfaits.Fin_val)>=Date()));
    Question 2
    Code:
    SELECT tbl_clients.Nom, tbl_clients.Prénom, tbl_forfaits.Début_val, tbl_forfaits.Fin_val, tbl_forfaits.Articles
    FROM tbl_clients INNER JOIN tbl_forfaits ON tbl_clients.tbl_clients_N° = tbl_forfaits.lien
    WHERE (((tbl_forfaits.Fin_val)<Date()));
    Question 3
    Code:
    SELECT tbl_clients.Nom, tbl_clients.Prénom, tbl_forfaits.Début_val, tbl_forfaits.Fin_val, tbl_forfaits.Articles
    FROM tbl_clients INNER JOIN tbl_forfaits ON tbl_clients.tbl_clients_N° = tbl_forfaits.lien
    WHERE ((([Fin_val]-Date())=5));
    Question 4
    Code:
    SELECT Articles.Aticles, Count(tbl_forfaits.tbl_forfait_N°) AS NombreFROM Articles LEFT JOIN tbl_forfaits ON Articles.Aticles = tbl_forfaits.Articles
    GROUP BY Articles.Aticles;
    
    Groeten,

    Peter

  9. #9
    jojowhite's Avatar
    jojowhite is offline Competent Performer
    Windows 11 Access 2021
    Join Date
    Jan 2025
    Posts
    433
    here try to study the code and search the net for the syntax of DateAdd() function.
    Attached Files Attached Files

  10. #10
    Join Date
    Mar 2025
    Posts
    20
    Bonjour , je suis bosse decu et j ai compris le fonctionnement , merci beaucoup de votre temps !
    ca va etre au top !

    Cordialement

  11. #11
    Join Date
    Mar 2025
    Posts
    20
    Bonjour , merci j'étudie cette fonction et de comprendre le code que je suis en train de modifier pour mes articles !
    cela fonctionne , donc cool parfait .Click image for larger version. 

Name:	code vba 1.0.png 
Views:	14 
Size:	83.5 KB 
ID:	52866
    Cordialement

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 0
    Last Post: 09-23-2019, 02:05 PM
  2. Replies: 4
    Last Post: 10-05-2018, 06:50 AM
  3. Replies: 3
    Last Post: 05-14-2015, 05:47 PM
  4. Replies: 0
    Last Post: 08-23-2013, 08:12 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums