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
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