change caption propery programatically

[lamlancer]

i can successfully change a button caption in an open form using

Command1.Caption = "new caption"
DoCmd.Save acForm, "formname"

but when i close the form and reopen it my new caption is not appearing

???

thanks for any assistance

 

[dhookom]

I'm not sure why you posted this in the Reports forum. However, you can't save these changes unless you are in the design view of your report or form.

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]

 

[lamlancer]

i am a rookie to tek tips

yes i guess my question is more appropriately for another forum

thanks for pointing that out

seeing as how it is here though i thought id also try my next question which would be

how do i programatically get in the design view of the form

thanks again

 

[dhookom]

I don't think you want to get into design view of your form with code. There are probably a half dozen better solutions. For instance:
Create a small lookup table:
[tt][blue]
tblMyValues
================
ValueName text
TheValue text
[/blue][/tt]
For now, add one record:
[tt][blue]
ValueName TheValue
=========== =============
FormACaption My New Caption
[/blue][/tt]

In the On Open event of FormA, add this code:

If Not IsNull(DLookup("TheValue","tblMyValues","ValueName='FormACaption'")) Then
   Me.Caption = (DLookup("TheValue","tblMyValues","ValueName='FormACaption'")
End If

Now, you maintain values in tables rather than changing code.

Duane MS Access MVP
[green]Ask a great question, get a great answer.[/green] [red]Ask a vague question, get a vague answer.[/red]
[green]Find out how to get great answers faq219-2884.[/green]