Trying to click a button on one form from another

[KirkT]

Hello all. I am creating a access database that goes out to all of our databases, open them and select the backup button.

I can open the database and get to the right form but I haven't been able to figure out the button.

I receive a run-time error '438':
Object doesn't support this property or method

I appreciate everything that anyone can do for me.

KirkT

This is my code.

Public Sub RVS_Q53()
 
    Dim strDB As String
 
    ' Initialize string to database path.
    Const strConPathToSamples = "O:\Requirements " _
    & "Group\Working Folder\Kirk Wallace\Databases\RVS Q53 test RMD\"
 
    strDB = strConPathToSamples & "MASTER RVS Q-53 V3 FE.accdb"
    ' Create new instance of Microsoft Access.
    Set appAccess = _
    CreateObject("Access.Application")
    ' Open database in Microsoft Access window.
    appAccess.OpenCurrentDatabase strDB
    ' Open Orders form.
    appAccess.DoCmd.OpenForm "Admin_Main"
 
    Forms.Admin_Main.Backup_Click
 
End Sub
 

[PhilOfWalton]

A few pointers, but I'm afraid no solution
1) I think this question would have been better under the heading of Access rather than Visual Basic

2) All modules should have

Option Compare Database
Option Explicit
 

at the head of the module. I suspect that yours does not gave "Option Explicit" as you would have received a compile error on the line beginning

Set appAccess ........
 

As far as I know, you almost certainly can't run "cmdTest_Click()" as it is a Private Sub and Private means Private and can only be run from within that module.

I think you need to write a Public Sub or Function called "Backup" that runs whatever your cmdTest_Click() does.

Then replace your line "Forms.Admin_Main.Backup_Click" with

Application.Run ("Backup")
 

Phil

[KirkT]

Phil,

Thank you for your response. My module does have Option Compare Database and Option Explicit in the header. Also, the sub is set to public.

I need to run the code that are in the databases that I am backing up because of path issues.

I would appreciate anyone's help on this issue. Once again, thanks Phil.

Kirk

[PhilOfWalton]

OK, try after your appAccess.DoCmd.OpenForm "Admin_Main" statement

    Dim Frm As Form
    Set Frm = AppAccess.Forms!Admin_Main
    Call Frm.Backup_Click
 
    AppAccess.Forms.DoCmd.Close AcForm, Me.Name
    Set Frm = Nothing
 
    Set AppAccess = Nothing    
 

Phil

[KirkT]

Phil,

That works great up until the following line:

AppAccess.Forms.DoCmd.Close AcForm, Me.Name

It gives me an error at that point. I get a runtime error '438'. Object doesn't support this property or method.

I really do appreciate your help.

Kirk

[PhilOfWalton]

Hi Kirk

Not sure. Try

AppAccess.DoCmd.Close acForm, Frm.Name
 

Phil

[KirkT]

Phil,

That worked awesome. I do have another question for you, I am backing the databases up to a Backup folder and overwriting the existing databases. Do you know how make so the Replace confirmation screen doesn't show up and it just automatically replaces the old backup?

Once again, thank you.

Kirk

[PhilOfWalton]

Not without knowing your backup routine.

Anyway, it's not a very good idea just overwriting. Much safer is to create a new backup file with date embedded in the name e.g. Backup19-Jun-17.Bak. When the older backup files are DEFINATELY not wanted, then delete them manually.

So depending on what you want and your backup routine come back to this forum.

Phil