BUT I can not get the window with the "BackupOnOpen" code to close.

[TenOc]

I have the following "onClick" event

Private Sub NewBU_Click()


If MsgBox("Do you want to BackUP ???", vbYesNo, "BACKUP???") = vbYes Then
 DoCmd.OpenModule "Backupdb", BackupOnOpen()

'DoCmd.Close acModule,
'DoCmd.Close acModule, BackupOnOpen()
'DoCmd.Close acModule, BackupDB
 'DoCmd.Close acModule, "Backupdb", BackupOnOpen()
 
Else
End If


End Sub

The backup works well, BUT I can not get the window with the "BackupOnOpen" module (?) code to close. You can see the DoCmd that I have tried.

[pbaldy]

I've never opened a module. Try just:

If MsgBox("Do you want to BackUP ???", vbYesNo, "BACKUP???") = vbYes Then
  BackupOnOpen()
End If

Edit: It may not want the parentheses

[TenOc]

[code]
If MsgBox("Do you want to BackUP ???", vbYesNo, "BACKUP???") = vbYes Then
BackupOnOpen


End If
[\code]

Works. Thanks

[pbaldy]

Happy to help.