Hallo
Ich habe ein Problem, und zwar speichere ich in einer Tabelle Befehle ab. Das sieht wie folgt aus:
Durch diese Tabelle lade ich die Eigenschaften meiner einzelnen Ribbon Elemente. Damit ich bei Änderungen nicht unbedingt in den Code gehen uns suchen muss, habe ich mir gedacht das ich die Befehle auch in die Tabelle speichere und das dazugehörige Formular auch.
Durch den Einsatz von SQL hole ich die benötigten Daten aus der Tabelle, setze Feld Funktionsart und Actions zusammen und will die nun ausführen als DoCmd.OpenForm "FrmBerichtsauswahl".
Hierzu mal mein Code:
'#### Aktionen die mit Ribbonelementen ausgeführt werden
Public Function Actions(ctl As IRibbonControl)
Dim Sql1 As String
Dim rs1 As ADODB.Recordset
Dim Funktionsart As String
Dim Aktion As String
Sql1 = "Select * from tbRibbonMenue where control = '" & ctl.ID & "'"
Set rs1 = CurrentProject.Connection.Execute(Sql1)
If rs1.EOF = False Then
If IsNull(rs1.Fields("Actions")) Then
nachricht = rs1.Fields("Nachricht")
Else
Action = rs1.Fields("Actions")
gesperrt = rs1.Fields("gesperrt")
nachricht = rs1.Fields("Nachricht")
Funktionsart = rs1.Fields("Funktionsart")
End If
End If
rs1.Close
If (gesperrt = True) Or (Action = Null) Then
MsgBox (nachricht)
Else
Aktion = Funktionsart & " " & Action
Debug.Print Aktion
Hier will ich Aktion ausführen (DoCmd.OpenForm "FrmBerichtsauswahl")
End If
End Function
Villeicht hat sich ja einer mit diesem Thema befasst und kann mir sagen ob es überhaupt möglich ist oder nicht. Sollte es nicht der Fall sein, so kann ich es umbauen.
Schonmal ein dankeschön