title image


Smiley MSOCONTROL
Das nusst du in VB schreinben.

z.B so

Option Compare Database

Option Explicit



Dim cmdbar, sysbar, mO_1, mO_2 As CommandBar

Sub Menue()

On Error Resume Next

Dim mDatei, mEinlesen, mFremd, mAuswert, mVerwalt, mOptionen As CommandBarPopup

Dim mBeenden, mDrucken, mDaten, mfremdbe, editfrmd, KN, KN_1, KN_2, KN_Vor, AZ, AZ_1, AZ_2, AZ_Vor, TE As CommandBarButton

Dim nimport, mStart, mformel, mTEZEITENPRIT, AK_Vor, AK_Pr As CommandBarButton

Dim makt As CommandBarButton

Dim sysname As CommandBarButton



'Original leisten ausblenden



'Menüleiste definieren

Set cmdbar = CommandBars.Add("Lieferplan", msoBarTop, True)

Set mDatei = cmdbar.Controls.Add(msoControlPopup)

mDatei.Caption = "&Datei"



'Controls setzen in Datei

Set sysname = mDatei.Controls.Add(msoControlButton)

sysname.Caption = "&Neu Berechnen"

sysname.OnAction = "Berechnen"



Set mStart = mDatei.Controls.Add(msoControlButton)

mStart.Caption = "&Zum Start"

mStart.OnAction = "Start"



Set mBeenden = mDatei.Controls.Add(msoControlButton)

mBeenden.Caption = "&Beenden"

mBeenden.OnAction = "Beenden"



Set mEinlesen = cmdbar.Controls.Add(msoControlPopup)

mEinlesen.Caption = "&Daten einlesen"

Set mDaten = mEinlesen.Controls.Add(msoControlButton)

mDaten.Caption = "&Daten von AS400"

mDaten.OnAction = "AS400"



'Bearbeiten

Set mFremd = cmdbar.Controls.Add(msoControlPopup)

mFremd.Caption = "&Bearbeiten"



Set mfremdbe = mFremd.Controls.Add(msoControlButton)

mfremdbe.Caption = "&Fremdbearbeitung eingeben"

mfremdbe.OnAction = "Fremd"



Set editfrmd = mFremd.Controls.Add(msoControlButton)

editfrmd.Caption = "&Fremdbearbeitung bearbeiten"

editfrmd.OnAction = "fe"



Set mformel = mFremd.Controls.Add(msoControlButton)

mformel.Caption = "&Formelentwicklungscode bearbeiten"

mformel.OnAction = "formel"





'Auswertung

Set mAuswert = cmdbar.Controls.Add(msoControlPopup)

mAuswert.Caption = "Auswertung"





Set mDrucken = mAuswert.Controls.Add(msoControlPopup)

mDrucken.Caption = "&Arbeitskräfte"





Set AK_Vor = mDrucken.Controls.Add(msoControlButton)

AK_Vor.Caption = "&Druckvorschau Arbeitskräfte"

AK_Vor.OnAction = "Ak_V"



Set AK_Pr = mDrucken.Controls.Add(msoControlButton)

AK_Pr.Caption = "&Arbeitskräfte Drucken"

AK_Pr.OnAction = "Ak_druck"



Set KN = mAuswert.Controls.Add(msoControlPopup)

KN.Caption = "Kugelnabe"



Set KN_1 = KN.Controls.Add(msoControlButton)

KN_1.Caption = "&Kugelnabe Bearbeiten"

KN_1.OnAction = "Kugel"



Set KN_Vor = KN.Controls.Add(msoControlButton)

KN_Vor.Caption = "&Druckvorschau Kugelnabe"

KN_Vor.OnAction = "KN_vorsch"



Set KN_2 = KN.Controls.Add(msoControlButton)

KN_2.Caption = "&Kugelnabe Drucken"

KN_2.OnAction = "Kugeldrucken"





Set AZ = mAuswert.Controls.Add(msoControlPopup)

AZ.Caption = "&Achszapfen"



Set AZ_1 = AZ.Controls.Add(msoControlButton)

AZ_1.Caption = "&Achszapfen bearbeiten"

AZ_1.OnAction = "Achszapfen"



Set AZ_Vor = AZ.Controls.Add(msoControlButton)

AZ_Vor.Caption = "&Druckvorschau Achszapfen"

AZ_Vor.OnAction = "Az_vors"



Set AZ_2 = AZ.Controls.Add(msoControlButton)

AZ_2.Caption = "&Achszapfen Drucken"

AZ_2.OnAction = "Achdruck"



'Verwaltung

Set mVerwalt = cmdbar.Controls.Add(msoControlPopup)

mVerwalt.Caption = "Verwaltung"



Set TE = mVerwalt.Controls.Add(msoControlButton)

TE.Caption = "&Tezeiten Verwaltung"

TE.OnAction = "TEZeiten"



Set mTEZEITENPRIT = mVerwalt.Controls.Add(msoControlButton)

mTEZEITENPRIT.Caption = "TE-Zeiten drucken"

mTEZEITENPRIT.OnAction = "TEPRINT"



Set nimport = mVerwalt.Controls.Add(msoControlButton)

nimport.Caption = "&Nicht Importierte Teilenummer"

nimport.OnAction = "Noimport"

'Optionen

Set mOptionen = cmdbar.Controls.Add(msoControlPopup)

mOptionen.Caption = "Aktualisieren"

Set makt = mOptionen.Controls.Add(msoControlButton)

makt.Caption = "Aktualisieren"

makt.OnAction = "Aktualisieren"







'Menueleiste und Symbolleiste sichtbar machen

cmdbar.Visible = True

End Sub



'Actions



Sub beenden()

DoCmd.Close

DoCmd.Quit

End Sub



Sub cmdbarlöschen()

cmdbar.Delete

End Sub



Sub enl()

MsgBox "Hallo"

End Sub



Sub Berechnen()

Call ak

End Sub



Sub fe()

DoCmd.OpenForm "frm_Fremdedit"

End Sub



Sub Fremd()

DoCmd.OpenForm "frm_Fremd"

End Sub



Sub as400()

DoCmd.OpenForm "frm_ODBC", , , , , acDialog

End Sub



Sub Kugel()

DoCmd.OpenForm "Frm_Kugelnabe"

End Sub



Sub Achszapfen()

DoCmd.OpenForm "frm_Achszapfen"

End Sub



Sub TEzeiten()

DoCmd.OpenForm "frm_TEZeitenverw", , , , , acDialog



End Sub



Sub Print_()

DoCmd.OpenForm "frm_Suchen", , , , , acHidden

DoCmd.OpenForm "frm_Suchen", , , , , acHidden

DoCmd.OpenReport "rep_Arbeitsk", acViewPreview

End Sub



Sub Noimport()

DoCmd.OpenForm "frm_noimport", , , , , acDialog

End Sub



Sub Start()

DoCmd.OpenForm "frm_Suchen", acNormal

DoCmd.Maximize



End Sub



Sub formel()

DoCmd.OpenForm "frm_formelcode", , , , , acDialog



End Sub





Sub Achdruck()

DoCmd.OpenForm "frm_Achszapfen", , , , , acHidden

DoCmd.OpenForm "frm_Achszapfen", , , , , acHidden

DoCmd.OpenReport "rep_Achszapfen"

Reset

End Sub



Sub Kugeldrucken()

DoCmd.OpenForm "frm_Kugelnabe", , , , , acHidden

DoCmd.OpenForm "frm_Kugelnabe", , , , , acHidden

DoCmd.OpenReport "rep_Kugelnabe"



End Sub





Sub Kn_vorsch()

DoCmd.OpenForm "frm_Kugelnabe", , , , , acHidden

DoCmd.OpenForm "frm_Kugelnabe", , , , , acHidden

DoCmd.OpenReport "rep_Kugelnabe", acViewPreview

End Sub



Sub Az_vors()

DoCmd.OpenForm "frm_Achszapfen", , , , , acHidden

DoCmd.OpenForm "frm_Achszapfen", , , , , acHidden

DoCmd.OpenReport "rep_Achszapfen", acViewPreview



End Sub



Sub Ak_v()

DoCmd.OpenForm "frm_Suchen", , , , , acHidden

DoCmd.OpenForm "frm_Suchen", , , , , acHidden

DoCmd.OpenReport "rep_Arbeitsk", acViewPreview

End Sub



Sub AK_druck()

DoCmd.OpenReport "rep_Arbeitsk"

End Sub



Sub lösch()

cmdbar.Delete

End Sub





Sub Aktualisieren()

DoCmd.RunCommand acCmdRemoveFilterSort

DoCmd.RunCommand acCmdRefresh

End Sub





Sub TEPRINT()

DoCmd.OpenReport "rep_TE"



End Sub



Musst noch einen Verweiss auf die Microsoft Office 9.0 Objekt Library machen



/Extras/Verweise

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: