typefejl 13

den stopper ved set rec = xxxx med fejlen type mismatch.

er variablen find_usertype den samme som usertype i din tabel??

altså datatype!

...og du havde sat en reference til DAO?
Er det Access 2000 eller 97?

Kommer den med fejl, hvis du kompilere koden?

Hvad er find_usertype? Et felt på formualaren?

xp( men 2000 version)
DAO ja DAO 3.6
det er ikke ved find_user den går ged , det er recordset der er problemet.
den laver også ged idenne kode
-.-----------------


sql = "SELECT * FROM tbl_Brugerstamdata WHERE uid =" & t_pid



Set db = CurrentDb()
Set rec = db.OpenRecordset(sql, dbOpenDynaset, dbReadOnly)





If IsNull(rec.Fields("currentpass")) Or rec.Fields("currentpass") = "" Then
stDocName = "Nypass"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
Do
select_pass = rec.Fields("currentpass")
select_pass_init = rec.Fields("initpass")
Exit Do
Loop

---------------

Ahh, nu tror jeg at jeg ved det: Har du OGSÅ en reference til ADO?

I så fald skal erklæringen se således ud:
Dim rec As DAO.Recordset

Ellers tror den jo som udgangspunkt at det er et ADO-recordset og derfor er syntaksen forkert i Set rec = ...

tror du har ret prøver lige ..... jeg har fjernet den reference ADO , men det kan være den ikke helt er væk ..

nope det virkede heller ikke...

jo nu kom den , ved ikke lige helt hvorfor den gemte den gamle ref..

Men du får ingen fejl, hvis du kompilerer koden?

nice! :) Thnx

tak for hjælpen men ....hvorfor gemmer den ,den gamle ref..?