beste forummers,
omdat officeforum gehacked is en niet meer te bereiken is
kom ik mijn vraag hier stellen;
de code die hier onderstaat laat een rapport
zien van gezochte records die in een keuzelijst staan;
het feit is dat ik alle; menubalken, speciale access toetsen, rechtermuisknoppen en etc...
heb afgesteld bij "opstarten" ; dus kan ik dat rapport niet meer afprinten;
welke VBA code moet ik aan mijn onderstaand functie toevoegen dat
wanneer ik erop druk dat die automatisch dit rapport laat zien in Ms Word
en dat ik dan daar kan opslaan/verwerken... maw de Word-opties kan op
toepassen
---------------------------------------------------------------------------------------------------------------------------------
Private Sub cmdRapportGezocht_Click()
On Error GoTo Err_cmdRapportGezocht_Click
If strSQL = "" Then
MsgBox " Gelieve eerst gegevens te zoeken."
Exit Sub
End If
Dim stDocName As String
Dim lst As QueryDef
Set lst = CurrentDb.QueryDefs("qryOverzicht")
lst.SQL = Me.KzlActiesss.RowSource
stDocName = "rptGezochte"
DoCmd.OpenReport stDocName, acPreview
Set lst = Nothing
Exit_cmdRapportGezocht_Click:
Exit Sub
Err_cmdRapportGezocht_Click:
MsgBox err.Description
Resume Exit_cmdRapportGezocht_Click
End Sub
-----------------------------------------------------------------------------------------------------------------------------------
Mvg
Veerle
omdat officeforum gehacked is en niet meer te bereiken is
kom ik mijn vraag hier stellen;
de code die hier onderstaat laat een rapport
zien van gezochte records die in een keuzelijst staan;
het feit is dat ik alle; menubalken, speciale access toetsen, rechtermuisknoppen en etc...
heb afgesteld bij "opstarten" ; dus kan ik dat rapport niet meer afprinten;
welke VBA code moet ik aan mijn onderstaand functie toevoegen dat
wanneer ik erop druk dat die automatisch dit rapport laat zien in Ms Word
en dat ik dan daar kan opslaan/verwerken... maw de Word-opties kan op
toepassen
---------------------------------------------------------------------------------------------------------------------------------
Private Sub cmdRapportGezocht_Click()
On Error GoTo Err_cmdRapportGezocht_Click
If strSQL = "" Then
MsgBox " Gelieve eerst gegevens te zoeken."
Exit Sub
End If
Dim stDocName As String
Dim lst As QueryDef
Set lst = CurrentDb.QueryDefs("qryOverzicht")
lst.SQL = Me.KzlActiesss.RowSource
stDocName = "rptGezochte"
DoCmd.OpenReport stDocName, acPreview
Set lst = Nothing
Exit_cmdRapportGezocht_Click:
Exit Sub
Err_cmdRapportGezocht_Click:
MsgBox err.Description
Resume Exit_cmdRapportGezocht_Click
End Sub
-----------------------------------------------------------------------------------------------------------------------------------
Mvg
Veerle