Discussion :

[NathMaro]

j'ai un formulaire1 avec des champs renseignés et une case à cocher,
lorsque l'on coche la case, ça ouvre un formulaire2 avec un des champs déjà renseigné. là ça fonctionne :

Code :

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

1
2
3
4
Private Sub AoTrasfereTache_click()
DoCmd.OpenForm "F_TacheNouvAo", , , , acFormAdd
Forms("F_TacheNouvAo").TachAo = [ID Appel d'Offre]
End Sub

Mon problème, c'est que je souhaite avoir 2 autres champs renseignés dont 1 qui est une pièce jointe, et là ça ne fontionne pas du tout :

Code :

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

1
2
3
4
5
6
Private Sub AoTrasfereTache_click()
DoCmd.OpenForm "F_TacheNouvAo", , , , acFormAdd
Forms("F_TacheNouvAo").TachAo = [ID Appel d'Offre]
Forms("F_TacheNouvAo").TachCom = [ComPrenom]
Forms("F_TacheNouvAo").Pieces jointes = [AoPdf]
End Sub

Pour info je débute sur Access et en vba, et le code ci-dessus est peut etre incohérent... Merci

[madefemere]

Bonsoir,
Peut-être un petit problème d'écriture :

Code :

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

1
2
3
4
5
6
Private Sub AoTrasfereTache_click()
DoCmd.OpenForm "F_TacheNouvAo", , , , acFormAdd
Forms("F_TacheNouvAo").TachAo = [ID Appel d'Offre]
Forms("F_TacheNouvAo").TachCom = [ComPrenom]
Forms("F_TacheNouvAo").[Pieces jointes] = [AoPdf]
End Sub

IL FAUT EVITER LES ESPACES et CARACTERES SPECIAUX DANS LES NOMS D'OBJET (Contrôles,champs,tables,formulaires,...). Je te conseille de faire un tour ici pour approfondir tes connaissances là-dessus.

[NathMaro]

Bonjour,

Pour la TachCom j'ai fait correspondre l'identifiant en l'insérant de façon invible ds mon formulaire 1.
et pour les 2 premiers champs ( TachAo et TachCom), ça fonctionne.

Par contre impossible d'afficher dans le formulaire 2 la pièce jointe en pdf
avez-vous un solution ?
MERCI

Code :

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

1
2
3
4
5
6
Private Sub AoTrasfereTache_click()
DoCmd.OpenForm "F_TacheNouvAo", , , , acFormAdd
Forms("F_TacheNouvAo").TachAo = [IDAo]
Forms("F_TacheNouvAo").TachCom = [IDCommercial]
Forms("F_TacheNouvAo").PieceJointe = [AoPdf]
End Sub

[madefemere]

Bonsoir,

Je crois bien que manipuler les champs de type pièce jointe n'est pas évident.
Il y a un article de Christophe Warin ci-dessous qui détaille l'utilisation des champs en pièce jointe.
http://warin.developpez.com/access/piecejointe/
J'ai pas vraiment le temps d'y consacrer du temps pour le moment. Je te dirai si jamais tu n'avances pas là-dessus.

Bonne continuation

[Tofalu]

Pour lire les pdf, il vous faut utiliser le composant ActiveX Adobe PDF Reader