Office: Die Methode Copy ... ist fehlgeschlagen

Helfe beim Thema Die Methode Copy ... ist fehlgeschlagen in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Ich möchte eine CommandBar erstellen. Beim Start kommt die Fehlermeldung -2147467259 - Die Methode 'Copy' für das Objekt 'CommanBarControl' ist... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von der Alte, 31. Juli 2015.

Seite 1 von 3

DER ALTE

der Alte

Die Methode Copy ... ist fehlgeschlagen

Ich möchte eine CommandBar erstellen. Beim Start kommt die Fehlermeldung

-2147467259 - Die Methode 'Copy' für das Objekt 'CommanBarControl' ist fehlgeschlagen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Function CommandBarFromTable(ByVal strCBName As String, _
Optional ByVal strTable As String = "tblCommandBar" _
) As String
Dim db As DAO.Database
' Recordset für Tabelle mit CommandBar-Einträgen
Dim rst As DAO.Recordset
' CommandBar-Definitionen
Dim rstCombo As DAO.Recordset

Dim cbr As CommandBar
Dim cbp As CommandBarPopup
Dim cbb As CommandBarButton
Dim cbc As CommandBarControl
Dim cbo As CommandBarComboBox

On Error GoTo err_CBFromTable

' Im Fehlerfalle wird leerer String zurückgegeben
CommandBarFromTable = ""

' Öffnen der Tabelle mit CommandBar-Einträgen
Set db = CurrentDb
Set rst = db.OpenRecordset(strTable)

' Erstellen eines neuen CommandBars
Set cbr = CommandBars.Add(strCBName, Position:=msoBarTop, Temporary:=True)

' Für alle Zeilen der Tabelle
Do While Not rst.EOF
' Wenn eingebauter CommandBar-Eintrag
If Not IsNull(rst!BuiltIn) Then
' Wenn kein Parent definiert
If IsNull(rst!Parent) Then
CommandBars.FindControl(ID:=rst!BuiltIn).Copy cbc
Else
Set cbc = CommandBars.FindControl(Tag:=rst!Parent)
CommandBars.FindControl(ID:=rst!BuiltIn).Copy _
cbc.CommandBar
End If
Else
' In Abhängigkeit vom Type
Select Case rst!Type
' Normaler Button
Case msoControlButton:
' Wenn Parent
If IsNull(rst!Parent) Then
Set cbb = cbr.Controls.Add(msoControlButton)
Else
Set cbb = cbr.FindControl(Tag:=rst!Parent). _
CommandBar.Controls. _
Add(msoControlButton)
End If
With cbb
.Tag = rst!Tag
.Caption = rst!Caption
If rst!Icon Then
.Style = msoButtonIconAndCaption
Else
.Style = msoButtonCaption
End If
.OnAction = rst!OnAction
End With
' Icon von Eintrag übernehmen
If rst!Icon Then
CommandBars.FindControl(ID:=rst!iconfrom).CopyFace
cbb.PasteFace
End If

' Popup-Button
Case msoControlPopup:
If IsNull(rst!Parent) Then
Set cbp = cbr.Controls.Add(msoControlPopup)
Else
Set cbp = cbr.FindControl(Tag:=rst!Parent).CommandBar.Controls.Add(msoControlPopup)
End If
With cbp
.Tag = rst!Tag
.Caption = rst!Caption
End With

' ComboBox
Case msoControlComboBox:
Set cbo = cbr.Controls.Add(msoControlComboBox)
With cbo
.Tag = rst!Tag
.Caption = rst!Caption
.Style = msoComboLabel
' Breite des DropDowns bestimmen
.DropDownWidth = .Width
' Klonen des Formular-Recordsets
If IsNull(rst!ComboTable) Then
Set rstCombo = Screen.ActiveForm.RecordsetClone
Else
Set rstCombo = db.OpenRecordset(rst!ComboTable)
End If
Do While Not rstCombo.EOF
' Cocktailnamen der ComboBox hinzufügen
.AddItem rstCombo(rst!ComboField)
rstCombo.MoveNext
Loop
.OnAction = rst!OnAction
End With
Case Else
' nothing
End Select
End If
' Nächster Datensatz
rst.MoveNext
Loop

' Rückgabe des Namens des CommandBars
CommandBarFromTable = strCBName

exit_CBFromTable:
Exit Function

err_CBFromTable:
' Falls CommandBar noch existiert
If Err.Number = 5 Then
CommandBars(strCBName).Delete
Resume
End If
MsgBox Err.Number & " - " & Err.Description
Resume exit_CBFromTable

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Aufruf der Funktion erfolgt über Code:

Private Sub Form_Load()

Call CommandBarFromTable("Tabellensymbolleiste")

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wo steckt der Fehler?

Danke der Alte

:)

der Alte, 31. Juli 2015

#1
MARSU65

Marsu65

Hallo,

kommentier mal die Fehlerbehandlung (On Error Goto) aus, um zu sehen, in welcher Zeile der Fehler entsteht.

Ich tippe mal blind, dass eine FindControl-Methode kein gültiges Control zurückliefert (rst!BuiltIn prüfen), und daher die Copy-Methode fehlschlägt.

Marsu65, 2. August 2015

#2
DER ALTE

der Alte

Hallo,

wie muss ich das machen? Ich habe vergessen zu sagen, dass ich mich nicht in VBA auskenne.

der Alte

der Alte, 2. August 2015

#3
MAIKEK

maikek

Die Methode Copy ... ist fehlgeschlagen

Moin,
einfach vor diese Zeile
Code:

On Error GoTo err_CBFromTable
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ein Hochkomma setzen:
Code:

' On Error GoTo err_CBFromTable
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn dann beim Ausführen die Laufzeitfehlermeldung erscheint, auf "Debuggen" klicken und nachsehen, welche Codezeile gelb markiert ist.
maike

maikek, 2. August 2015

#4
DER ALTE

der Alte

Danke für die schnellen Antworten. Folgende Zeile wird markiert.

Code:

Set cbr = CommandBars.Add(strCBName, Position:=msoBarTop, Temporary:=True)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es kommt eine Fehlermeldung.

Laufzeitfehler '5':

Ungültiger Prozeduraufruf oder ungültiges Argument.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Viele Grüße
der Alte

der Alte, 3. August 2015

#5
MAIKEK

maikek

Öhh, ja - das ist ein erwarteter Fehler, der vorher behandelt wurde (err_CBFromTable:
' Falls CommandBar noch existiert
If Err.Number = 5 Then ...).

Das müsste jetzt ersetzt werden durch:
Code:

' On Error GoTo err_CBFromTable

For Each cbr In CommandBars
If cbr.Name = strCBName Then
cbr.Delete
Exit For
End If
Next

' Im Fehlerfalle wird leerer String zurückgegeben
CommandBarFromTable = ""
'usw.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

damit der eigentliche Fehler angezeigt werden kann.
maike

maikek, 3. August 2015

#6
DER ALTE

der Alte

Hallo Maik,

jetzt zeigt er wieder die im #1 genannte Fehlermeldung und markiert folgende Zeile.
Code:

CommandBars.FindControl(ID:=rst!BuiltIn).Copy cbc
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist Zeile 40

Uli

der Alte, 3. August 2015

#7
MAIKEK

maikek

Die Methode Copy ... ist fehlgeschlagen

Dann sehen wir uns mal die Vermutung von Marsu an:
Code:

If IsNull(rst!Parent) Then
' CommandBars.FindControl(ID:=rst!BuiltIn).Copy cbc
Debug.Print rst!BuiltIn
for each Control in CommandBars.Controls
Debug.print Control.ID & " - " & Control.Name
next control

Else
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das sollte im Direktfenster (Aufrufen mit Strg + G) dann die ID des gesuchten Controls und die IDs und Namen der vorhandenen Controls auflisten.
Da vergleichen, ob die gesuchte ID in der Liste der vorhandenen Controls aufgeführt ist.
maike

maikek, 3. August 2015

#8
DER ALTE

der Alte

Hallo Maike,

es kommt die Fehlermeldung 'Next ohne For'

Uli

der Alte, 3. August 2015

#9
MAIKEK

maikek

Wie sieht denn der Code bei dir genau aus (mit den Zeilen davor und dahinter)?
maike

maikek, 3. August 2015

#10
DER ALTE

der Alte

Von welchem Code sprichst Du. Der Originale steht in #1 oder meinst Du den Code im Direktfenster?

der Alte, 3. August 2015

#11
MAIKEK

maikek

Nein, ich meine wie du den rot eingefärbten von mir jetzt in deine Prozedur eingebaut hast.
Im Direktfenster dürfte jetzt wegen des Fehlers ja eigenlich nur die eine ID stehen.

AHH, ich ahne, du hast den Code ins Direktfenster kopiert? Setze den mal in den ursprünglichen mit ein.
Die schwarzen Zeilen hast du ja schon, die sind nur, um die passende Stelle zu zeigen.
maike

maikek, 3. August 2015

#12
DER ALTE

der Alte

Die Methode Copy ... ist fehlgeschlagen

Es hat sich nichts getan.

der Alte, 3. August 2015

#13
MAIKEK

maikek

Du hast aber schon die Funktion auch aufgerufen?
ansonsten würde ich sagen, mach mal eine Kopie der Datenbank mit den für das Problem erforderlichen Tabellen, Formularen ... und ein paar Dummydaten.
Das Ganze dann komprimieren (Extras/Datenbankdienstprogramme) und gezippt hier hochladen. Dann kann ich mir das mal ansehen.
maike

maikek, 3. August 2015

#14
DER ALTE

der Alte

Da gibt es nicht so viel. Es soll eine CommanBar werden. Der Code und der Aufruf steht unter #1. Die dazugehörende Tabelle habe ich mal fotographiert.

der Alte, 3. August 2015

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 3

Thema:

Die Methode Copy ... ist fehlgeschlagen

Die Seite wird geladen...

Die Methode Copy ... ist fehlgeschlagen - Similar Threads - Methode Copy fehlgeschlagen
Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".
in Microsoft Excel Hilfe
Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".: Hallo Leute,*:)* nachdem ich in die "addIn 1.2.4" ein Sheet RKL eine Dropdownliste und ein Togglebutton hinzugefügt habe bekomme ich beim aufruf der UF die Fehlermeldung "Laufzeitfehler 1004 "Die...
Die zehn besten Methoden zum Bereinigen von Daten
in Microsoft Excel Tutorials
Die zehn besten Methoden zum Bereinigen von Daten: Die zehn besten Methoden zum Bereinigen von Daten Excel für Microsoft 365 Excel 2019 Excel 2016 Excel 2013 Excel 2010 Excel 2007 Mehr......
Bewährte Methoden zum Einrichten und Ausführen einer Teams-Besprechung oder eines ...
in Microsoft Teams Tutorials
Bewährte Methoden zum Einrichten und Ausführen einer Teams-Besprechung oder eines ...: Bewährte Methoden zum Einrichten und Ausführen einer Teams-Besprechung oder eines Live-Ereignisses für Gehörlose und schwerhörige Beim Einrichten und ausführen Microsoft Teams Besprechungen und...
Bewährte Methoden zum Erstellen eines Microsoft Teams-Liveereignisses
in Microsoft Teams Tutorials
Bewährte Methoden zum Erstellen eines Microsoft Teams-Liveereignisses: Bewährte Methoden zum Erstellen eines Microsoft Teams-Liveereignisses Microsoft Teams Mehr... Weniger Um ein tolles...
Bewährte Methoden für Outlook: Schreiben von tollen e-Mails
in Microsoft Outlook Tutorials
Bewährte Methoden für Outlook: Schreiben von tollen e-Mails: Bewährte Methoden für Outlook: Schreiben von tollen e-Mails Outlook für Microsoft 365 Outlook 2019 Outlook 2016 Outlook 2013 Outlook 2010 Outlook 2007...
Laufzeitfehler '-2147221040(800401d0)' Die Methode 'Copy'...
in Microsoft Excel Hilfe
Laufzeitfehler '-2147221040(800401d0)' Die Methode 'Copy'...: Hallo Leute, ich habe schon länger ein Problem in einem sehr großen VBA-Makro beim kopieren von Diagrammen. In der Zeile "objDia.Copy" kommt sporadisch die Fehlermeldung: Laufzeitfehler...
Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen
in Microsoft Access Hilfe
Die Methode Document für dasObjekt Iwebbrowser2 ist fehgeschlagen: Hallo, ich spreche mittels vba eine html seite an. Alles funktionierte bis ich gemerkt hatte, dass ich wenn nötig ist runterscrollen muss. Hier beginnt auch mein Problem. Nach der Änderung für...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden