Forums Neueste Beiträge
 

sub (Steuerelement) in einem fremden Form auslösen

02/08/2009 - 15:20 von Stefan Paesch | Report spam
Moin zusammen,

ich möchte aus einem Form A bei einem Ereignis ein Fortschrittbalken
anzeigen. Dieser soll in einem andern Form B angezeigt werden.

Wie starte ich aus Form (A) den Butten 'Start' in Form (B) ? Die sub
'btnStart' ist als Public deklariert.

Bischen habe ich mir schon zusammen gegooglet .

Private Sub btnTestStart_Click()
DoCmd.OpenForm "frm_Fortschrittbalken"
Forms!frm_Fortschrittbalken.Form.btnStart_Click ' ****
End Sub

**** Hier gibt es folgenden Fehler: 2465 - Anwendung- oder
objektdefinierter Fehler




Code des Fortschrittbalken in Form (B):

Public Sub btnStart_Click()

Dim i As Long
For i = 1 To vgDatensaetze
If GetAsyncKeyState(VK_ESCAPE) < 0 Then Exit For 'Abbruch mit
ESC
Call updateBar(i, vgDatensaetze)
Next i
'DoCmd.Close acForm, "frm_Fortschrittbalken", acSaveNo'Form
schließen
End Sub


Private Sub Form_Open(Cancel As Integer)

DoCmd.MoveSize 1440, 2400, , 2000
Bezeichnungsfeld0.Caption = ""
vgDatensaetze = DCount("Betrag", "tbl_Dataport")

End Sub


Private Sub updateBar(Wert As Long, max As Long)

'Wertermittelung (Steuerung) des Balken
Dim perc As Single
perc = Wert / max
Bezeichnungsfeld0.Caption = Int(perc * 100) & "%"
Bezeichnungsfeld1.Width = CInt(Bezeichnungsfeld0.Width * perc)
Bezeichnungsfeld1.Caption = ""
Bezeichnungsfeld1.BackColor = vbBlue

'wechselt die Schriftfarbe der %-Anzeige, wenn der Balken halb
durchgelaufen ist
If perc > 0.5 Then
Bezeichnungsfeld0.ForeColor = vbWhite
Else
Bezeichnungsfeld0.ForeColor = vbBlue
End If

Me.Repaint 'der Balken muss neu gezeichnet werden

End Sub

Für Eure Tipps bin ich wie immer dankbar.
Viele Grüße Stefan.
 

Lesen sie die antworten

#1 Oliver Straub
02/08/2009 - 17:35 | Warnen spam
Hallo Stefan,

ich möchte aus einem Form A bei einem Ereignis ein Fortschrittbalken
anzeigen. Dieser soll in einem andern Form B angezeigt werden.

Wie starte ich aus Form (A) den Butten 'Start' in Form (B) ? Die sub


'>btnStart' ist als Public deklariert.

Private Sub btnTestStart_Click()
DoCmd.OpenForm "frm_Fortschrittbalken"
Forms!frm_Fortschrittbalken.Form.btnStart_Click ' ****
End Sub



lass mal das .Form weg:
Forms!frm_Fortschrittbalken.btnStart_Click


Gruss
Oliver

Ähnliche fragen