Control Scrolling Of Continuous Form

[Steve]

I have a continuous form showing Product Code and Product Name. Product Code
is five digits and is sequential. I have a textbox in the form header. What
is the code to scroll the continuous form so that as I type in the the first
two or three numbers of the product code in the textbox, the first product
code record appears at the top of the form. I would like the continuous form
to act like a combox with auto expand.

Thanks!

[Arno R]

"Steve" <Em***@Invalid. comschreef in bericht news:13******** *****@corp.supe rnews.com...

>I have a continuous form showing Product Code and Product Name. Product Code
is five digits and is sequential. I have a textbox in the form header. What
is the code to scroll the continuous form so that as I type in the the first
two or three numbers of the product code in the textbox, the first product
code record appears at the top of the form. I would like the continuous form
to act like a combox with auto expand.

Thanks!

"What is the code to scroll the continuous form.."
-- Do you need the continuous form to go to the first record that begin with the numbers you type in the header ?
" I would like the continuous form to act like a combox with auto expand"
-- Or do you want/need the continuous form to be filtered ??

Arno R

[Salad]

Steve wrote:

I have a continuous form showing Product Code and Product Name. Product Code
is five digits and is sequential. I have a textbox in the form header. What
is the code to scroll the continuous form so that as I type in the the first
two or three numbers of the product code in the textbox, the first product
code record appears at the top of the form. I would like the continuous form
to act like a combox with auto expand.

Thanks!

I created a form Junk. It has a field called Text1 used to search the
field YourFieldToSear ch.

I have JunkA as a continuous form and made that a subform of Junk.

Private Sub Text1_Change()
Dim var As Variant
Dim rst As Recordset

Set rst = Me.JunkA.Form.R ecordsetClone
If rst.RecordCount 0 Then
If Nz(Me.Text1.Tex t, "") <"" Then
var = Me.Text1.Text & "*"

rst.FindFirst "[YourFieldToSear ch] Like """ & var & """"

If Not rst.NoMatch Then
Me.JunkA.Form.B ookmark = rst.Bookmark
End If
End If

End If
rst.Close
Set rst = Nothing

End Sub

Lumidee Love
http://www.youtube.com/watch?v=gfy4gid4UtQ