Dcount med 2 parametre

...ups SQL hel Wrong :)


SELECT tblBrugere.Brugernavn, tblBrugere.TilhoersforholdRef, tblBrugere.Notes
FROM tblBrugere
WHERE (((tblBrugere.TilhoersforholdRef)="Basis") AND ((tblBrugere.Notes)=True));

Eksempel på Dcount med 2 kriterier, hvor Felt1 er tekst og Felt3 er Ja/Nej:

DCount("*", "Tabel1", "[Felt1] = 'A' And [Felt3] =True")

Ps.: Db15

Hi Mugs

mjo den har jeg kigget i LOL

MEN...
DCount("*", "tblBrugere", "[TilhoersforholdRef] = 'Basis' And [Notes] =True")

giver den åndede fejl #Navn?

udskifter jeg kommaerne med et ; får jeg resultatet 0...... :(

Din kode virker perfekt her i Access97. Testdb? E-mail!

Jeg har kopieret dine navne på tabel / felter samt kode. check at du har stavet tabel samt feltnavne korrekt. (Men det har du selvfølgelig gjort) :o)

...hehe jeps har tjekket - er Access2000. Har prøvet med en compact and repair - hjælper inte :(

mail.... sbbl@odense.dk ca til 18:30, derefter på susbbl@hotmail.com thnx :)

Jeg har lavet min egen lille routine til dette.


Function bCount(Field As String, Table As String, Where As String) As Integer
On Error GoTo Err_Error
    ' Ex. bCount("*","Article","StyleNo = '024-24' OR ID=15")
    ' Search only in current database when open.
   
    Dim Result As Variant
    Dim SQL As String
    Dim rst As New ADODB.Recordset
   
    SQL = "SELECT COUNT(" + Field + ") FROM " + Table + " WHERE " + Where
    rst.Open SQL, CurrentProject.Connection
        Do While Not rst.EOF
            If Result > "" Then
                Result = Result + ";"
            End If
            Result = Result + Left$(rst.Fields(Field), 200)
            rst.MoveNext
        Loop
    rst.Close
    Set rst = Nothing
   
    bCount = Result

Err_Exit:
    Exit Function
   
Err_Error:
    MsgBox "Utility_Funtions.bCount"

End Function


Den burde være de 30 point værd.

Mvh Jan

jan > har ikke afprøvet din kode, men det kan ikke være meningen at man skal ind i en fejlhåndtering med en simpel Dcount funktion.

Brugeren skal simpelthen kunne lave en Dcount som der er spurgt om!
Jeg er overbevist om, at det skyldes en banal lille fejl.

=DCount("*";"tblBrugere";"TilhoersforholdRef ='Basis' And Notes = True")

mhh vierd - måske det skyldes du har koden i VBA og jeg har den på en form (ubunden tekstfelt) - nja .... ve ikk´´. Har sendt dig et lille eksempel ....

you can also try
=DCount("*";"tblBrugere";"TilhoersforholdRef = ""Basis"" And Notes = True")

eksempel modtaget - men konverter venligst til Access97

LOL Y´ve done it again Terry ;0)... Always seem to get lost using those "' .... or rather not using them at all :)

:) mugs sorry - here we go again - Access97

denne her virker

=DCount("*";"tblBrugere";"TilhoersforholdRef ='Basis' And Notes = True")

...hæver lige p lidt, da mugs også skal have lidt for ulejligheden :)

thanks Susanne, yes good idea giving mugs some points too, he needs em if he is ever to get into third place :o)

terry > THANK YOU!!!! :o) :o)

:) takker for hjælpen