Hi

I have the the code below for opening a form with link  criteria.
need to open the form as read only..how?

Mattias

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open
   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "TransaktionshuvudDepo"
   
   stLinkCriteria = "[Transaktionsnr]=" & Me![Transaktionsnr]
 DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Form_Open:
   Exit Sub

Err_Form_Open:
   MsgBox Err.Description
   Resume Exit_Form_Open

End Sub