Hallo Gemeinde,
ich hab immer noch das Problem, das ich aus mehreren Formularen mit Hilfe der Ereignisprozeduren auf eine globale Prozedur zugreifen will, bin aber leider zu blöde, dieses hinzubekommen…
Wer hat ein Beispiel, an dem ich mich orientieren kann…???
vielen Dank im voraus…
Nun, das Beispiel wird dir vermutlich nicht allzuviel helfen - der Teufel steckt meist im Detail - aber meinetwegen:
Leg ein globales Modul an mit:
Public Function ShowMessage(S as String)
MsgBox S
End Function
Public Function EinsDazu(L as Long)
EinsDazu = L+1
End Function
Dann ein Formular mit einer Schaltfläche und:
Private Sub Button\_Click()
ShowMessage "Aufgerufen aus: " & Me.Name
End Sub
Und meinetwegen noch ein anderes Formular mit:
Private Sub Button2\_Click()
Dim I as Long
ShowMessage "Aufgerufen aus: " & Me.Name
I = Val(InputBox("Wert eingeben:"))
ShowMessage I & " + 1 = " & EinsDazu(I)
End Sub
Gruß aus dem Norden
Reinhard Kraasch