Code error when opening a form

[Bob07790]

Hi I have used this code in Access 2003 and it works with no errors in Access
2007 I get the following appear, the Find Box and the Enter Parameter Value
Box. By clicking ok in the Parameter value box without entering a value the
code continues to open the form on the correct record and the Find box
closes. How do I stop this happening?

Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
stDocName = "frmHASABIDetails"

stLinkCriteria = "[CustomerID]=" & Me![CustomerID]
DoCmd.OpenForm stDocName, , , stLinkCriteria


Thanks Bob

 

[Stuart McCall]

Hi I have used this code in Access 2003 and it works with no errors in
Access
2007 I get the following appear, the Find Box and the Enter Parameter
Value
Box. By clicking ok in the Parameter value box without entering a value
the
code continues to open the form on the correct record and the Find box
closes. How do I stop this happening?

Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
stDocName = "frmHASABIDetails"

stLinkCriteria = "[CustomerID]=" & Me![CustomerID]
DoCmd.OpenForm stDocName, , , stLinkCriteria


Thanks Bob

That looks like the code was originally generated by the wizard, which MS
refuses to update for some reason. The line:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

is an Access 2000 command, for goodness sake.

Try replacing that line with:

Me.Dirty = False

Also check to see if "[CustomerID]=" & Me![CustomerID] is correct (ie there
is a field called CustomerID and the form contains a control called
CustomerID).
Otherwise it should work fine.

 

[Bob07790]

Stuart

That now works fine, thanks for your help.

Bob

Hi I have used this code in Access 2003 and it works with no errors in
Access
2007 I get the following appear, the Find Box and the Enter Parameter
Value
Box. By clicking ok in the Parameter value box without entering a value
the
code continues to open the form on the correct record and the Find box
closes. How do I stop this happening?

Dim stDocName As String
Dim stLinkCriteria As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
stDocName = "frmHASABIDetails"

stLinkCriteria = "[CustomerID]=" & Me![CustomerID]
DoCmd.OpenForm stDocName, , , stLinkCriteria


Thanks Bob

That looks like the code was originally generated by the wizard, which MS
refuses to update for some reason. The line:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

is an Access 2000 command, for goodness sake.

Try replacing that line with:

Me.Dirty = False

Also check to see if "[CustomerID]=" & Me![CustomerID] is correct (ie there
is a field called CustomerID and the form contains a control called
CustomerID).
Otherwise it should work fine.


.