Office: (Office 2007) Prozeduraufruf

Anne Berg · 26. Januar 2009

warum läuft bei dir der Sandboxmode an? Ich dachte der gilt nur für Ausdrücke
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielleicht eine Erklärung:
Eval wertet per definitionem einen "Ausdruck" aus. Dieser kann aber sehr wohl in einem Funktionsaufruf bestehen.

Josef P. · 26. Januar 2009

\@Anne: Wenn CallByName verwendet wird, ist eval nicht erforderlich. Ich hätte nicht erwartet, dass der Sandbox-Modus auch Auswirkungen auf CallByName hat.

Anne Berg · 26. Januar 2009

Naja, wenn "CallByName(..) geht nämlich auch nicht" heißt "es kommt der alte Sandbox-Fehler"...

aber so hatte ich das nicht verstanden/interpretiert.

Dierking · 7. Januar 2021

von Josef P.

Und was bedeutet "geht nicht"?
Erstell doch einmal eine Beispiel-Anwendung, die das Problem zeigt.

Was mich nämlich irritiert: warum läuft bei dir der Sandboxmode an? Ich dachte der gilt nur für Ausdrücke und nicht für direkte VBA-Aufrufe.

Der Aufruf über CallbyName würde in meinem Beispiel z. B. so aussehen:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If Len(ctl.Tag) > 0 Then
If Left(ctl.Tag, 5) = "Proc:" Then
'frm.SetData strText
CallByName frm, Mid(ctl.Tag, 6), VbMethod, strText
Else
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hurra, hurra es läuft!!!
Und ich wollte schon aufgeben, dank Deiner Nachfrage und des Beispiels habe ich noch einen Fehler in meinem CallByName gefunden.
Ob Haupt- oder Unterformular mit screen.activform ist das alles kein Problem.
Man bin ich happy! *happy Jetzt kann ich so schöne Menüs bauen!
- Tausend Dank und einen ganz lieben Gruß von Katharina *winken

Was ihr alles für Befehle kennt, von CallByName hatte ich noch nie gehört!?

Dierking · 7. Januar 2021

von Josef P.

@Anne: Wenn CallByName verwendet wird, ist eval nicht erforderlich. Ich hätte nicht erwartet, dass der Sandbox-Modus auch Auswirkungen auf CallByName hat.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Liebe Anne,
Du hast recht CallByName löst nicht den Sandbox-Fehler aus, meine Syntax war falsch.
Auch Dir noch mal großen Dank für die tolle Unterstützung!

Lieben Gruß Katharina*Smilie

Josef P. · 7. Januar 2021

von Dierking

Ob Haupt- oder Unterformular mit screen.activform ist das alles kein Problem.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... Screen.ActiveForm liefert aber nicht die Referenz zum UF, sondern zum HF.

Dierking · 7. Januar 2021

von Josef P.

... Screen.ActiveForm liefert aber nicht die Referenz zum UF, sondern zum HF.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mach mich nicht fertig, das Ding läuft trotzdem. Allerdings so:
ProgName = "Form_DblClick" 'als Bsp
Set ctl = Screen.ActiveControl
Set frm = ctl.Parent
CallByName frm, ProgName, VbMethod, 0
frm.name zeigt dabei nur den Namen des Unterformulars an.

Also Screen.activeform benutze ich gar nicht sondern Screen.ActiveControl

Mir schwirrt der Kopf... *confused.gif*
und tschüss*bye

Josef P. · 7. Januar 2021

von Dierking

Mach mich nicht fertig, ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Würde ich nie versuchen. *biggrin.gif*
Ich wollte dich nur auf diese "Kleinigkeit" hinweisen, damit du im Fehlerfall eine Vermutung anstellen kannst, woran es liegen könnte.

von Dierking

Allerdings so:
ProgName = "Form_DblClick" 'als Bsp
Set ctl = Screen.ActiveControl
Set frm = ctl.Parent
CallByName frm, ProgName, VbMethod, 0
frm.name zeigt dabei nur den Namen des Unterformulars an.

Also Screen.activeform benutze ich gar nicht sondern Screen.ActiveControl
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und jetzt rate mal, warum ich dir diese Variante mit dem Umweg über Screen.ActiveControl zeigte und nicht das:
Code:

Set frm = Screen.ActiveForm
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Interessehalber:
Wie verwaltest du eigentlich unter Ac07 die Kontextmenüs?
Erstellst du sie zur Laufzeit mittels VBA vollständig aus der Tabelle oder aktualisierst du sie nur bei Änderung und speicherst sie in der Anwendung?

Dierking · 26. Januar 2009

Interessehalber:
Wie verwaltest du eigentlich unter Ac07 die Kontextmenüs?
Erstellst du sie zur Laufzeit mittels VBA vollständig aus der Tabelle oder aktualisierst du sie nur bei Änderung und speicherst sie in der Anwendung?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich will über die Autoexec die Kontextmenüs jedesmal vollständig erstellen, bleibt abzuwarten wie das Zeitverhalten ist. Vielleicht interessiert dich ja der Programmcode? Code:

Public Function CreateKontextMenu()
'wird über Autoexec aufgerufen und stellt alle Kontextmenüs zusammen
'Hinweis bei Abbruch ggf. vorab über Direktfenster: commandbars("F_Titelanzeige_HF").delete
On Error GoTo CreateKontextMenu_err
Dim strKontextName As String, strKontextAlt As String, strSQL As String
Dim db As Database, rs As Recordset
Dim cmb As CommandBar, cmbBtn As CommandBarButton, lngIndex As Long

strSQL = "SELECT USysProgramme.ID, USysProgramme.Register, USysProgramme.Bereich, USysProgramme.btnName, USysProgramme.Art, " & _
"USysProgramme.prgName, USysProgramme.Kommentar From USysProgramme WHERE (((USysProgramme.Register)='Kontextmenüs'))" & _
"ORDER BY USysProgramme.Bereich, USysProgramme.ID;"

Set db = CurrentDb()
Set rs = db.OpenRecordset(strSQL, DB_OPEN_DYNASET, dbSeeChanges) 'Alle Sätze mit Register 'KontextMenüs'
Do While Not rs.EOF
If strKontextAlt rs!Bereich Then
lngIndex = KontextZeigen(rs!Bereich)
If lngIndex > 0 Then 'Menü vorhanden
CommandBars(lngIndex).Delete 'altes Menü löschen
End If
strKontextAlt = rs!Bereich
Set cmb = CommandBars.Add(rs!Bereich, msoBarPopup, False, False)
End If
If rs!Art = "S" Then 'MSO-Aufruf
Set cmbBtn = cmb.Controls.Add(msoControlButton, rs!btnName) 'z.b. Aufsteigend Sortieren 210
If rs!Kommentar = "Linie" Then
With cmbBtn
.BeginGroup = True
End With
End If
Else
Set cmbBtn = cmb.Controls.Add(msoControlButton, , , , True)
cmbBtn.Caption = rs!btnName
cmbBtn.OnAction = "=ProgAufruf('" & rs!prgName & "','" & rs!btnName & "')"
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
Set cmb = Nothing
Set cmbBtn = Nothing

CreateKontextMenu_exit:
Exit Function
CreateKontextMenu_err:
MsgBox "Fehler in CreateKontextMenu() " & Error$
GoTo CreateKontextMenu_exit
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Katharina *Smilie

Anne Berg · 26. Januar 2009

Sorry, aber wozu sollte das Kontextmenü immer wieder neu erstellt werden, wenn es doch aus einer statischen Tabelle und nicht benutzerabhängig erzeugt wird?

Dierking · 26. Januar 2009

Du hast recht, ich werde in meinem Formular Ribbon- und Kontexterfassung ein Button 'KontextErzeugen' unterbringen. Das ist der bessere Weg.
Danke & Gruß Katharina

Office: (Office 2007) Prozeduraufruf

Prozeduraufruf

Prozeduraufruf

Prozeduraufruf

Prozeduraufruf

Prozeduraufruf - Similar Threads - Prozeduraufruf

Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument

Access Meldung: "Ungültiger Prozeduraufruf"

ungültiger Prozeduraufruf

Prozeduraufruf mit Call: "Argument nicht optional"