Discussion :

[PokPok]

Bonjour

J'ai une table client qui contient les champs suivants
Noclient
Nomclient
PrenomClient
Ageclient

Dans un formulaire j'ai 3 boutons de commande qui me permet de choisir l'état voulu soit l'état 10_20 ou l'état 21_40 ou l'état 41_60 mes 3 états sont basé sur une requete qui demande le no de client pour imprimer la fiche client

J'aimerais que lorsque l'on choisi le client par no de client access ouvre lui meme le bon état qui est basé sur l'age du client.

Dois-je faire ma requete en vba ?

[Invité]

Bonjour

Pourquoi avoir 3 états par tranche d'âge et pas un seul état ?

Philippe

[PokPok]

Bonjour

J'ai 3 états avec un texte différent pour chaque tranche d'age.

C'est pour cette raison que j'aimerais que lorsque je choisi un client avec son no de client access ouvrirais le bon état automatiquement en se basant sur l'age du client.


Merci

[faroug]

Salut,
Oui c possible avec VBA, voilà un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    If Ageclient.Value < 20 Then
        DoCmd.OpenReport "etat1", acViewPreview, , "Noclient=" & Noclient.Value
    Else
        If Ageclient.Value > 20 And Ageclient.Value > 40 Then
        DoCmd.OpenReport "etat2", acViewPreview, , "Noclient=" & Noclient.Value
        Else
        DoCmd.OpenReport "etat3", acViewPreview, , "Noclient=" & Noclient.Value
        End If
    End If

[PokPok]

Merci beaucoup pour cette partie , mais dois-je aussi faire la requete complète en vba ?

Je m'explique mes états sont basés sur une requête qui me demande d'entrer un no de client.

Donc
Si j'ai un bouton de commande qui exécute ma requete comment faire par la suite pour prendre le résultat de cette requête et en vba d'écrire le code comme vous venez de me donner ?

Merci

[faroug]

Il suffit de:
1) Mettre le code dans l'évènement Click de ton bouton
2) Enlever le paramètre (no client) de ta requête.

et ça doit marcher.

[PokPok]

Bonjour

Je ne comprends pas comment access va se positionner sur le bon enregistrement si j'enleve le paramètre no client de ma requête.

[faroug]

Salut,
Voilà le code que j'ai déjà posté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
If Ageclient.Value < 20 Then
        DoCmd.OpenReport "etat1", acViewPreview, , "Noclient=" & Noclient.Value
    Else
        If Ageclient.Value > 20 And Ageclient.Value > 40 Then
        DoCmd.OpenReport "etat2", acViewPreview, , "Noclient=" & Noclient.Value
        Else
        DoCmd.OpenReport "etat3", acViewPreview, , "Noclient=" & Noclient.Value
        End If
    End If

dans ce code j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"Noclient=" & Noclient.Value

d'où la condition que tu cherche.