Нажмите на запись в форме, чтобы перейти к соответствующей записи в той же форме - PullRequest
Новая
       11

Нажмите на запись в форме, чтобы перейти к соответствующей записи в той же форме

0 голосов
/ 08 июля 2019

Ищите способ щелкнуть запись в форме, а затем перейти к другой записи в той же форме.

Пример: есть форма, в которой перечислены продукты и соответствующие записи вместе с этим продуктом.Одна из записей - это поле «Заменено».Который покажет, какие прошлые продукты он заменил.

Я хочу иметь возможность щелкнуть в поле Replaced и перейти к этой записи продукта.

txtProduct: Iphone6
txtReplaced: Iphone5 (click on Iphone5) -> and then shows

txtProduct: Iphone5
txtReplaced: Iphone4

Я посмотрел в GoToRecord и FindRecord.Думая, что лучший способ сделать это - поместить код vba в процедуру события On Click, используя один из них для txtReplaced.Просто не уверен, как это сделать

EDIT, чтобы включить попытку использования RecordsetClone.Это теперь дает мне ошибку, что он не может найти запись, когда я знаю, что она там.Любое понимание того, что я делаю неправильно? 

Private Sub txtSupersedes_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.RecordsetClone
rs.FindFirst "[Model]='" & Me.txtSupersedes.Value & "'"
If rs.NoMatch Then
    MsgBox "Sorry, could not find Model '" & txtSupersedes & "' ", vbOKOnly, vbInformation
Else
    Me.Bookmark = rs.Bookmark
End If
rs.Close

End Sub

1 Ответ

0 голосов
/ 09 июля 2019 
Private Sub txtSupersedes_DblClick(Cancel As Integer)

Dim rs As Object
Dim txtValue As String

txtValue = Me![txtSupersedes].Value


With Me.Parent.Form

    Set rs = .RecordsetClone
    rs.FindFirst "[Model]= '" & txtValue & "'"
    If rs.NoMatch Then
        MsgBox "Sorry, could not find Model '" & txtSupersedes & "' ", vbOKOnly, vbInformation
    Else
        .Bookmark = rs.Bookmark
    End If
    rs.Close

End With

End Sub
...