Link problemer mellem formularer
Jeg har en form med en listbox, hvor jeg kan vælge post ud fra listboxen. Koden er følgende (after update):Private Sub SiteList_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[SiteID] = '" & Me![SiteList] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Den virker fint og er lavet med guiden.
I en anden form som er fortløbene, har jeg lavet en funktion som åbner den post som man dobbelt-klikker på, i den første form. Altså når man dobbelt-klikker på en post i form 2 åbner posten i form 1. Følgende kode er brugt:
Private Sub Detail_DblClick(Cancel As Integer)
On Error GoTo Err_Detail_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Site"
stLinkCriteria = "[ID]=" & Me![ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Detail_Click:
Exit Sub
Err_Detail_Click:
MsgBox Err.description
Resume Exit_Detail_Click
End Sub
Dette virker også fint.
Problemet er, at linken mellem min listbox og felterne i form 1 ikke virker efter at jeg har klikket på en post i form 2. Det virker som om at jeg har mistet linket. Jeg bliver nød til at lukke og åbne form 1 før at den virker igen.
Hvad skal jeg tilføje i den første kode for at gen-etablere link mellem listbox og felterne på form 1?