Hej
Jag vill jämföra srtlimit med txtLimit i en körning mot databasen där labeln skall ändra backcolor om strlimit är mer eller mindre än txtlimit
men det funkar inte om txtlimit är mer än 10 >.

Min kod ser ut så här

Dim dbs As Database
Dim strlimit As Variant
Dim intCol
Dim rs As Recordset
Set rs = dbs.OpenRecordset("select count(Regnr) from tidserv where datum ='" & (LblLimit(0).Caption) & "' and Avd = '" & lblAvd.Caption & "'", dbOpenSnapshot)
strlimit = ""
While Not rs.EOF
For intCol = 0 To rs.Fields.Count - 1
strlimit = strlimit & rs.Fields(intCol)
Next intCol
rs.MoveNext
strlimit = strlimit
Wend
If (strlimit) < (txtlimit) Then
LblLimit(0).BackColor = vbBlue
End If
If (strlimit) >= (txtlimit) Then
LblLimit(0).BackColor = vbRed
End If
rs.Close

Vad gör jag för fel ??????

Tobbe

KAnske något sånt här fungerar:

Dim dbs As Database
Dim TextLength As Long
Dim TextLimit As Long
Dim rs As Recordset
Dim fldField As Field
TextLimit = 25
Set rs = dbs.OpenRecordset("SELECT Count(*) FROM tidserv WHERE datum = #" & Format$(LblLimit(0).Caption, "mm\/dd\/yyyy") & "# and Avd = '" & lblAvd.Caption & "'", dbOpenForwardOnly)
Do Until rs.EOF
For Each fldField In rs.Fields
TextLength = TextLength + Len(fldField.Value)
Next intCol
rs.MoveNext
Loop
If TextLength > TextLimit Then
LblLimit(0).BackColor = vbRed
Else
LblLimit(0).BackColor = vbBlue
End If
rs.Close

Tack för svaret löste det så här

if Strlimit >= Val(txtlimit.text) then
Lablel(0).BackColor=vbred
else
label(0).backColor=vbblue
end if

Mvh
Tobbe