Combo Box search

[diasflac]

I am currently using this code.

Private Sub Combo17_AfterUpdate()
If IsNull(Me!Combo17) Then Exit Sub

With Me.RecordsetClone
.FindFirst "[Supplier Name] = " & Me!Combo17
If Not .NoMatch Then
If Me.Dirty Then Me.Dirty = False
Me.Bookmark = .Bookmark
End If
End With
End Sub

It works on another form exactly the same but doesn't work on any others. Control source either off or on doesn't work. It either doesn't move the record and lets you freely select or it gives this error: "microsoft jet database engine does not recognize as a valid field name or expression".

I don't see why it works on one form and not another! :banghead:

 

[pr2-eugin]

What is the RowSource of the combo box.. if it is a Text field you are basing your search, try enclosing them in single quotes..

.FindFirst "[Supplier Name] = [COLOR=Red][B]'[/B][/COLOR]" & Me!Combo17 [COLOR=Red][B]& "'"[/B]
[/COLOR]

 

[diasflac]

What is the RowSource of the combo box.. if it is a Text field you are basing your search, try enclosing them in single quotes..

.FindFirst "[Supplier Name] = [COLOR=Red][B]'[/B][/COLOR]" & Me!Combo17 [COLOR=Red][B]& "'"[/B]
[/COLOR]

That has now produced a different error, it's still not moving records so I'm now getting the, you're creating duplicate index's in this field error.

 

[pr2-eugin]

That's strange.. How about checking EOF before assigning the bookmark?

Private Sub Combo17_AfterUpdate()
    If IsNull(Me!Combo17) Then Exit Sub

    With Me.RecordsetClone
        .FindFirst "[Supplier Name] = '" & Me!Combo17 & "'"
        If Not .NoMatch Then
            If Me.Dirty Then Me.Dirty = False
            [B]If Not .EOF[/B] [B]Then[/B] Me.Bookmark = .Bookmark
        End If
    End With
End Sub

What about the RowSource..

 

[diasflac]

That's strange.. How about checking EOF before assigning the bookmark?

Private Sub Combo17_AfterUpdate()
    If IsNull(Me!Combo17) Then Exit Sub

    With Me.RecordsetClone
        .FindFirst "[Supplier Name] = '" & Me!Combo17 & "'"
        If Not .NoMatch Then
            If Me.Dirty Then Me.Dirty = False
            [B]If Not .EOF[/B] [B]Then[/B] Me.Bookmark = .Bookmark
        End If
    End With
End Sub

What about the RowSource..

Nevermind, it's working now, I created a new form from scratch and it works. Same code, no explanation to the difference.

Thanks for your help Paul.