Discussion :

[Eric26]

Bonjour,

Voilà mon problème : dans 1 BDD que j'ai réalisé grâce ce forum (et dont je remercie encore les membres), je souhaiterais éditer un état depuis 1 formulaire et AVEC les données de ce formulaire, sachant que dans ce formulaire il y a 1 photo que je souhaiterais retrouver dans l'état.

Suis-je assez claire ou ???

Jusqu'à aujourd'hui, je faisais 1 fusion à partir de word avec les données du formulaire, et pour la photo, et bien, j'allais la chercher dans un dossier puis je l'insérais au doc word : mais franchement, ça commence à devenir lourd.

Je rappelle que c'est une pour une petite boîte (PME) pour laquelle je travaille : donc c'est pour me rendre la tâche un peu plus facile que je demande tous ces conseils.


Merci encore

[RGShoop]

Salut,

Il te suffit de créer ton état et puis d'ajouter un bouton qui lance ton état depuis ton formulaire. Si tu veux qu'un enregistrement spécifique apparait dans ton état, il faut définir un identifiant unique de tes enregistrements puis en fonction de cet identifiant lancer ton état.

exemple :
le code du bouton pour lancer ton état sans enregistrements spécifiques sera :

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 Commande2_Click()
On Error GoTo Err_Commande2_Click
 
    Dim stDocName As String
 
    stDocName = "Nom de ton état"
    DoCmd.OpenReport stDocName, acPreview
 
Exit_Commande2_Click:
    Exit Sub
 
Err_Commande2_Click:
    MsgBox Err.Description
    Resume Exit_Commande2_Click
 
End Sub

Le code sur ton enregistrement spécifique sera :
ID_Question est un champs qui identifie l'enregistrement du coté formulaire mais aussi du côté Etat.

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
17
18
Private Sub Commande2_Click()
On Error GoTo Err_Commande2_Click
 
    Dim stDocName As String
    Dim stCriteria as String
 
stcriteria="[Id_Question]=" & Me.ID_Question
 
    stDocName = "Questionnaire"
        DoCmd.OpenReport stDocName, acPreview, , stcriteria
Exit_Commande2_Click:
    Exit Sub
 
Err_Commande2_Click:
    MsgBox Err.Description
    Resume Exit_Commande2_Click
 
End Sub

A+ RG

[Eric26]

Juste une question avant de me lancer (car je suis encore un novice et en code je n'y connaît pratiquement pas grand chose) :

Est-ce que avec ces codes, la photo du formulaire sera insérée dans l'état ?

Je résume :
En fait, il s'agit de fiches individuelles en qq sorte : ce sont des enregistrements bien distincts (avec n° unique pour chacun) qui se trouvent dans le formulaire (F_Salaries).

Dans les enregistrements du formulaire on yenregistre toutes les données relatives aux salariés et on y inclut bien sûr leur photo.

Dans l'état je voudrais éditer une carte professionnelle avec certaines données tirées du formulaire et surtout y inclure la photo.

merci

[RGShoop]

Regarde dans le post ci-joint:

http://www.developpez.net/forums/sho...imprimer+image


a+ RG

[Eric26]

Un petit coup de main svp :

Faut-il copier ce code dans mon état :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
  If IsNull(Me![TTAPicture]) Then
    Me![im1].Picture = ""
    Me![im1].Visible = False
  Else
    Me![im1].Picture = Me![TTAPicture]
    Me![im1].Visible = True
  End If
End Sub

Ou bien balancer le même code que j'ai dans mon formulaire (par cafeïne)

Merci

[RGShoop]

salut,

Le champs [TTAPicture] contient le chemin à la photo ?
Si oui, c'est cela, sinon il te faut le champs qui contient cette information,

A+ RG

[Eric26]

OK j'ai réussi à éditer toutes les données (y compris la photo) à partir du formulaire.

Par contre, pour réduire la taille de la photo à la taille du cadre dans l'état, je n'ai pas compris le post suivant sur le sujet (trop compliqué pour moi) : http://www.developpez.net/forums/sho...t=image+taille

Si quelqu'un pouvait m'aider

Merci

[Eric26]

Oups!!!

http://www.developpez.net/forums/sho...t=image+taille

Désolé

[RGShoop]

Salut,

Tu prends le code rédigé par Arkham46, que tu copies dans un module.

Ensuite sur l'événement Sur formattage de l'état, au lieu de faire :

Code :
Me.Image0.Picture = "C:\Chemin\MonImage.JPG"

tu fais

Code :
ChargeImageReduite "C:\Chemin\MonImage.JPG", Me.Image0

Et ton image est redimensionnée en fonction de la taille de Me.image0 qui est ton contrôle Image indépendant.

A+ RG

[Eric26]

Magnifique, ça marche

Merci à tous.

J'ai repris une partie du code de Caféïne (DisplayPhoto) et ça marche

A bientôt