Want to find a VBA code fragment to search a database field.

[OldManEd]

Where can I find the VBA code that is used to locate a specific record?

I want to search on [Last] by typing in the first, second, third etc letter
of name and each time the code loops(?) thru the record set. I NEED AN
EXAMPLE.

Thanks,
EC

 

[Guest]

You just need to use a Combo box. The property you describe is Auto Expand.
Set that property to Yes.

 

[OldManEd]

That works but doesn't do what I need.

I have a form that includes ALL the fields. I added a combo box(for
searching). Its default property is Auto Expand. It works. But the combo box
is NOT linked to the rest of the form. In other words, I type letters into
the combo box and when a particular [Last] is located I hit <Enter>. The
record pointer doesn't move; it's still on the first record. How do I get
the record pointer to move to the record that matches the combo box's value?

OMEd

You just need to use a Combo box. The property you describe is Auto
Expand.
Set that property to Yes.

Where can I find the VBA code that is used to locate a specific record?

I want to search on [Last] by typing in the first, second, third etc
letter
of name and each time the code loops(?) thru the record set. I NEED AN
EXAMPLE.

Thanks,
EC

 

[Guest]

In the After Update event of the Combo:

Dim rst As Recordset

Set rst = Me.RecordsetClone
rst.FindFirst "[SearchFieldName] = '" & Me.MyCombo & "'"
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If

Set rst = Nothing

That works but doesn't do what I need.

I have a form that includes ALL the fields. I added a combo box(for
searching). Its default property is Auto Expand. It works. But the combo box
is NOT linked to the rest of the form. In other words, I type letters into
the combo box and when a particular [Last] is located I hit <Enter>. The
record pointer doesn't move; it's still on the first record. How do I get
the record pointer to move to the record that matches the combo box's value?

OMEd

You just need to use a Combo box. The property you describe is Auto
Expand.
Set that property to Yes.

Where can I find the VBA code that is used to locate a specific record?

I want to search on [Last] by typing in the first, second, third etc
letter
of name and each time the code loops(?) thru the record set. I NEED AN
EXAMPLE.

Thanks,
EC

 

[OldManEd]

Thanks, this is beginning to work, but not completly. I have to type in the
full name, not just the first few characters. Wonder what I'm doing
wrong????

OMEd

In the After Update event of the Combo:

Dim rst As Recordset

Set rst = Me.RecordsetClone
rst.FindFirst "[SearchFieldName] = '" & Me.MyCombo & "'"
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If

Set rst = Nothing

That works but doesn't do what I need.

I have a form that includes ALL the fields. I added a combo box(for
searching). Its default property is Auto Expand. It works. But the combo
box
is NOT linked to the rest of the form. In other words, I type letters
into
the combo box and when a particular [Last] is located I hit <Enter>. The
record pointer doesn't move; it's still on the first record. How do I
get
the record pointer to move to the record that matches the combo box's
value?

OMEd

You just need to use a Combo box. The property you describe is Auto
Expand.
Set that property to Yes.

:

Where can I find the VBA code that is used to locate a specific
record?

I want to search on [Last] by typing in the first, second, third etc
letter
of name and each time the code loops(?) thru the record set. I NEED AN
EXAMPLE.

Thanks,
EC

 

[OldManEd]

The combo box is no longer 'Auto Expand.' How does this option get set? I
don't see it in Properties.
OMEd

Thanks, this is beginning to work, but not completly. I have to type in
the full name, not just the first few characters. Wonder what I'm doing
wrong????

OMEd

In the After Update event of the Combo:

Dim rst As Recordset

Set rst = Me.RecordsetClone
rst.FindFirst "[SearchFieldName] = '" & Me.MyCombo & "'"
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If

Set rst = Nothing

That works but doesn't do what I need.

I have a form that includes ALL the fields. I added a combo box(for
searching). Its default property is Auto Expand. It works. But the combo
box
is NOT linked to the rest of the form. In other words, I type letters
into
the combo box and when a particular [Last] is located I hit <Enter>. The
record pointer doesn't move; it's still on the first record. How do I
get
the record pointer to move to the record that matches the combo box's
value?

OMEd






You just need to use a Combo box. The property you describe is Auto
Expand.
Set that property to Yes.

:

Where can I find the VBA code that is used to locate a specific
record?

I want to search on [Last] by typing in the first, second, third etc
letter
of name and each time the code loops(?) thru the record set. I NEED
AN
EXAMPLE.

Thanks,
EC

 

[Guest]

It is the 7th property on the Data tab of the Properties Dialog.

The combo box is no longer 'Auto Expand.' How does this option get set? I
don't see it in Properties.
OMEd

Thanks, this is beginning to work, but not completly. I have to type in
the full name, not just the first few characters. Wonder what I'm doing
wrong????

OMEd

In the After Update event of the Combo:

Dim rst As Recordset

Set rst = Me.RecordsetClone
rst.FindFirst "[SearchFieldName] = '" & Me.MyCombo & "'"
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If

Set rst = Nothing

:

That works but doesn't do what I need.

I have a form that includes ALL the fields. I added a combo box(for
searching). Its default property is Auto Expand. It works. But the combo
box
is NOT linked to the rest of the form. In other words, I type letters
into
the combo box and when a particular [Last] is located I hit <Enter>. The
record pointer doesn't move; it's still on the first record. How do I
get
the record pointer to move to the record that matches the combo box's
value?

OMEd






You just need to use a Combo box. The property you describe is Auto
Expand.
Set that property to Yes.

:

Where can I find the VBA code that is used to locate a specific
record?

I want to search on [Last] by typing in the first, second, third etc
letter
of name and each time the code loops(?) thru the record set. I NEED
AN
EXAMPLE.

Thanks,
EC

 

[OldManEd]

Thanks for ALL your help. Everything now works!!
OMEd

It is the 7th property on the Data tab of the Properties Dialog.

The combo box is no longer 'Auto Expand.' How does this option get set? I
don't see it in Properties.
OMEd

Thanks, this is beginning to work, but not completly. I have to type
in
the full name, not just the first few characters. Wonder what I'm doing
wrong????

OMEd



In the After Update event of the Combo:

Dim rst As Recordset

Set rst = Me.RecordsetClone
rst.FindFirst "[SearchFieldName] = '" & Me.MyCombo & "'"
If rst.NoMatch Then
MsgBox "Record Not Found"
Else
Me.Bookmark = rst.Bookmark
End If

Set rst = Nothing

:

That works but doesn't do what I need.

I have a form that includes ALL the fields. I added a combo box(for
searching). Its default property is Auto Expand. It works. But the
combo
box
is NOT linked to the rest of the form. In other words, I type
letters
into
the combo box and when a particular [Last] is located I hit <Enter>.
The
record pointer doesn't move; it's still on the first record. How do
I
get
the record pointer to move to the record that matches the combo box's
value?

OMEd






You just need to use a Combo box. The property you describe is
Auto
Expand.
Set that property to Yes.

:

Where can I find the VBA code that is used to locate a specific
record?

I want to search on [Last] by typing in the first, second, third
etc
letter
of name and each time the code loops(?) thru the record set. I
NEED
AN
EXAMPLE.

Thanks,
EC