[Access2000] Datum uit stLinkCriteria

[Sherlock]

Hoi mensen, ik zit al een tijdje tegen het volgende probleem aan te hikken:

In een database heb ik een formulier waarop je een aantal dingen kunt selecteren, zoals datum van en datum tot, klant(en) en product(en). De laatste twee zijn combolistboxes.

De code die onder de knop OK zit (zonder opmerkingen vanwege de layout) is de volgende:

code:

Private Sub cmdOK_Click()
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim ctl As Control
    Dim varItem As Variant
    Dim FromDate As Date
    Dim ToDate As Date
    Dim rst As DAO.Recordset

    FromDate = Me.txtBegindatum
    ToDate = Me.txtEinddatum
    stDocName = "rptKlantenkaart"
    stLinkCriteria = "[Datum] Between #" & Format(FromDate, "mm-dd-yy") _
& "# AND #" & Format(ToDate, "mm-dd-yy") & "#"
   
         
    Set rst = CurrentDb.OpenRecordset("tblGeselecteerdeKlanten")
    Set ctl = Me.cboKlant

    Call DeleteData

    For Each varItem In ctl.ItemsSelected

        With rst
        .AddNew
        !KlantNaam = ctl.ItemData(varItem)
        .Update
        End With
    
    Next varItem
    
    Set rst = CurrentDb.OpenRecordset("tblGeselecteerdeProducten")
    Set ctl = Me.cboProduct
          
        For Each varItem In ctl.ItemsSelected

        With rst
        .AddNew
        !ProductNaam = ctl.ItemData(varItem)
        .Update
        End With
    
    Next varItem
              
    DoCmd.Close
              
    Set rst = CurrentDb.OpenRecordset("SELECT DISTINCTROW Gegevens.Klant, _
Gegevens.Product, Gegevens.Datum " _
& "FROM tblGeselecteerdeProducten INNER JOIN (tblGeselecteerdeKlanten INNER _
JOIN Gegevens ON tblGeselecteerdeKlanten.KlantNaam = Gegevens.Klant) ON _ 
tblGeselecteerdeProducten.ProductNaam = Gegevens.Product " _
& "GROUP BY Gegevens.Klant, Gegevens.Product, Gegevens.Datum " _
& "HAVING (((Gegevens.Datum) Between #" & Format(FromDate, "mm-dd-yy") _
& "# And #" & Format(ToDate, "mm-dd-yy") & "#));")
    
    If rst.RecordCount > 0 Then
         DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria
    Else
        MsgBox "Er zijn geen gegevens geselecteerd!", vbOKOnly + _
vbInformation, "Melding"
    End If
        
    Set rst = Nothing
    Set ctl = Nothing
               
End Sub

Wat ik nu wil is de datum van en de datum tot eruit halen, om in een rapport te plaatsen. Ik denk dat dit het makkelijkste is door ze in een aparte hulptabelte plaatsen, net zoals bij de producten en de klanten gebeurt. Die code die daarvoor gebruikt wordt is echter voor een combobox, en dat zijn die twee datumvelden niet.

Hoe plaats ik die datumvelden nu in die hulptabel?

[Force]

Waarom een hulp tabel ?

Waarom basseer je je rapport niet gewoon op een query. In die query verwijs je in je criteria dan naar naar de velden op je scherm bv: =[forms]![formuliernaam]![veldnaam]

[Sherlock]

Omdat ik dan met het probleem van de combolistboxen zit. Op zich denk ik dat dit één van de handigere oplossingen is, behalve dan dat ik nu met die datum aan zit te klieren.

[Sherlock]

Oké, je hebt moeilijk doen en je hebt moeilijk doen:

code:

Set rst = CurrentDb.OpenRecordset("tblDatum")
        With rst
        .AddNew
        !Begindatum = txtBegindatum
        !Einddatum = txtEinddatum
        .Update
        End With

Werkt perfect!