search control not working after upgrade to Office 07

[BillF]

Greetings,

We had a small maintenance database, created in an early
version of Access. After upgrading to Office 07, one field is now not
working. I am not sure if it is security related (such as macros), or
something broke.

The data entry form consists of the main form, and a "related" second
form, appearing towards the bottom of the entire form. The main form
identifies the item (say xyz generator serial #123), and the sub form
naturally contains numerous records performed to that item, over time.
The ID# in the product description, is related to ID# in the second form's
work records.

On the top of the main form is a control that has a pull down box. This
shows all their items, and has a scroll bar. Before the upgrade, when
they selected an item (say that generator), it would populate all fields,
both the main forms identification, and the sub forms work related
entries. Now however, selecting the product does absolutely nothing, and
no errors are given.

The control, is an unbound combo box, with data "row source" of SELECT
DISTINCTROW [Item Descrpt T Q].Product FROM [Item Descrpt T Q] ORDER BY
[Item Descrpt T Q].Product; Row source type is: Table/Query and Bound
column is 1.

There is an "event" procedure, created so that if one went back to select
another product, the forms would refresh the data (to show the next item,
and related work). The "after update" event procedure is this:

Option Compare Database
Option Explicit

Sub Combo26_AfterUpdate()
' Find the record that matches the control.
Me.RecordsetClone.FindFirst "[Product] = '" & Me![Combo26] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

A suggestion to add Me.Recordset.Edit did not solve the issue.


Thanks So much for your thoughts! Bill

 

[Allen Browne]

First thing to check is whether the database is in a trusted folder. If not,
the code will not run (unless the database has been digitially signed.)

Go to:
Office Button | Access Options | Trust Center | Trust Center Settings
and add the folder to the trusted locations.

More info about upgrading to Access 2007:
http://allenbrowne.com/Access2007.html

 

[BillF]

Allen,

Man, thanks! Perfect!

As always, appreciate folks like you out there!

Bill

First thing to check is whether the database is in a trusted folder. If
not, the code will not run (unless the database has been digitially
signed.)

Go to:
Office Button | Access Options | Trust Center | Trust Center Settings
and add the folder to the trusted locations.

More info about upgrading to Access 2007:
http://allenbrowne.com/Access2007.html

--
Allen Browne - Microsoft MVP. Perth, Western Australia

Reply to group, rather than allenbrowne at mvps dot org.

Greetings,

We had a small maintenance database, created in an early
version of Access. After upgrading to Office 07, one field is now not
working. I am not sure if it is security related (such as macros), or
something broke.

The data entry form consists of the main form, and a "related" second
form, appearing towards the bottom of the entire form. The main form
identifies the item (say xyz generator serial #123), and the sub form
naturally contains numerous records performed to that item, over time.
The ID# in the product description, is related to ID# in the second
form's
work records.

On the top of the main form is a control that has a pull down box. This
shows all their items, and has a scroll bar. Before the upgrade, when
they selected an item (say that generator), it would populate all fields,
both the main forms identification, and the sub forms work related
entries. Now however, selecting the product does absolutely nothing, and
no errors are given.

The control, is an unbound combo box, with data "row source" of SELECT
DISTINCTROW [Item Descrpt T Q].Product FROM [Item Descrpt T Q] ORDER BY
[Item Descrpt T Q].Product; Row source type is: Table/Query and Bound
column is 1.

There is an "event" procedure, created so that if one went back to select
another product, the forms would refresh the data (to show the next item,
and related work). The "after update" event procedure is this:

Option Compare Database
Option Explicit

Sub Combo26_AfterUpdate()
' Find the record that matches the control.
Me.RecordsetClone.FindFirst "[Product] = '" & Me![Combo26] & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

A suggestion to add Me.Recordset.Edit did not solve the issue.


Thanks So much for your thoughts! Bill