title image


Smiley Naja dann halt fast...
Habe das noch etwas angepasst weil ich die Button

waagerecht durchnummeriert brauche, sonst müsste

ich wieder die Tabelleneinträge ändern.

Wäre vielleicht was für´s Archiv oder???





Private Function ButtonErstellen()

On Error Goto Er

  Dim i As Long, iL As Long, iT As Long, ii As Long, _

      iL2 As Long, iT2 As Long, iAnzBtn As Long, _

      iW As Long, iH As Long, iA As Long, iZ As Long

  Dim ctl As Control, s As String, frm As Form

  

  'Dein Formular

  s = "formular1"

  

  'Anzahl der Button

  iAnzBtn = 77

  'Anzahl Button waagerecht

  iZ = 7

  

  'Die Button:

  'Breite

  iW = 1134

  'Höhe

  iH = 1134

  

  'Startwert Left

  iL = 113

  'Startwert Top

  iT = 113

  'Abstand der Button

  iA = 113

  

  'Los geht's:

  ii = 1

  iL2 = iL

  iT2 = iT

  DoCmd.OpenForm s, acDesign

  Set frm = Forms(s)

  For i = 1 To iAnzBtn

    Set ctl = CreateControl(frm.Name, acCommandButton, acDetail, , , iL2, iT2, iW, iH)

    ctl.Name = "Schnelltaste" & i

    ctl.Properties("OnClick") = "=Reg()"

    If i Mod iZ = 0 Then

      iT2 = iT + (iH * ii) + (iA * ii)

      iL2 = iL

      ii = ii + 1

    Else

      iL2 = iL2 + iW + iA

    End If

  Next i



Ex:

  On Error Resume Next

  Set ctl = Nothing

  Set frm = Nothing

  Exit Function

Er:

  Dim strErr As String

  strErr = "Fehlermeldung/Information..." & vbCrLf

  strErr = strErr & "FehlerNummer: " & Err.Number & vbCrLf

  strErr = strErr & "Beschreibung: " & Err.Description

  MsgBox strErr, vbCritical + vbOKOnly, "Function: ButtonErstellen"

  Resume Ex

  Resume

End Function


Gruß Stephan



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: