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...

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

Automatische out-of- office-Antwort funktioniert nicht mehr: Hallo zusammen, ich habe in Outlook ein VBA-Makro erstellt, welches beim Beenden von Outlook automatisch die out-of-office-Antwort aktiviert und...
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...
[VBA] Kommentar wird in die falsche Zelle eingefügt.: Hallo zusammen und einen schönen Sonntag, einmal kurz etwas zur Aufgabenbeschreibung. Ich möchte, dass bei bzw. nach einer Eingabe in Spalte M...
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...
Oben