Hej

Jag vi skapa en funktion som räkna antalet poster i en tabell med ett specifikt id.

I tabellen förekommer idnumret flera gånger

ProgamID är en textfält som får ett värde. När tetxtboxen för sin focus så skall det köras en sql fråga som räknar ut antale av samma id nummer som förkommer i tabellen. Detta skall sedan presenteras i ett textfält som heter antal...

Private Sub ProgramId_GotFocus()

Dim tmpProgID As Integer
Dim iSumma As String
Forms!frmProgram!ProgramID.SetFocus

tmpProgID = Str(Forms!frmProgram!ProgramID.Text)
' SELECT COUNT(spelid) As iSumma FROM spelstat WHERE spelid="TEN"

SQL = " select Count(ProgramID) As iSummma from tabProgram where ProgramID=(' " & tmpProgID & " ');"
CurrentDb.Execute SQL

Forms!frmProgram!AntalPoster.SetFocus
Forms!frmProgram!AntalPoster.Text = Int(iSumma)

End Sub

1. iSummma med tre m?
2. Du överför inte resultatet av sql-frågan till variabeln iSumma.

<code>
dim rs as adodb.recordset

SQL = " select Count(ProgramID) As iSummma from tabProgram where ProgramID=(' " & tmpProgID & " ');"
set rs = CurrentDb.Execute(SQL)

isumma = rs("iSumma").value
rs.close
set rs = nothing

Forms!frmProgram!AntalPoster.SetFocus
Forms!frmProgram!AntalPoster.Text = Int(iSumma)
</code>