Module VBA pour ouvrir différents états

Version imprimable

Bonjour,

Je débute dans la conception de base de données Access, et je souhaiterai savoir si quelqu'un pourrait m'aider.
J'ai concu une base dont une des tables est nommée "Contact", et un des champs "contact_type" peut prendre la valeur 'Personne' ou 'Société'.
Je souhaiterai désormais créer un formulaire qui permet de choisir un des contacts par un menu déroulant, puis qui permet en cliquant sur un bouton de commande de visualiser un état correspondant à ce contact.
Jusque ici rien de compliquer...
Par contre la subtilité est que en fonction de la valeur du champ contact_type, ce bouton de commande doit ouvrir soit l'état "Fiche_personne" si c'est une personne ou l'état "Fiche_société" si c'est une société.
Je ne pense pas pouvoir faire cela grâce à une macro, je pensais donc créer un module VBA et c'est là que j'ai du mal.
Voici ce que j'ai comme code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Option Compare Database '------------------------------------------------------------ ' Fiche_contact ' '------------------------------------------------------------ Function Fiche_contact() On Error GoTo Fiche_contact_Err If ([Contact].[Contact_type]="Person") Then DoCmd.OpenReport "Fiche_personne", acViewPreview, "", "", acNormal Else DoCmd.OpenReport "Fiche_société", acViewPreview, "", "", acNormal End If Fiche_contact_Exit: Exit Function Fiche_contact_Err: MsgBox Error$ Resume Fiche_contact_Exit End Function
De plus, je ne sais pas quelles variables déclarées.

Merci pour votre aide, une solution ou à défaut des liens utiles ou je pourrai me documenter.
Bonne journée à tous.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Compare Database
 
'------------------------------------------------------------
' Fiche_contact
'
'------------------------------------------------------------
Function Fiche_contact()
On Error GoTo Fiche_contact_Err
 
	If me!Contact_type="Person" Then
	   DoCmd.OpenReport "Fiche_personne", acViewPreview, "", "", acNormal
	Else
	   DoCmd.OpenReport "Fiche_société", acViewPreview, "", "", acNormal
	End If
 
Fiche_contact_Exit:
	Exit Function
 
Fiche_contact_Err:
	MsgBox Error$
	Resume Fiche_contact_Exit
 
End Function

ou encore en une seule ligne :

Code:

DoCmd.OpenReport iif(me!Contact_type="Person","Fiche_personne","Fiche_société"), acViewPreview, "", "", acNormal

On peut varier encore.

11/05/2010, 16h49
chuchu57

Salut,

Merci pour ta réponse et pour les liens fournis, c'est bien utile!

Par contre pour mon module VBA j'ai toujours un souci concernant son exécution.

Le message suivant est affiché : "The expression you entered has a function name that Company List can't find" ('Company List' est le nom de ma base bien évidemment)

Pourtant pour t'expliquer un peu plus, j'ai créer un formulaire "View_contact" avec une combo box qui liste tous les contacts et permet d'en choisir un, puis un bouton qui (lorsqu'on clique dessus) lance une macro "View_contact" dont une des lignes d'action est "RunCode", avec comme nom de fonction le module VBA "Fiche_contact()" précédement créé (et qui devrait donc ouvrir selon le type du contact sélectionné par la combo box l'état "Fiche_personne" ou l'état "Fiche_société")

C'est cette action RunCode qui plante ma macro et je ne comprends pas pourquoi ca ne marche pas.
Je trouve bizarre de ne pas avoir à préciser dans la macro ou le module que l'état que je souhaite visualiser est celui du contact choisi dans la combo box en question.

Donc si quelqu'un a une idée, une piste ou voire la solution ca serait génial.
J'espère avoir été assez clair dans mes explications.

Merci d'avance et bonne journée à tous.
11/05/2010, 18h19
loufab

Pourquoi passer par une macro pour lancer le code ?!

Utilise directement la procédure événementielle Sur click de ton bouton et mets y le code.
14/05/2010, 12h18
samloba

complément d'information
Tu fais comme te l'a dit Loufab mais:

1. si tu veux mettre directement le code sur l'événement Click du bouton qui commande l'ouverture, tu auras (en supposant que ton bouton se nomme btnOuvrirFicheContact)
Code:

1 2 3 4 5 6 Private sub btnOuvrirFicheContact_Click() DoCmd.OpenReport iif(me!Contact_type="Person","Fiche_personne","Fiche_société"), acViewPreview, "", "", acNormal end sub
2. si tu veux utiliser le code déjà écrit tu peux l'appeler comme suit
Code:

1 2 3 4 5 Private sub btnOuvrirFicheContact_Click() 'Appelée la procédure écrite auparavant call Fiche_contact end sub
Mais si pour une raison que tu es le seul à comprendre tu veux toujours passer par ta macro pour lancer le code (valable pour la solution 2), tu dois remplacer
Code:

1 2 If me!Contact_type="Person" Then
par
Code:

1 2 If forms!View_contact!Contact_type="Person" Then