"SpookiePower" <boxjunk2600@hotmail.com> wrote:
| Har jeg lavet en uendelig lykke, eller
| hvad sker der som jeg ikke selv kan se ?
|
|
| do while not objRSEgenPlacering.eof
| I = I+1
| If objRSEgenPlacering.fields("medarbejdernummer") =
| session("medarbejdernummer") then
| Plads = I
| else
| objRSEgenPlacering.MoveNext
| end if
| loop
Prøv dette:
do while not objRSEgenPlacering.eof
I = I+1
If objRSEgenPlacering.fields("medarbejdernummer").Value =
session("medarbejdernummer") then
Plads = I
end if
objRSEgenPlacering.MoveNext
loop
rs.MoveNext må ikke plasseres inne i en If-Then, da blir den ikke alltid
utført. Plasser den helt nederst, da oppnår du "uendelig lykke"
Bruk også rs.Fields("Fieldnavn").Value = ..
terje