Tæl antal i enkelt post

DCount("*", "Tabelnavn", "[FELTNAVN]= '" & E & "' And [ID]= " & Me.ID & "")

Feltnavn er det felt der indeholder værdien E og ID er et numerisk udtryk for personens unikke id i tabellen.

Tæller den ikke hvor mange rækker der indeholder et "E" i en kolonne?
- Jeg skal bruge antallet af "E" i hver enkelt række.
          spm1; spm2; spm3; osv
bruger et:  A      E    E

Altså hvis ovenstående ikke er helt umuligt at se, skal svaret være 2..

Det er lidt svært at formulere, men er det forståeligt?

Her er spørgsmålet igen lidt bedre formuleret:

Hvordan tæller jeg antallet af KOLONNER med en værdi på "E" hvor hver række i en tabel? (Der er 56 kolonner i hver række)

Sådan har jeg også forstået det. Hvis formularens felt Id er = 1 (bruger 1), så burde svaret også blive 2.
Har du afprøvet min kode?

Hej Mugs
Ok.. Jeg kan ike få den til at virke. Jeg skal sætte den ind i en forespørgsel, ikke?
Tabelnavnet er Spm  og hvert helt hedder spm1 spm2 osv, indtil spm56. Den skal søge efter værdier på "E".
Hvad skal jeg skrive i Feltnavn? - Den skal jo søge i alle 56 feltnavne..?

Jeg har indsat følgende udtryk:
Expr1: DCount("*";"Spm";"[spm1]= '" & [E] & "' And [SpmID]= " & [Me].[SpmID] & "")
Når jeg kører den, spørger den efter "Enter parameter value" og med Gråt: E
og sidst spørger den efter me.spmid... :-(

Det er fordi du forsøger at indsætte min kode som er VBA i en forespørgsel som prograsmmeres i SQL.
Jeg har overset det med de mange spørgsmål, arbejder lidt videre.

Du får lige en grovstruktur:

Sub Test_TælEer()
  Debug.Print "----------"
  Debug.Print Tæl("1", "E")
End Sub

Function Tæl(ID As Long, Værdi As String) As Integer
  Dim DummyRst As Recordset
  Dim i As Integer
 
  Tæl = 0
  Set DummyRst = CurrentDb.OpenRecordset("SELECT * FROM Tabel3 WHERE ID=" & ID)
  With DummyRst
    For i = 1 To .Fields.Count - 1
      If .Fields(i).Value = Værdi Then Tæl = Tæl + 1
    Next i
    .Close
  End With
 
  Set DummyRst = Nothing
End Function

Er på arbejde - det ser helt rigtigt ud. Glæder mig til a komme hjem og prøve det! :-)

fdata you´re my man!
Det virker fantastisk.

Jeg var selv gået i gang med at lave en funktion, hvor jeg i en forespørgsel skulle medsende værdierne fra samtlige kolonner.. Det virkede også, i hvert fald indtil spm20 hvor jeg stoppede for lige at teste din fuktion.
Men det er også lidt snyd, du har brugt tryllerier jeg aldrig har hørt om (with..)

Tak for hjælpen og god weekend til alle

Hilsen Tore

Tjah, hvad skal jeg sige. Snyd og trylleri = erfaring  ;o)
Tak for de pæne ord.
(Husk at lukke spm.)