Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

SQL-statement

herman777
1 antwoord
  • Blijkbaar doe ik iets goed fout met mijn DLOOKUP-functie. (Zie Vorige vraag)
    Daarbij komt ook nog dat het systeem traag wordt. Dus zat ik te denken om een SQL-statement te gebruiken die de functie DLOOKUP combineert met de query.

    Mijn DLOOKUP-functie is:
    [code:1:ef972ddcfa]=DLookUp("[BeginSaldo]","qryKassaTotContantCum","[IDKassa]=" & [txtidkassa])[/code:1:ef972ddcfa]

    SQL van de query [b:ef972ddcfa]qryKassaTotContantCum[/b:ef972ddcfa] is:
    [code:1:ef972ddcfa]SELECT tblKassaForm.IDKassa, tblBedragKassa.Bedrag, tblKassaForm.Datum, tblKassaForm.Filiaal, tblBedragKassa.BetWijze, pfeindsaldo([betwijze],[filiaal],[datum]) AS EindSaldo, pfbeginsaldo([betwijze],[filiaal],[datum]) AS BeginSaldo
    FROM tblKassaForm INNER JOIN tblBedragKassa ON tblKassaForm.IDKassa = tblBedragKassa.KassaFormID
    ORDER BY tblKassaForm.Datum, tblKassaForm.Filiaal;
    [/code:1:ef972ddcfa]
    en de gebruikte [i:ef972ddcfa]public functions[/i:ef972ddcfa] zijn:
    [code:1:ef972ddcfa]
    Public Function pfEindSaldo(fstrBetWijze As String, fstrFiliaal As String, fdatDatum As Date) As Currency
    If fstrBetWijze <> "Contant" Then
    pfEindSaldo = 0
    Else
    pfEindSaldo = DSum("[Bedrag]", "qryKassaTotContant", "BetWijze = 'Contant' And Filiaal = '" & fstrFiliaal & "' And Datum <= #" & fdatDatum & "#")
    End If
    End Function


    Public Function pfBeginSaldo(fstrBetWijze As String, fstrFiliaal As String, fdatDatum As Date) As Currency
    If fstrBetWijze <> "Contant" Then
    pfbegingSaldo = 0
    Else
    On Error Resume Next
    pfBeginSaldo = DSum("[Bedrag]", "qryKassaTotContant", "BetWijze = 'Contant' And Filiaal = '" & fstrFiliaal & "' And Datum < #" & fdatDatum & "#")
    If Err.Number <> 0 Then
    pfBeginSaldo = 0
    On Error GoTo 0
    End If
    End If
    End Function
    [/code:1:ef972ddcfa]

    De SQL van de query [b:ef972ddcfa]qryKassaTotContant[/b:ef972ddcfa] is:
    [code:1:ef972ddcfa]SELECT tblBedragKassa.Bedrag, tblKassaForm.Datum, tblKassaForm.Filiaal, tblBedragKassa.BetWijze
    FROM tblKassaForm INNER JOIN tblBedragKassa ON tblKassaForm.IDKassa = tblBedragKassa.KassaFormID
    ORDER BY tblKassaForm.Datum, tblKassaForm.Filiaal;
    [/code:1:ef972ddcfa]

    Zelf krijg ik als ik een SQL samenstel het resultaat #Naam?

    Ik hoop dat iemand me verder kan helpen want mijn SQL is waardeloos

    Alvast bedankt!

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.