Button Caption 1

[psperry2]

I have a field called status in my persons table. It is a text field that can have 2 values (Active, Inactive).

I wanted to put a button on a form that would have as a caption the present value of the status field. Clicking on the button would toggle the value.

How can I get this field value displayed as the button caption?

I am using Access 2003 on an Access 2000 database.

 

[ZOR]

In the btoon onclick event

If Me.Nameofbutton.Caption = "Active" then
Me.Nameofbutton.Caption = "Inactive"
else
Me.Nameofbutton.Caption = "Active"
end if

Have not tried it but it should work when you click it.

 

[ZOR]

Sorry, btoon should read button

 

[MajP]

I think you will need a little more.

Private Sub cmdActive_Click()
  If Me.strActive = "Active" Then
    Me.strActive = "InActive"
  Else
    Me.strActive = "Active"
 End If
   Me.cmdActive.Caption = Me.strActive
End Sub

Private Sub Form_Current()
  Me.cmdActive.Caption = Nz(strActive, "Unassigned")
End Sub

 

[psperry2]

Well the problem I am having is getting the Field Value from the table displayed as the Button Caption. I tried putting tblpersons.Status into the caption property but that didn't work as I hoped.

 

[MajP]

I called my field strActive yours is status.

 

[psperry2]

I put in that code and it works great! Thanks MajP!

 

[ZOR]

Sorry for my bit, assumed the button caption would have had a word Active or Inactive as a default, but now the story unfolded. Regards