acMenuVer70

  • Thread starter Thread starter Ruth
  • Start date Start date
R

Ruth

What does this mean and what does it do? I am using Access 2002 and when I
go to About Microsoft Access 2002 it states version 10.

I am having a lot of trouble with my database but none of my code has
changed since it's inception. I'm thinking it has something to do with the
version.


Ruth
 
What does this mean and what does it do? I am using Access 2002 and when I
go to About Microsoft Access 2002 it states version 10.

I am having a lot of trouble with my database but none of my code has
changed since it's inception. I'm thinking it has something to do with the
version.


Ruth

For an unconscionably long time the Form Wizards used clunky old Access 7.0
format menu operations. The acMenuVer70 tells Access that the command uses
this obsolete syntax.

I doubt that the unspecified "trouble" stems from this directly, but if you
don't mind putting out the effort, there are newer and simpler (and MUCH less
cryptic!!) ways to do all of the things that the menu-driven operations did.
Perhaps you could post the code in a routine that's giving you problems (and
indicate the nature of the problems) and someone could suggest an alternative.
 
I have several linked tables and forms and subforms. I have multiple users
and we build the database as we enter data. I know this code will be
confusing since you don't know how the database works buth here it goes.
It is hard to pinpoint exactly where the problem is, but when I first open
the database and get the error this is what the debug program points out.

Private Sub releaseRoute_p()

Ctl6_V_HOLD_RELEASED.Enabled = False
Ctl6_V_HOLD_RELEASED.Value = Null This line is highlighted as
the error

Ctl6_V_HOLD_ReleaseDate.Enabled = False
Ctl6_V_HOLD_ReleaseDate.Value = Null
Ctl3_ENGApproval.Enabled = False
Ctl3_ENGApproval.Value = Null
Ctl3_ENGApprovalDate.Enabled = False
Ctl3_ENGApprovalDate.Value = Null
End Sub

Once I get past that, then I get a run-time error on this code.

Public Sub releaseRouteFunc()

enableAll

If (Ctl2_ReleaseRoute = "A - VALIDATION") Then
releaseRoute_v
the statement above is highlighted as the error and states "Object invalid
or no longer set"

Else
If (Ctl2_ReleaseRoute = "B - ENGINEERING") Then
releaseRoute_e
Else
If (Ctl2_ReleaseRoute = "C - PRODUCTION") Then
releaseRoute_p
End If
End If
End If

End Sub
 
This could be the main source of the problem. I'm still searching. I am
getting so many errors it's hard to nail it down.

Private Sub ReleaseRoute_AfterUpdate()

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
enableButtons
Form_sub_Status.Ctl2_ReleaseRoute = ReleaseRoute
Form_sub_Status.releaseRouteFunc

End Sub
 
This could be the main source of the problem. I'm still searching. I am
getting so many errors it's hard to nail it down.

Private Sub ReleaseRoute_AfterUpdate()

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
enableButtons
Form_sub_Status.Ctl2_ReleaseRoute = ReleaseRoute
Form_sub_Status.releaseRouteFunc

End Sub

I'm sorry, Ruth, but digging through 76 lines of undocumented obsolete code,
with no indication of what it's doing, what it's intended to do, or what
specific errors you're getting is more than I am up to tackling.
 
Back
Top