Forum
Tipps
News
Menu-Icon

VBA Create Controls - Buttons in Formular einfügen

Hey,

ich möchte in ein Formular Buttons einfügen lassen.(Access)

Allerdings bekomme ich immer den Fehler:

"Variable verwendet einen in Visual Basic nicht unterstützten Typ der Automatisierung. "

Das ist die Sub zum Erzeugen der Buttons:

 

Zitat


Private Sub createbtns()

 Dim c As Control
 Dim i As Integer
 
    DoCmd.OpenForm "F/Form", acDesign
   
   For i = 1 To 2
    Set c = CreateControl("F/Form", acCommandButton, acDetail)
    With c
        .Caption = "Button" & i
        .Name = "btnTest" & i
        .Left = 500
        .Top = 500
        .Width = 1500
        .Height = 500
    End With
    Next
   
    DoCmd.Save acForm, "F/Form"


End Sub


Danke schoneinmal :)
Google Home Update für die Touch-Buttons!
Chrome Screenshot von ganzer Webseite (keine Plugins nötig!)
Screenshot von ganzer Webseite machen – mit nur 3 Klicks!
Edge Browser: Google als Startseite (oder andere Webseiten!)
ZIP Archiv erstellen – Daten komprimieren!

Antworten zu VBA Create Controls - Buttons in Formular einfügen:

Hey,

habe grad nochmal die Datenbank komprimieren lassen und nun funktioniert das Erstellen der Buttons problemlos :)


« Programmieren nur mit Editorc/c++ system ausgabe in den arbeitsspeicher »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
Visual Basic
Visual Basic ist eine proprietäre Programmiersprache von Microsoft, oft als "VB" abgekürzt. Die älteren Versionen bis VB 6.0 werden heute als Vis...

BASIC
BASIC steht für "Beginners All Purpose Symbolic Instruction Code", eine der ersten weit verbreiteten Programmiersprachen. Die einfache Anfänger-Sprache hat dazu...

Type 1 Schriften
Type 1 ist ein Schriftformat, das die Schrift-Beschreibung in Form von PostScript-Befehlen speichert. PostScript-Schriften werden mithilfe von PostScript-Operationen besc...


ChatGPT Cheat Codes: So nutzt du die KI wie ein Profi!
Nutze diese 5 Google Tools statt ChatGPT – sie sind viel besser!