GoToRecord passing a condition

[v.bon]

Is there a way where you can write some code that says:
GoToRecord WHERE PrimaryKey=Variable

This will then change the record displayed in main form.

Any Ideas?

 

[Minty]

Many ways - Assuming your form is bound to the table then try this is one;

    Dim rs              As Recordset

    If Not IsNull(Me.txtFinder) Then
        Set rs = Me.RecordsetClone
        rs.FindFirst "[YourPrimaryKey] = " & Me.txtFinder
        If Not rs.NoMatch Then
            Me.Bookmark = rs.Bookmark
        End If
        Set rs = Nothing
    End If

This assumes you have an unbounbd text box, probably in the form header, called txtFinder that you will type your PK in. It also assumes your primary key is a number, not text. You could make it a combobox if you only have a limited number of PK numbers you want to bring in.

Put the code in the AfterUpdate event of your txtFinder control.

 

[v.bon]

Thank you for your reply. I believe I am on the right track but keep getting the error 'runtime error:3021 No current record' would you know why?

 Private Sub Form_Current()
    Dim RecordValue As String
    Dim rs As Object
    
    If Not IsNull(Me.Company_Name) Then
        RecordValue = Me.Company_Name
        If Forms!Company.[Company Name] <> RecordValue Then
            Set rs = Forms!Company.RecordsetClone
            rs.FindFirst "[Company Name]= '" & RecordValue & "'"
            If rs.NoMatch Then
            MsgBox "NO MATCH"
        Else
            Forms!Company.Bookmark = rs.Bookmark
        End If
        Set rs = Nothing
    End If
    End If
    
    End Sub

 

[Minty]

This appears to be exactly the same error you are having on this thread https://www.access-programmers.co.uk/forums/showthread.php?t=295525 ?

On both you appear to be trying to use the search on the records on another form - I'm not sure I understand why? Perhaps you could tell us the reasoning /purpose behind it? Or is it a sub form?