title image


Smiley Na, auch relativ einfach
Öffne ein Modul, lege folgenden Code drin ab, passe Deine Werte an und drücke F5, wenn der Cursor in der Funktion steht.

(Teste das aber vorher mal bitte an einer Kopie!!!!)

Ohne Garantie und nur mal so dahingeschmiert, sollte aber laufen:



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 = "DeinFormName"

  

  'Anzahl der Button

  iAnzBtn = 80

  'Anzahl Button senkrecht

  iZ = 10

  

  'Die Button:

  'Breite

  iW = 600

  'Höhe

  iH = 350

  

  'Startwert Left

  iL = 100

  'Startwert Top

  iT = 100

  'Abstand der Button

  iA = 10

  

  '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 = "btn" & i

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

    If i Mod iZ = 0 Then

      iL2 = iL + (iW * ii) + iA

      iT2 = iT

      ii = ii + 1

    Else

      iT2 = iT2 + iH + 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ß Carsten


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: