Gegevens opzoeken tussen die zich bevinden tussen 2 datums (access2003)

[smko]

Hallo,

kan iemand mijn VBa code verder aanpassen. Ik wil gegevens gaan opzoeken in mijn boekhoud programma op datum. Wanneer ik 1 datum ingeef moet de enkel de gegevens van die datum te zien krijgen. Als ik de 2 zoek datum velden ingeef moet ik de gegevens terug vinden die zich bevinden tussen deze 2 datums. Velden noemen Me!DatVan en Me!DatTot en ze moeten zoeken in IngaveBoekhouding.[Datum]

Hier mijn vba code dat ik al gemaakt heb.

Private Sub Knop2_Click()

Dim SelStr As Variant, QryStr As Variant

SelStr = Null
If Not IsNull(Me!SelOmschr) Then SelStr = SelStr & IIf(IsNull(SelStr), Null, " AND ") & "((IngaveBoekhouding.[Omschrijving]) Like '*" & Me!SelOmschr & "*')"
If Not IsNull(Me!SelCodeInk) Then SelStr = SelStr & IIf(IsNull(SelStr), Null, " AND ") & " ((IngaveBoekhouding.[CodeIn]) Like '" & Me!SelCodeInk & "')"
If Not IsNull(Me!SelCodeUit) Then SelStr = SelStr & IIf(IsNull(SelStr), Null, " AND ") & " ((IngaveBoekhouding.[CodeUit]) Like '" & Me!SelCodeUit & "')"
If Not IsNull(Me!SelLidg) Then SelStr = SelStr & IIf(IsNull(SelStr), Null, " And ") & "((IngaveBoekhouding.[StamNrLidgeld]) ='" & Me!SelLidg & "')"
If Not IsNull(Me!SelRing) Then SelStr = SelStr & IIf(IsNull(SelStr), Null, " AND ") & "((IngaveBoekhouding.[StamNrRingen]) ='" & Me!SelRing & "')"
If Not IsNull(Me!SelMem) Then SelStr = SelStr & IIf(IsNull(SelStr), Null, " AND ") & "((IngaveBoekhouding.[StamNrMemberGallerij]) = '" & Me!SelMem & "')"
If Not IsNull(Me!SelDocNr) Then SelStr = SelStr & IIf(IsNull(SelStr), Null, " AND ") & "((IngaveBoekhouding.[Documentnr]) Like '*" & Me!SelDocNr & "*')"
'(Me!DatVan) IngaveBoekhouding.[Datum]
'(Me!DatTot) IngaveBoekhouding.[Datum]
If Nz(Me!BedrVan, 0) <> 0 Then SelStr = SelStr & IIf(IsNull(SelStr), Null, " AND ") & "((IngaveBoekhouding.[Bedrag]) >= " & Me!BedrVan & ")"
If Nz(Me!BedrTot, 0) <> 0 Then SelStr = SelStr & IIf(IsNull(SelStr), Null, " AND ") & "((IngaveBoekhouding.[Bedrag]) <= " & Me!BedrTot & ")"


QryStr = "SELECT IngaveBoekhouding.* FROM IngaveBoekhouding"
If Not IsNull(SelStr) Then QryStr = QryStr & " WHERE (" & SelStr & ")"
QryStr = QryStr & " ORDER BY IngaveBoekhouding.ID;"
Me!SubZoeken.Form.RecordSource = QryStr

End Sub

 

[OctaFish]

Met zoiets..

Const strcJetDate = "\#mm\/dd\/yyyy\#"  'Verander de code van de constante NIET.
    'Verander de waarden van de variabelen
    strDateField = "DatumVeld"
    StartDate = "Begindatum"
    EndDate = "Einddatum"
    'Build the filter string.
    If IsDate(Me(StartDate)) Then
        strWhere = "(" & strDateField 
        If IsDate(Me(EndDate)) Then 
            strWhere = strWhere & " >= " & Format(Me(StartDate), strcJetDate) & ")"
            If strWhere <> vbNullString Then strWhere = strWhere & " AND "
            strWhere = strWhere & "(" & strDateField & " <= " & Format(Me(EndDate), strcJetDate) & ")"
        Else
            strWhere = strWhere & " = " & Format(Me(StartDate), strcJetDate) & ")"
        End If
    End If

 

[smko]

Ik moet niet altijd exact gaan zoeken op datum, kan ook op een omschrijving zoeken of op een bedrag. Kan ook de combinatie zijn van een bedrag en een datum als voorbeeld.
Heb geprobeerd de database te uploaden maar lukt niet, ze is te groot zelfs bij een zip file.

 

[OctaFish]

Ik heb een stukje code gemaakt dat je kunt gebruiken i.p.v. de manier waarop je nu je filter samenstelt. Je kunt hem uiteraard nog steeds combineren met de andere filteringen. Omdat die niks met je vraag te maken hebben, heb ik die code verder niet aangepast, en dus ook niet herhaald. Leek mij niet nodig...
Je kunt je db eerst comprimeren, en dan met Winrar in brokken van 100 kb opsplitsen, die je dan wel kunt uploaden. Om e.e.a. te testen hebben we ook geen honderden records nodig; dus je kunt in de kopie die je wilt uploaden ook overtollige records verwijderen. (daarna wel weer comprimeren....).

 

[smko]

Wanneer ik mijn file wil uploaden krijg ik volgende foutmelding. foutmelding (500 [IOErrorEvent type="ioError" bubbles=false cancelable=false eventPhase=2 text="Error #2038"]). Wat doe ik verkeerd, rar file is maar 29kB groot

 

[OctaFish]

Geen idee... Probeer het anders eens bij MijnBestand.nl.

 

[smko]

is opgeladen : http://www.mijnbestand.nl/Bestand-R8OFQGSSWJYJ.rar

 

[smko]

Octafish heb je de database ontvangen

 

[OctaFish]

Yep! Heb er ook al naar gekeken, maar nog niet definitief. Zal kijken of ik er vandaag nog tijd voor heb...

 

[OctaFish]

Volgens mij voldoet-ie nu aan de specs...