Discussion :

[Phyl]

Bonjour,

Dans une base de données, j'utilise deux formulaires le premier est un "Formulaire de consultation" (non modifiable) le deuxième est un Formulaire d'entrée et de modification des données. Ces 2 formulaires sont liés à une même table avec un champ "Code" unique.

Pour chacun de ces Formulaires, j'ai mis en place un bouton d'impression d'un Etat lié au champ "Code". L'Etat est donc établi à partir d'une requête liée au Formulaire tel que :

[Formulaires]![Form Membres]![Code]

Cela m'oblige en fait de faire 2 requêtes et 2 Etats identiques un par Formulaires, de consultation et de modification.

Ce n'est pas très grave, mais n'y aurait-il pas moyen de traiter cela plus facilement à partir du formulaire ouvert ???

Merci de votre aide

[keita]

salut et bonne fete à toi
Regarde dans l'aide d'access ce que la propriété CodeContextobject peut faire pour toi.
@+

[Phyl]

Merci Keita,

J'ai cherché à la fois sur le forum et dans l'aide d'Access mais je n'ai rien trouvé sur l'information sur CodeContextObject.

Peux-tu m'en dire un peu plus.

Merci et Bonnes fête à à toi et à vous tous

[keita]

Autre solution:
1/tu crées une variable publique varTemp dans un module standard
2/un click sur le bouton du form initialise varTemp avec la valeur du code
3/ton etat, en s'ouvrant (donc evenement sur ouverture) recupere le code dans vartemp.
j'espere avoir été clair.
merci et bonne fete à toi Phyl.

[Phyl]

Oui c'est clair, et je comprend le fonctionnement qui me parait très simple. Seulement je ne pense pas être assez calé pour faire le module avec la variable. Si tu peux m'aider ???

[argyronet]

Bonjour

Pas besoin de variable publique pour ça...

Le principe d'ouverture d'un formulaire ou d'un état reste le même en ce qui concerne la clause WHERE.
Tu peux donc ouvrir l'un ou l'autre en renseignant correctement cette condition en se basant sur la syntaxe suivante:

Code :

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

1
2
3
4
5
6
7
 
Private Sub cmdVoirEtat_Click()
Dim strMyCondition As String
 
  strMyCondition = "[Code]=" & Me![Code]
  DoCmd.OpenReport "Mon état à ouvrir", acViewPreview, , strMyCondition
End Sub

Argy

[hocine]

Salut,

Code :

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

1
2
 
docmd.openreport "nometat", acpreview, [champdevotreetat]=[forms]![votreformulaire]![champs correspondant]

Bonne chance.
Bonne fête à TOUS.
Merci

[Phyl]

Merci beaucoup à vous 3.

Dès demain matin j'essaye les codes evennements donnés et je vous tiens au courant

[argyronet]

Code :

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

1
2
 
docmd.openreport "nometat", acpreview, [champdevotreetat]=[forms]![votreformulaire]![champs correspondant]

Hocine...
Tu as oublié les guillemets...
Ils sont restés dans la hôte ?

Argy

[Phyl]

strMyCondition = "[Code]=" & Me![code]

Argy

Cela fonctionne parfaitement, merci beaucoup.

Cependant j'aimerais comprendre pourquoi il m'a fallu mettre cette condition "[code]=" ? N'aurais-je pu mettre seulement "[code]"

C'est juste pour pouvoir le refaire plus tard en comprenant.

Merci

[argyronet]

Bonjour,

Cependant j'aimerais comprendre pourquoi il m'a fallu mettre cette condition "[code]=" ? N'aurais-je pu mettre seulement "[code]"
C'est juste pour pouvoir le refaire plus tard en comprenant.

Eh bien une condition s'écrit comme lorsque tu écris une requête SQL.
Pour mieux comprendre, créé une requête "bidon" dans l'éditeur de requêtes où tu émets une condition quelconque.
Passe en mode Feuille de données pour voir le résultat puis bascule en mode SQL pour regarder la syntaxe:
Tu le vois, elle est la suivante:

Code :

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

Crochet; Nom du Champ; Crochet; Signe égal; "Valeur cherchée"

Ce qui se traduit par:

Code :

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

[Nom du champ]="Une valeur"

Mais comme la clause WHERE dans une méthode OpenForm ou OpenReport est une chaine de caractères, elle doit être établie en String donc, cela t'impose de poser des guillemets en plus.

Note importante et complémentaire:
Si la valeur cherchée est elle-même une chaine de caractères, tu dois forcer les guillemets

Code :

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

1
2
3
 
strMaValeur="Une valeur quelconque"
"[Nom du champ]=" & Chr(34) & strMaValeur & Chr(34)

Sinon tu n'en mets pas:

Code :

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

1
2
3
 
intMaValeur=1234
"[Nom du champ]=" & intMyValue

Argy

[Phyl]

Merci beaucoup "argy", je n'ai pas tout compris à la première lecture, mais je vais le travailler un peu et il n'y a pas de raison que je n'y arrive pas.

Bien évidemment je connais la fonction mode Sql que je n'utilise peut-être pas assez souvent

En tout cas Merci encore

Bonne Année 2006 à vous tous

[argyronet]

Merci de cliquer sur

Argy