hidden botton wont show when browsing duplicated record

[almost]

hi, im sorry for the bad title but english isnt my first language.

im trying to make a botton to show when a adding a duplicated record in the form, it works fine when i add a new record in the form, but when i brows a form it wont show, how i can make it show when i brows the form?

botton name : command01
record name : account
form name : All
table name: All

Private Sub account_AfterUpdate()If (Eval("DLookUp(""[account]"",""[all]"",""[account] =form![account]"") Is Not Null")) Then
Me.Command01.Visible = True
  End If
End Sub

Private Sub Form_Current()
Me.Command01.Visible = False
End Sub

thanks for taking your time reading my problem

 

[ParamRay]

I haven't tested this, but I think it should do the trick:

Private Sub Form_AfterUpdate()
  Call ToggleVisible
End Sub

Private Sub Form_Current()
  Call ToggleVisible
End Sub

Private Sub ToggleVisible()
  If DCount("*", "all", "account = " Me.account.Value) > 1 Then
    Me.Command01.Visible = True
  End If
End Sub

 

[almost]

I haven't tested this, but I think it should do the trick:

Private Sub Form_AfterUpdate()
  Call ToggleVisible
End Sub

Private Sub Form_Current()
  Call ToggleVisible
End Sub

Private Sub ToggleVisible()
  If DCount("*", "all", "account = " Me.account.Value) > 1 Then
    Me.Command01.Visible = True
  End If
End Sub

sorry, it didn't do the job, there was an error

 

[xenou]

You won't get an after_update() event when browsing (navigating) a form. You need to put the same kind of check you did in the after update event into the current event - looks like what the above post did, except probably the code needs proper quoting for text values in the where part of the function.