Hide show buttons on iff

[Ruegen]

I'm stuck on something.

I have two buttons.

One button puts in a date() in a [Removed] textbox called btnRemoveSchool
One button removed date() with null called btnReinstateSchool

I want each button to hide each other when clicked (visible)

When I put the VBA me.btnremoveSchool.visible = false
I get error because it has focus.

I also want the page to load on whether it has null or not.

I thought of doing on page load if
iff [Removed] = Not Null
then
me.btnRemoveSchool.visible = false

and so on.

[Ruegen]

This works for the loading

Private Sub Form_Load()If Not IsNull(Me.Removed) Then Me.btnRemoveSchool.Visible = False
If IsNull(Me.Removed) Then Me.btnReinstateSchool.Visible = False


If Not IsNull(Me.Removed) Then Me.btnReinstateSchool.Visible = True
If IsNull(Me.Removed) Then Me.btnRemoveSchool.Visible = True
End Sub

However clicking the buttons to enter in null or Date() and then making them visible accordingly still is my problem

and this gets them making them visible

Private Sub btnReinstateSchool_Click()
Me.Removed = Null
Me.btnRemoveSchool.Visible = True
End Sub


Private Sub btnRemoveSchool_Click()
Me.Removed = Date
Me.btnReinstateSchool.Visible = True
End Sub

I thought about using after update on the [remove] field but with no luck (in order to hide the buttons with an if)

[Ruegen]

eh sorted it with this

Private Sub btnReinstateSchool_Click()Me.Removed = Null
Me.btnRemoveSchool.Visible = True


DoEvents
Me.btnRemoveSchool.SetFocus
DoEvents
Me.btnReinstateSchool.Visible = False


End Sub






Private Sub btnRemoveSchool_Click()
Me.Removed = Date
Me.btnReinstateSchool.Visible = True


DoEvents
Me.btnReinstateSchool.SetFocus
DoEvents
Me.btnRemoveSchool.Visible = False




End Sub


Private Sub Form_Load()
If Not IsNull(Me.Removed) Then Me.btnRemoveSchool.Visible = False
If IsNull(Me.Removed) Then Me.btnReinstateSchool.Visible = False


If Not IsNull(Me.Removed) Then Me.btnReinstateSchool.Visible = True
If IsNull(Me.Removed) Then Me.btnRemoveSchool.Visible = True
End Sub