Mensen uitnodigen voor een meeting vanuit Acces formulier en reports mailen

[Puk1980]

Beste,

Ik ben een projectmanagement formulier aan het maken waarin het volgende wil:
1. Mensen uitnodigen voor een meeting in Microsoft Outlook
2. Reports mailen maar dan verstuurd ie alle records en ik wil er maar 1 versturen (alleen het record waar op dat moment aan gewerkt wordt)

Ik ben benieuwd naar tips!

groet
Marijke

 

[ReneDirks]

1. Mensen uitnodigen voor een meeting in outlook express

Bedoel je een mail sturen? Of een echte uitnodiging? dat gaat namelijk nooit lukken met Outlook Express, alleen met Outlook.

Om dit te kunnen maken zul je toch wel wat VBA kennis moeten hebben..

Reports mailen maar dan verstuurd ie alle records en ik wil er maar 1 versturen (alleen het record waar op dat moment aan gewerkt wordt)

Als je een rapport opent kun je criteria meegeven, bv:

DoCmd.OpenReport "Rapport", acPreview,"DebNr=100"

 

[Puk1980]

Beste René

Bedoel je een mail sturen? Of een echte uitnodiging? dat gaat namelijk nooit lukken met Outlook Express, alleen met Outlook. --> ik bedoelde inderdaad Outlook.

Om dit te kunnen maken zul je toch wel wat VBA kennis moeten hebben.... --> hmmm. Kan wel even on hold


Als je een rapport opent kun je criteria meegeven, bv:

DoCmd.OpenReport "Rapport", acPreview,"DebNr=100"

--> als ik in mijn form sta wil ik op een knop drukken zodat ie het huidige record in een report mailt. Nu heb ik dat ie een report van alle records mailt.


groet
marijke

 

[ReneDirks]

Hoi Marijke,

Kun je de code die onder die knop staat even plaatsen?

 

[Puk1980]

Ik geloof dat je dit bedoeld ;-)

Option Compare Database

Private Sub RequestProjectnumber_Click()
On Error GoTo Err_RequestProjectnumber_Click

Dim stDocName As String

stDocName = "Request Projectnumber"
DoCmd.SendObject acReport, stDocName

Exit_RequestProjectnumber_Click:
Exit Sub

Err_RequestProjectnumber_Click:
MsgBox Err.Description
Resume Exit_RequestProjectnumber_Click

End Sub
Private Sub FOBCIF_Click()
On Error GoTo Err_FOBCIF_Click

Dim stDocName As String

stDocName = "Request FOB/CIF"
DoCmd.OutputTo acReport, stDocName

Exit_FOBCIF_Click:
Exit Sub

Err_FOBCIF_Click:
MsgBox Err.Description
Resume Exit_FOBCIF_Click

End Sub
Private Sub RFOBCIF_Click()
On Error GoTo Err_RFOBCIF_Click

Dim stDocName As String

stDocName = "Request FOB/CIF"
DoCmd.SendObject acReport, stDocName

Exit_RFOBCIF_Click:
Exit Sub

Err_RFOBCIF_Click:
MsgBox Err.Description
Resume Exit_RFOBCIF_Click

End Sub
Private Sub Command55_Click()
On Error GoTo Err_Command55_Click

Dim stDocName As String

stDocName = "Macro1"
DoCmd.RunMacro stDocName

Exit_Command55_Click:
Exit Sub

Err_Command55_Click:
MsgBox Err.Description
Resume Exit_Command55_Click

End Sub
Private Sub Command63_Click()
On Error GoTo Err_Command63_Click

Dim stDocName As String

stDocName = "Request Projectnumber"
DoCmd.SendObject acReport, stDocName

Exit_Command63_Click:
Exit Sub

Err_Command63_Click:
MsgBox Err.Description
Resume Exit_Command63_Click

End Sub

 

[ReneDirks]

Precies dat bedoelde ik
Maar omdat je het rapport wilt versturen kun je helaas geen gebruik van de filter maken. Dan zou het als volgt moeten:
Ik ga ervan uit dat je formulier waar de knoppen op staan Form1 heet, en dat de PK van de projecten ProjectID heet; anders kun je dit uiteraard zo weer aanpassen

In het rapport:

Private Sub Report_Open(Cancel As Integer)
  Me.Filter = "ProjectID=" & Forms("Form1").ProjectID
  Me.FilterOn = True
End Sub

 

[Puk1980]

Beste Rene,

Hartelijk dank hiervoor. Ik begrijp alleen niet zo goed waar ik deze tekst moet plaatsen. Moet ik een event maken of een macro in het rapport oid? of moet dit onder de knop erbij komen?

Groet
Marijke

 

[ReneDirks]

Als je het rapport opent in ontwerpweergave kun je bij Eigenschappen een tabblad Gebeurtenissen zien. Als je op de knop met ... drukt naast 'Bij Openen' dan krijg je automatisch de eventhandler te zien

Private Sub Report_Open(Cancel As Integer)

End Sub

Je hoeft dus alleen maar de code hier tussen te plaatsen.
Succes

 

[Puk1980]

Beste Rene,

Ik krijg nu de melding:
Private Sub Report_Open(Cancel As Integer)
Me.Filter = "ProjectID=" & Forms("Totaal overzicht").ProjectID
Me.FilterOn = True
End Sub

En dan zegt de melding dat hij de Form Totaal overzicht niet kan vinden

vreemd...?

groet
Marijke

 

[ReneDirks]

Hoi Marijke,

Heet je form dan ook "Totaal overzicht"? Of is dat de naam van het rapport? Je moet daar namelijk de naam van het formulier waar je de selectie op maakt instellen. Dus als je formulier FRM_SelectProject heet dat zou het worden:

Private Sub Report_Open(Cancel As Integer)
  Me.Filter = "ProjectID=" & Forms("FRM_SelectProject").ProjectID
  Me.FilterOn = True
End Sub

Controleer ook even of het veld inderdaad ProjectID heet, ik heb deze namen maar ter illustratie gebruikt!