OpenOffice.info

Ohne Fleiß kein Preis!

:shock: oha... da kennst Du sicher auch die Geschichte: Hochmut kommt vor dem Fall...
na dann noch mal Dank für Deine Hilfe.
LG N.

Hallo Shotokan,
du kennst die Geschichte
kleiner Finger -> Ganze Hand?
Du erwartest nicht ernsthaft, dass dir jemand deine Makros für lau programmiert?
Es gibt reichlich Informationen zur Programmierung mit Starbasic, im Internet und auch hier im [url=http://de.openoffice.info/viewtopic.php?f=18&t=1553]Forum[/url].
Nach einiger Recherche solltest du in der Lage sein, die bereits vorhandenen Makros für dich anzupassen.
Als Alternative hast du die Drehfelder, die funktionieren ohne Makro.
Gruß R

Hallo F3k Total,
deine Makros funktionieren gut. Jetzt bräuchte ich noch einmal Deine Hilfe. Wie ändere ich die Makros, wenn ich eine 2. Bildlaufleiste integriere. Danke für Deine Mühe. lg N

Lieber F3K Total,

herzlichen Dank für Deine Mühe. Genauso wollte ich es haben. Danke.

LG N

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

[quote="Shotokan"]Gibt es dazu auch ein Makro? [/quote]
Nein, die Makros habe ich für dich geschrieben.
Nun habe ich ein drittes zugefügt:
[code]Sub S_Formular(event)
oForm = event.source
oBll = oForm.BLL
oBll.ScrollValue = oform.getint(oform.findcolumn("Zahl"))
End Sub[/code]Dieses Makro liest den Wert "Zahl" aus und justiert die Bildlaufleiste, wenn der Datensatz gewechselt wird.
Gruß R

Hallo,
das ist super...danke. So sollte es funktionieren. Kann man es noch so anpassen, dass die Bildlaufleiste beim nächsten Aufruf des Datensatzes den eingestellten Wert hat und nicht wieder auf Null springt? Gibt es dazu auch ein Makro?
Ich habe noch nicht gesucht, aber gibt es eine Übersicht der in OO integrierten Makros mit kurzer Beschreibung ihrer Funktion?

LG

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

Hi,
ich konnte auch keine Möglichkeit finden, eine Bildlaufleiste mit einem Datenbankfeld zu verbinden, geht nur per Makro.
Darum anbei ein Beispiel mit zwei Varianten:
[list=1][*][color=#0040FF][b]Formular_mit_Bildlaufleiste_und_Makros[/b][/color]: Hier werden zwei Makros verwendet, eines, [color=#0040FF][b]S_BLL[/b][/color], was den Bildlaufleistenwert ins Formular übernimmt, das zweite, [color=#0040FF][b]S_Drehfeld[/b][/color], das bei Veränderung des Wertes im Drehfeld die Bildlaufleiste nachjustiert.
[*][color=#0040FF][b]Formular_nur_Drehfeld_ohne_Makros[/b][/color]: Eine Alternative, Verwendung eines Drehfeldes, klicke ins Feld und drehe das Mausrad oder nimm die Pfeile zum justieren.[/list]
Damit die Makros laufen dürfen, stellst du unter [color=#0040FF][b]Extras/Einstellungen/Openoffice/Sicherheit/Makrosicherheit[/b][/color] mindestens die Stufe "Mittel" ein, dann wirst du beim Öffnen von Dokumenten gefragt, ob du Makros ausführen möchtest, was du in diesem Fall bejahen müsstest.
Hier noch der Makro Code zur Info, ist schon in der Datenbank enthalten:
[code]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[/code]
Gruß R

Hallo liebe OO-Profis.
In Calc konnte ich eine Bildlaufleise mit einer Zelle verbinden. Bei Änderung der Bildlaufleiste wurde ein entsprechender Wert in die Zelle geschrieben.
Ich versuche nun seit geraumer Zeit vergebens in Base das gleiche zu erreichen. Ich möchte in einem Formular eine Bildlaufleiste (-50 bis 50) platzieren und diese mit mit einem Feld (Zahl) verknüpfen. Wer kann mir eine kurze Beschreibung geben, wie es funktioniert?