I have a project with a form, in which I need the following procedure: as I finish filling the first field (control) in the form,, named "ID Oper B", it gets desabled so that the next person to use this form does not see the information that has been entered. For that porpuse I created the following event procedure:

Private Sub ID_Oper_B_LostFocus()
        Me!IDOperB.Enabled = False
End Sub

I get the error message "Run time error. Object doesn't support this property or method"

I also need the next field ("Operação") to be enabled as I fill in the previous field (ID Oper B) with a certain value, "joaquim". Fo that porpuse i created the following event:

Private Sub Operação_BeforeUpdate(Cancel As Integer)
        If Me!IDOperB = "joaquim" Then
        Me!Operação.Enabled = True
        Me!Operação.Locked = False
    Else
        Me!Operação.Enabled = False
        Me!Operação.Locked = True
        End If
End Sub

When i move out of the "ID Oper B" control, the next control does not get enabled

What am i doing wrong? Can anybody help me?

I would appreciate it!

Luís

Hi,

   On the first issue, I think the problem is that you are trying to disable the control on an event for the control, which you can't do. So what I would do is something like:

Private Sub ID_Oper_B_LostFocus()
        Me.AnotherControl.SetFocus = True 'you may not need = True
        'Me.AnotherControl.SetFocus
End Sub

(alternatively, you can set this in the tab order for the form.)

then:

Private Sub AnotherControl_GotFocus()
        Me.ID_Oper_B.Enabled = False
End Sub

On the second issue, BeforeUpdate is not going to fire until the record is saved, so moving to the next control should not fire the event. In that case you could do this:

Private Sub ID_Oper_B_LostFocus()

If Me!IDOperB = "joaquim" Then
   Me!Operação.Enabled = True
   Me!Operação.Locked = False
   Me!Operação.SetFocus = True 'or
   'Me!Operação.SetFocus
Else
   Me!Operação.Enabled = False
   Me!Operação.Locked = True
End If

End Sub

Disabling the control will take if it out of the tab order.

Did any of that help?



mmcdonal

Look it up at: http://wrox.books24x7.com