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 hab's jetzt bei mir mal ausgetestet. Man muss die Commandbars einzeln abklappern Code: Dim cBar As CommandBar Dim ctl As CommandBarControl For... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von der Alte, 31. Juli 2015.

Seite 2 von 3

MAIKEK

maikek

Die Methode Copy ... ist fehlgeschlagen

Ich hab's jetzt bei mir mal ausgetestet. Man muss die Commandbars einzeln abklappern
Code:

Dim cBar As CommandBar
Dim ctl As CommandBarControl

For Each cBar In Application.CommandBars
For Each ctl In cBar.Controls
Debug.Print ctl.Id & " " & ctl.Caption
Next ctl
Next cBar
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was mir auffällt: ich hab kein Control mit einer ID 0 gefunden, bei dir sind in der Tabelle aber zwei (Feld BuiltIn).
maike

maikek, 3. August 2015

#16
DER ALTE

der Alte

An welcher Stelle muss ich den Code eintragen?

Das Original stammt aus dem Buch "Access 2002 programmieren".
Code:

Option Compare Database

Function CommandBarFromTable(ByVal strCBName As String, _
Optional ByVal strTable As String = "tblCommandBar" _
) As String
Dim db As Database
' Recordset für Tabelle mit CommanBar-Einträgen
Dim rst As Recordset
' CommandBar-Definitionen
Dim rstCombo As 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 Fehlerfall wird leerer String zurückgegeben
CommandBarFromTable = ""

' Öffnen der Tabelle mit CommandBarEinträ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 CommanBar-Eintrag
If Not IsNull(rst!BuiltIn) Then
' Wenn kein Parent definiert
If IsNull(rst!Parent) Then
CommandBars.FindControl(ID:=rst!BuiltIn).Copy cbr
Else
Set cbc = CommandBars.FindControl(Tag:=rst!Parent)
CommandBars.FindControl(ID:=rst!BuiltIn).Copy _
cbc.CommandBar
End If
Else
' In Abhängigkeit vom Typ
Select Case rst!Type
' Normaler Button
Case msoControlButton:
' Wenn Parent
If IsNull(rst!Parent) Then
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
' Coctailnamen 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 CommondBars
CommonBarFromTable = 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.

Die Tabelle habe ich 1:1 übernommen.

Der Aufruf erfolgt über.
Code:

Private Sub Form_Load()

Call CommandBarFromTable("Tabellensymbolleiste")

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

Es kommt aber da immer die Fehlermeldung "13 - Typen unverträglich"

der Alte, 3. August 2015

#17
MAIKEK

maikek

Es kommt aber da immer die Fehlermeldung "13 - Typen unverträglich"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Auch mit dem zuletzt geposteten Code?

An welcher Stelle muss ich den Code eintragen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hier:
Code:

On Error GoTo err_CBFromTable

For Each cbr In Application.CommandBars
For Each cbc In cbr.Controls
Debug.Print cbc.Id & " " & cbc.Caption
Next cbc
Next cbr

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

Ich habe die Variablennamen mal auf die bei dir vorhandenen geändert (cBar -> cbr und ctl -> cbc).
maike

maikek, 3. August 2015

#18
MARSU65

Marsu65

Die Methode Copy ... ist fehlgeschlagen

von Maike

Was mir auffällt: ich hab kein Control mit einer ID 0 gefunden, bei dir sind in der Tabelle aber zwei (Feld BuiltIn).
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gibt es auch nicht. Benutzerdef. Controls bekommen die ID 1, alle Office-Ids sind größer.

Beim näheren Hinsehen, passt entweder die Tabelle nicht zum Code oder umgekehrt.
Code:

If Not IsNull(rst!BuiltIn) Then
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich gehe mal vom Ersten aus:
Die ersten beiden Einträge müssen in der Spalte BuiltIn NULL (nix) und nicht null (Zahl 0) sein.
Nimm deinen Originalcode (Auch wenn der etwas seltsam mit evtl. auftretenden Fehlern umgeht)
und ändere die Werte der Tabelle; dann sollte das Bsp. wahrscheinlich funktionieren.

BTW:
OnAction erwartet eine öffentliche Funktion mit vorangestelltem Gleichheitszeichen und Klammern
am Ende - auch wenn die Function ohne Parameter ist:
"=DeineFunktion()"
Sonst passiert nix ... außer einem Hagel aus Fehlermeldungen. *wink.gif*

Marsu65, 3. August 2015

#19
DER ALTE

der Alte

\@ Marsu65

Ich habe jetzt beides ausprobiert ohne anderes Ergebnis.

Die tblCommandBar.BuiltIn stehen jetzt auf "NULL", also nicht 0 oder" ".
Ursprünglicher Code und Aufruf über "Call CommandBarFromTable("Tabellensymbolleiste")". Es kommt die Fehlermeldung
"13 - Typen unverträglich".
Bei Aufruf über "=CommandBarFromTable()" kommt "Syntaxfehler."

der Alte, 3. August 2015

#20
MAIKEK

maikek

Steht da jetzt der Text "NULL" drin? Das wäre falsch. NULL bedeutet nix, nada, niente - ein leeres Feld.
maike

maikek, 3. August 2015

#21
DER ALTE

der Alte

Hallo Maike,

die Felder sind leer.

Bei Deinem Vorschlag kommt die Fehlermeldung "91 - Objektvariable oder Withblockvariable nicht festgelegt"
Übrigens habe ich jetzt im Direktbereich jede Menge Einträge. Brauchst Du die?

Ich füge am Ende den Code noch einmal ein. Nicht dass ich einen Fehler reingebracht habe.

VG Uli

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

For Each cbr In Application.CommandBars
For Each cbc In cbr.Controls
Debug.Print cbc.ID & " " & cbc.Caption
Next cbc
Next cbr

' Im Fehlerfall 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 Alte, 3. August 2015

#22
MAIKEK

maikek

Die Methode Copy ... ist fehlgeschlagen

Hallo Uli,
keine Ahnung *wink.gif* . Ist aber jetzt auch nicht mehr nötig, da wir ja schon geklärt haben dass es eine ID 0 nicht gibt.
Vielleicht kann Marsu ja noch mal auf die .OnAction-Geschichte eingehen, da kenne ich mich nicht aus.
maike

maikek, 4. August 2015

#23
MARSU65

Marsu65

Hallo zusammen,

bei meinem Beitrag ging es nur um die Einträge in der Tabelle.
D.h. in der Spalte OnAction müsste dort, wo "test" steht so etwas wie "=test()" stehen.
Der Aufruf der Funktion CommandBarFromTable kann so bleiben, wie er ist.

@uli
Vielleicht kannst du eine DB mit den beiden Tabellen tblCommandbar und tblDokumente hier hochladen.
Dann kann man den Code aus Beitrag #1 mal testen.
Ich hab momentan keine Zeit und Lust, die Tabellen nachzubauen.

Marsu65, 4. August 2015

#24
DER ALTE

der Alte

Viele Grüße
Uli

der Alte, 4. August 2015

#25
MARSU65

Marsu65

Hallo Uli,

in deiner Testdatei müssen die Verweise auf DAO und Office gesetzt werden.
Die BuiltIn-Nr. 762 dürfte falsch sein. Im Acc03 hat der Beenden-Befehl die Id 752; änder das in der Tabelle.
(Hat da etwa jemand falsch abgeschrieben? *wink.gif*)

Die System-ID 30003 ist das komplette Menü "Bearbeiten" aus der Standardmenüleiste.

In der Zeile
Code:

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

ist ein Fehler. Die Copy-Methode erwartet eine Commandbar und nicht ein Commandbarcontrol.
So sollte es funktionieren:
Code:

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

PS: damit du bei deinen Versuchen die erstellte Symbolleiste nicht jedesmal per Hand löschen muss,
kannst du sie in der Funktion vor deiner On Error-Anweisung automatisch löschen.
Code:

On Error Resume Next
CommandBars(strCBName).Delete

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

Marsu65, 4. August 2015

#26
DER ALTE

der Alte

Guten Morgen Marsu,

Danke für die schnelle Antwort. Geändert habe ich die Commandbarcontrol in Commandbar und die BuiltIn-Nr. 762 in 752.

Finde ich irgendwo im www eine Liste mit den SystemID und den BefehlkID von Access?

[...] deiner Testdatei müssen die Verweise auf DAO und Office gesetzt werden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie, wo muss ich das machen?

(Hat da etwa jemand falsch abgeschrieben? )
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja. Ich habe von VBA wenig Ahnung. Eventuell mal oben was vom Schaum geleckt. Ich bin aber noch nicht am Dünnen, geschweige am Dicken angekommen. Da bin ich auf Beispieldatenbanken und Fremdhilfe angewiesen.

Viele Grüße
Uli

der Alte, 4. August 2015

#27
MAIKEK

maikek

Die Methode Copy ... ist fehlgeschlagen

[...] deiner Testdatei müssen die Verweise auf DAO und Office gesetzt werden.
Wie, wo muss ich das machen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im VBA-Editor unter Extras/Verweise die entsprechenden Verweise aktivieren.
Siehe auch hier: donkarls Access-Seiten
maike

maikek, 5. August 2015

#28
DER ALTE

der Alte

OK, habe ich gemacht. Keine Fehlermeldungen, aber auch keine CommandBar.

Uli

der Alte, 5. August 2015

#29
MARSU65

Marsu65

... aber auch keine CommandBar.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die musst du per Rechtsklick auf eine Symbol-/Menüleiste noch einblenden
oder per Code sichtbar machen:
Code:

cbr.Visible = True
exit_CBFromTable:
Exit Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marsu65, 5. August 2015

#30

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

Seite 2 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