bookmarks fra en form til en anden
Hejjeg har lavet dette i en formular som er en tabel formular, der er en masse poster under hinanen og jeg kan godt får det at at virke på et felt i en record, men jeg ville gerne have det virker på alle felter i formularen.
Private Sub Frequency_Average_DblClick(Cancel As Integer)
DoCmd.Close acForm, "qry_rettetdata"
DoCmd.OpenForm "qry_rettetdata", acNormal, , , acFormReadOnly, acWindowNormal, Me.Frequency_Average
End Sub
Private Sub PRI_Average_DblClick(Cancel As Integer)
DoCmd.Close acForm, "qry_rettetdata"
DoCmd.OpenForm "qry_rettetdata", acNormal, , , acFormReadOnly, acWindowNormal, Me.PRI_Average
End Sub
i den formular den åbener gør den dette:
Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Dim auto As Long
Dim rs As Object
Set rs = Me.Recordset.Clone
auto = Val(Me.OpenArgs)
rs.FindFirst "[Frequency Average]=" & auto
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End If
End Sub
og det virker også ok, men Frequency Average kolonen men ikke hvis jeg doubler klikker på PRI average kolonen så virker det ikke. nogen som har et godt bud ????
/lars