Code Not Working??? Someone Please Help????

[motoxracer400f]

It seems that no matter what code (expression) I apply, my form doesn't change. Is there some kind of link or key command I need to specify or set to execute these commands I am typing in the visual basics editor.

I used the form wizard to create a form that populates combo list boxes and text boxes with record information from my access tables and I am trying to get text boxes to enable and disable on form load and also based on what I select from a combo box. I even typed docmd.maximize in form load and that doesn't even work when you view the form and I have it set to sizeable. Am I doing something wrong??? Please help!!!! It just seems like the bridge between access and vb isn't connecting and I know I am probobally a complete idiot! I double click on the form to run it and my form loads, I can scroll through records, but none of the vb code runs. Thanks everyone!!!!

This is my code:

Sub DisableAll()

'Disable all controls

    Forms![Form]![Customer].Enabled = False
    Forms![Form]![CustomerDWGNumber].Enabled = False
    Forms![Form]![Description].Enabled = False
    Forms![Form]![Material].Enabled = False
    Forms![Form]![UNSNumber].Enabled = False
    Forms![Form]![GaugeThickness].Enabled = False
    Forms![Form]![Notes].Enabled = False
    Forms![Form]![UnitOfMeasurement].Enabled = False
    Forms![Form]![Length].Enabled = False
    Forms![Form]![Width].Enabled = False
    Forms![Form]![Height].Enabled = False
    Forms![Form]![Diameter].Enabled = False
    Forms![Form]![OD].Enabled = False
    Forms![Form]![PipeOD].Enabled = False
    Forms![Form]![CenterCenter].Enabled = False
    Forms![Form]![Taper].Enabled = False
    Forms![Form]![HoleCenterCenter].Enabled = False
    Forms![Form]![CenterCanThickness].Enabled = False
    Forms![Form]![CenterCanHeight].Enabled = False
    Forms![Form]![ICDesign].Enabled = False
    Forms![Form]![ICStyle].Enabled = False
    Forms![Form]![LiftingType].Enabled = False
    
End Sub

Private Sub Form_Current()
Call DisableAll

    Select Case Forms![Form]![Part]
'Baskets
        Case "BA01"
            Forms![Form]![Material].Enabled = True
            Forms![Form]![OD].Enabled = True
            Forms![Form]![Length].Enabled = True
            Forms![Form]![Width].Enabled = True
            Forms![Form]![Height].Enabled = True
            Forms![Form]![Notes].Enabled = True
        Case "BA02"
            Forms![Form]![Material].Enabled = True
            Forms![Form]![OD].Enabled = True
            Forms![Form]![Length].Enabled = True
            Forms![Form]![Width].Enabled = True
            Forms![Form]![Height].Enabled = True
            Forms![Form]![Notes].Enabled = True
        Case "BA03"
            Forms![Form]![Material].Enabled = True
            Forms![Form]![OD].Enabled = True
            Forms![Form]![Length].Enabled = True
            Forms![Form]![Width].Enabled = True
            Forms![Form]![Height].Enabled = True
            Forms![Form]![Notes].Enabled = True
     Case Else
     End Select
End Sub

Private Sub Form_Load()
DoCmd.Maximize
Call DisableAll
End Sub

 

[pbaldy]

If you have 2007, note the first item:

http://allenbrowne.com/Access2007.html#Configuration

 

[motoxracer400f]

Thanks pbaldy,

I installed the update and all my problems have been resolved! Wow what a bug!!!

 

[pbaldy]

No problem; glad we got you back on track.