Code Anpassung für Base
Verfasst: Sa, 21.03.2015 12:32
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
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