accde file not working properly

[joshynaresh]

My accdb file work properly with full command which i have set but when i create accde file it dose not work properly.
Why this problem appear?
Plz help me.

[Dal Jeanis]

You'll have to be more specific to get any help. In what precise way does the accde "not work properly"?

[joshynaresh]

i have one splitted database. now I'm using database_fe.accdb for transaction but i want to provide accde to client for transaction.
I have one form name "Journal Transaction" there are 5 (Print, New, Post, Save and close and Cancel) command bottom 2 (Print and new) of them not visiable. I have set command that when Post command bottom clicked 2 not visiable command bottom should be visiable and transaction shoulde be saved. but when i create accde these function are not working. I also found that accde do only one command at one time but i have 2 or 3 command in a single click.
due to 2 or 3 command in a click making proble? is there any solution for it.
Thank you in advance.
Thank you agian.

[Dal Jeanis]

If I understand you correctly: When the post button is clicked in the accdb version, it makes the bottom two buttons visible, but in the accde version, it does not do so.

Accde act to prevent the user from making design changes in the database. I do not believe that making buttons visible or invisible is inherently considered a "design change", but there might be some ways of coding that behavior that might cause that kind of problem.

If I understand you correctly: You believe that your accde is only doing one action per click of the command buttons.

To my understanding, this is not a normal limitation for accde files. However, if one of the commands being executed is not available in the accde format, then the macro or VBA code might stop executing, thus simulating the behavior you see.

Please post the code behind the button, and we'll look further.

[joshynaresh]

I have used tish code .

Private Sub Command49_Click()
Select Case MsgBox("Are you sure want to post? TXN ID is: " & [ID_Txn List], vbYesNo, "Loan APP")
Case Is = vbYes
DoCmd.RunCommand acCmdSave
Me.qnew.Visible = True
Me.qprint.Visible = True
Case Is = vbNo
End Select
End Sub

Thank You

[joshynaresh]

hello sir, plz help me

[amrut]

Does this works ?

Private Sub Command49_Click()
  If MsgBox("Are you sure want to post? TXN ID is: " & [ID_Txn List], vbYesNo, "Loan APP") = vbYes then
                DoCmd.RunCommand acCmdSave
                Me.qnew.Visible = True
                Me.qprint.Visible = True
   Else
                Me.qnew.Visible = False
                Me.qprint.Visible = False
    EndIf
End Sub

[joshynaresh]

no improvement with this code.

[SteveH2508]

DoCmd.RunCommand acCmdSave

is trying to save a design change in the form - this cannot be done with an accde file. If you are saving a record then

DoCmd.RunCommand acCmdSaveRecord

should do it.

[joshynaresh]

yes it is working. Thank You.