Discussion :

[charliee]

Bonjour à tous !

Aujourd’hui je suis confronté à un petit problème pour développer une mini BDD contacts pour mon boulot sous Access 2010 (j’ai l’impression d’ailleurs qu’il n’y a plus que moi qui me sert de cet outil…)

Dans un formulaire faisant référence à la table contact, je souhaiterai appeler les entrées de la table commentaires correspondantes.

Actuellement je fais ça de façon moche avec un sous formulaire :



Mais mon but serait de faire comme dans le fichier de demo Access 2010 « Contacts » qui permette d’ajouter une nouvelle entrée dans la table commentaire de façon transparente en rafraichissant ensuite l’état qui est au dessus (exactement comme dans le fichier de démo)



Comment puis-je m’y prendre ?

Merci pour toutes vos aides précieuses, j'ai épluché le net mais je ne trouve rien sur le sujet ou alors je dois mal m'y prendre car ne connaissant pas encore très bien la mécanique...

Charlie

[Michael Guilloux]

Salut,
Dans le 2è cas, je crois c'est un sous-formulaire "Commentaires" dont les zones de texte Date et commentaires ont un style fond "transparent" et un style bordure "transparent". supprime aussi dans ta textbox Date la valeur par défaut que tu as probablement mis à Maintenant()

[charliee]

En fait j'ai regardé dans le formulaire d'exemple 'Contacts' fourni avec Access et il s'agit bien d'un état intégré (j'ai pu reproduire l'intégration de l'état, ça fonctionne comme un sous-formulaire).
Le plus dans leur fichier, c'est que la textbox en dessous sert à écrire dans la table "commentaire" en relation un message avec horodatage et celui ci écrit dans la table commentaire + rafraichit l'état au dessus automatiquement et çà c'est canon !
Penses tu que ce soit possible ?
Merci

[Michael Guilloux]

Salut,
essaie d'adapter le code suivant à ton cas

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
Private Sub CmdSave_Click()
Dim TblCommentaire As Recordset
Set TblCommentaire = CurrentDb.OpenRecordset("TblCommentaire", DbOpenTable)
'Ajouter un nouvel enregistrement dans ta table commentaire
TblCommentaire.AddNew
TblCommentaire("Commentaire") = Me.txtcommentaire
'TxtCommentaire est la zone de texte dans laquelle tu ajoute le commentaire
TblCommentaire("IDContact") = Me.IDContact 'Trouve un moyen de récupérer IDContact à partir de l'enregistrement courant
'le champ ID est automatique, le champ date aussi qui par défaut =now()
TblCommentaire.Update
TblCommentaire.Close
'Reinitialise le champ TxtCommentaire
Me.txtcommentaire.Value = ""
'Rafraîchis la source de ton sous-état
Me.RptCommentaire.Requery 'RptCommentaire est le nom de ton sous-état
End Sub

[charliee]

Merci de ta réponse,
J'ai essayé mais il ne se passe rien. Peut être qu'il reste une chose qui m'échappe ? Je t'envoie ma structure complète contacts.accdb que tu jette un oeil, tu verras mieux où j'ai fauté !
Merci de ton aide

Contacts.zip

[Michael Guilloux]

Salut,
Il y avait des petits points à revoir:
Dans mon code, j'ai mis OpenTable au lieu de DbOpenTable, mais la plupart des problèmes se situaient au niveau de ta base, les noms prêtaient à confusion, dans ta table commentaire, tu as appelé la clé IDContact au lieu de IDCommentaire, en plus sur le bouton enregistrer, il y avait en même temps une macro et une procédure, donc la procédure ne pouvait pas être exécutée. Tu aussi créé 2 états pour la même table Commentaires et tu utilisait l'une pendant que dans le code, tu faisais référence à l'autre, bref... tu verras les différentes modifications que j'ai apportées, seulement aux noms et donc au code. Mais j'avoue que j'ai appris un petit quelque chose
Contacts.zip

[charliee]

C'est excellent c'est tout à fait çà ! Bravo Tu as vu, c'est pas mal en terme de rendu je trouve ça très propre !
Pour le coup, je vais maintenant m'entrainer et examiner le code car je voudrais avoir la même chose avec les factures clients que je voudrais faire apparaitre sur la même page !
Je reviens vers toi ici sous peu pour te dire si je m'en suis sorti mais merci énormément !
A très vite

[charliee]

Tout fonctionne à merveille pour un contact déja existant, en revanche quand j'entre une fiche client avec un champ commentaire, lorsque j'appuie sur le bouton il me met une erreur d'exécution 3201 disant que l'objet n'existe pas encore... Ce qui me semble normal puisqu'il n'a pas encore créer le contact à qui se rattache le commentaire ! Le tour de passe c'est qu'après avoir rempli les infos du contact tu clic sur le formulaire "commentaire" et ensuite tu clique dans la textbox en dessous, tu tape le texte et tu clique sur le bouton d'Envoi et la çà fonctionne...
Sais tu s'il y a moyen d'automatiser tout ça ?
Merci !

[Michael Guilloux]

Ajoute

Code :

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

Me.Commentaires.SetFocus

dans le code juste avant la ligne

Code :

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

TblCommentaire.AddNew

comme ça tu n'auras pas besoin de cliquer sur le formulaire Commentaires et après avoir renseigné un seul champ, tu pourras ajouter un commentaire sans problème

[charliee]

Merci, çà a l'air de très bien fonctionner maintenant ! Pour les factures, j'ai fais un formulaire à part au final car ça n'avait aucun intérêt de mettre une tonne de champs pour remplir la table Commandes. Par contre j'affiche l'état des commandes correspondant à ma fiche Contact en cours !