469,955 Members | 2,086 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,955 developers. It's quick & easy.

Control Scrolling Of Continuous Form

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!
Mar 3 '08 #1
2 4005

"Steve" <Em***@Invalid.comschreef in bericht news:13*************@corp.supernews.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
Mar 3 '08 #2
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 YourFieldToSearch.

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.RecordsetClone
If rst.RecordCount 0 Then
If Nz(Me.Text1.Text, "") <"" Then
var = Me.Text1.Text & "*"

rst.FindFirst "[YourFieldToSearch] Like """ & var & """"

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

End If
rst.Close
Set rst = Nothing

End Sub

Lumidee Love
http://www.youtube.com/watch?v=gfy4gid4UtQ
Mar 3 '08 #3

This discussion thread is closed

Replies have been disabled for this discussion.

Similar topics

2 posts views Thread by John Hargrove | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.