Fout in VBA code wie kan mij helpen

• 

  Bas

  17-05-2005 13:44

  Hallo

  Wat doe ik fout, door het drukken op een knop filter ik gegevens die in een rapport komen te staan en die wil ik versuren via de mail, alleen nadat ik heb aangegeven dat ik deze gegevens echt wil versturen worden niet de gefilterde gegevens verstuurd maar alle gegevens. Wie weet er wat ik fout doe. Dit is mijn code:

  Private Sub Knop17_Click()

  Dim strWeeknummer As String, strFilter As String

  strWeeknummer = InputBox(“Voer hier het weeknummer”, _ “Weeknummer”)

  If strWeeknummer = “” Then

  GoTo exit_deze_sub

  End If

  strFilter = " = “”“ & strWeeknummer & ”“” "

  strWeeknummer = MsgBox(“Wilt u deze lijst verzenden ?”, vbYesNo + vbDefaultButton2 + vbQuestion, “Verzenden”)

  If strWeeknummer = vbYes Then

  DoCmd.SendObject acReport, “Rapport1”, “RichTextFormat(*.rtf)”, “Email adres”, “”, “”, “Onderwerp”, “”, False, “”

  End If

  exit_deze_sub:

  Exit Sub

  End Sub
• 

  RV2

  17-05-2005 21:31

  Eers via DoCmd.OpenReport je rapport openen.

  Geef strFilter mee als parameter in OpenPeroprt.

  Daarna SendObject uitvoeren.

  Daarna rapport sluiten.

  RV2
• 

  Bas

  18-05-2005 20:51

  Beste RV2

  Ik kom er niet uit, kun je het geen wat jij bedoeld toevoegen aan mijn code ?

  Gr. Bas