List vælg current record.

try using the wizard to creat a new listbox which finds a record on your form thsi will show the code needed

nope virker ikke .... Den vælger stadig nt. 1


Private Sub List0_AfterUpdate()
  Dim rs As Object
    Dim cpr As String
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Cprnr] = '" & Me![List0].Column(0, 1) & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

cpr = Me.List0.Column(0, 1)  'Me.Bookmark
'DoCmd.Close
'DoCmd.OpenForm "frm_journal", , , cpr
End Sub

kan man ikke gøre det så man kan bruge en dialog-boks til at vælge fra istedet for at den liste skal være på den pågældende formular..

jeg kan godt få det til at virker hvis vi sætter den ind på det aktuelle form .....

nu virker det , .. ved ikke ligepræcis hvorfor det ikke ville virker før..