Denna VBA kod fungerar bra i Access2000 och 2003, men varför inte i Access2007. Programmet låser sig och kan bara lämnas med CTRL ALT DELETE + omstart.
Låsningen sker på raden efter "Else"

Dim frm As Form, Mnr As Long
Set frm = Forms!frmAb
Mnr = Nz(frm!Abmednr)

If Mnr = 0 Then
MsgBox "Har inget abonnemang", vbExclamation, "Ledig tid"

Else
DoCmd.OpenForm "FrmKontrakt2", , , "mednr =" & Mnr, acFormReadOnly
Forms!frmkontrakt2!Btyp = frm!Bbana

End If