Deleting Sub-Form via VBA returns Error 2008

Diskutiere Deleting Sub-Form via VBA returns Error 2008 im Office Forum im Bereich Microsoft Community Fragen; Hey Community, i'm receiving this error when deleting a Sub-Form via VBA. Here the shortened code with the steps i'm taking. The code resides...
M

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Hey Community,

i'm receiving this error when deleting a Sub-Form via VBA.

Here the shortened code with the steps i'm taking. The code resides within a module, not within a form, the Sub is invoked by a button in the form "myForm":

Sub PrepareTemplate()
Dim oApp As Object
Dim oObj As AccessObject
Dim sFormName As String, sSubFormName As String, sSubFormTemplateName As String

sFormName = "myForm"
sSubFormName = "mySubForm"
sSubFormTemplateName = "mySubFormTemplate"

Set oApp = Application.CurrentProject

'Close (Parent)Form
If oApp.AllForms(sFormName).IsLoaded = True Then
Docmd.Close acForm, sFormName, acSaveNo
End If

'Check if the SubForm exists, if it's open close it, then delete it
For Each oObj In oApp.AllForms
If oObj.Name = sSubFormName Then
If oApp.AllForms(sSubFormName).IsLoaded = True Then
DoCmd.Close acForm, sSubFormName, acSaveNo
End If
DoCmd.DeleteObject acForm, sSubFormName '-> throws error 2008 - cannot delete the database object while its open
End If
Next oObj

'Copy template and open subform in design-view for dynamic ctl-creation
DoCmd.CopyObject , sSubFormTemplateName, acForm, sSubFormName
DoCmd.OpenForm sSubFormName, acDesign
... etc ...

End Sub

Does anybody now what i'm doing wrong here?

Thanks in advance
 
Thema:

Deleting Sub-Form via VBA returns Error 2008

Deleting Sub-Form via VBA returns Error 2008 - Ähnliche Themen

Outlook VBA - Kategorien in spezifisches Postfach importieren: Hallo zusammen: Ich habe folgende Quelltexte zu diesem Thema gefunden: 1. Liste aller vorhandenen Kategorien im Standardpostfach erzeugen...
Using Vlookup on other Workbook whichs path is stored in a Cell: Good Day Im Trying to do Vlookup on a closed Workbook whichs path is stored in a Cell. For that im writing a Function which opens the Workbook...
Excel 2016 Laufzeitfehler 9: Hallo! Ich hab zwei identische CSV-Dateien die ich einlese und jeweils den erste und letzten Wert einer Spalte ausgebe. Die beiden CSV-Dateien...
Excel VBA: Liebe Community! Ich habe Office 365. Ich habe eine Excel Vorlage mit VBA Codes. Diese Vorlage hat jetzt 3 Jahre perfekt funktioniert. Vor 1...
Mittels VBA verschiedene CSV's in Ordnern und Unterordner auslesen: Hallo! Hab eine etwas speziellere Frage. Ich bekomm mehrere CSV's welche gleich aufgebaut sind und mittels Semikolon getrennt sind. Jetzt...
Oben