Seite 1 von 1

Code Anpassung für Base

Verfasst: Sa, 21.03.2015 12:32
von Shotokan
Hallo
ich hoffe mir kann jemand helfen einen Makrocode anzupassen, weil ich überhaupt keine Erfahrung darin habe.
Folgendes Makro wurde mir freundlicherweise zur Verfügung gestellt:

Sub S_BLL(event)
oBLL = event.source.model
nValue = event.Value
oForm = oBLL.Parent
oform.updateint(oform.findcolumn("Zahl"),nValue)
End Sub

Sub S_Drehfeld(event)
oDrehfeld = event.source.model
oForm = oDrehfeld.Parent
oBll = oForm.BLL
oBll.ScrollValue = oDrehfeld.EffectiveValue
End Sub

Sub S_Formular(event)
oForm = event.source
oBll = oForm.BLL
oBll.ScrollValue = oform.getint(oform.findcolumn("Zahl"))
End Sub

Die Einstellung einer Bildlaufleiste wird in ein Feld eingeschrieben. Das funktioniert auch wunderbar. Leider sind die Programmierschritte nicht kommentiert, sodass ich die einzelne Schritte nicht verstehe. Ich habe versucht, das Makro für eine zweite Bildlaufleiste anzupassen. Das hat leider nicht funktioniert. Kann mir jemand sagen, auf was ich achten muss, bzw an welcher Stelle ich Änderungen einfügen muss?
Das Drehfeld brauche ich eigentlich nicht.
Und eine Bitte: keine "schlauen" offtopic-Kommentare

Re: Code Anpassung für Base

Verfasst: Sa, 21.03.2015 13:42
von F3K Total
Moin,
vielleicht hilft dir dieser Thread ?
Etwas Geduld, das "alte" Forum ist schwer erreichbar.
Gruß R

Re: Code Anpassung für Base

Verfasst: Sa, 21.03.2015 14:50
von komma4
Dieses Unterforum ist nicht für Fragen zu Basic gedacht!

In diesem Sinne "off-Topic".

Ich schliesse den Thread, da Du im zuständigen Unterforum ja einen gleichlautenden aufgemacht hast.