OpenOffice.info

Hallo Martin,

[quote]
Da ich zuvor nur auf MS VBA programmiert habe und das auch wunderbar lief fällt mir das hier auf Grund der unterschiedlichen Sprache (noch) nicht leicht.
[/quote]
Es handelt sich um zwei verschiedene Dialekte von einer Sprache. Wenn Du also bis jetzt Bayrisch programmiert hattest, musst Du nun Friesisch-Platt kuiern :lol:

[quote]
Es erschliesst sich mir auch großteils, aber irgendwo habe ich da noch Lücken in der Logik, die die Dialoge betreffen.
In Formularen funktioniert das deutlich besser!
[/quote]
In Formularen kenn ich mich wiederum nicht sonderlich aus.
Ich hab da mal was ganz simples und primitives zusammengebastelt, was dir im Dialog per Checkbox die Formel =HEUTE() in eine Zelle einträgt. Die auch durch eine andere Checkbox im Dialog wieder gelöscht wird.


[quote]
Ich will hier in diesem Forum wirklich keinem auf die Nerven gehen
[/quote]
Tust Du nicht.

[quote]
aber ich bin halt auch kein Informatik-Profi
[/quote]
Ich doch auch nicht. Bin noch sehr weit unten auf der Anfängerskala, wenn es um Makros geht.


[quote]
und hoffe in diesem Fachforum auf Hilfe
[/quote]
Wirst Du schon bekommen.


[quote]
Schliesslich weiß ich ja auch nicht genau, was für euch für eine umfassende Diagnose notwendig ist - ich versuche nämlich immer nur das nötigste zu liefern um Datenmüll zu vermeiden!
[/quote]
Das ist ein heikles Thema. Wenn man als Anfänger, oder besser gesagt als Einsteiger etwas nicht postet, dann kann es nämlich durchaus passieren das dadurch wichtige Informationen verloren gehen. Und deshalb hatte ich ja eine Beispieldatei angesprochen. Und wenn Du jetzt meine Beispieldatei mit deiner Datei (Code) vergleichst, dann wirst Du so einige gravierende Unterschiede sehen.

Ich hoffe nun aber, das durch meine Datei dir der Einstieg in Dialoge etwas leichter fällt.


Gruß
balu

string = "heute()"

Hallo Balu, Hallo Karolus,

ich gebe Euch insofern recht, dass ich mich noch nicht sehr lange damit beschäftige, Dialoge (die ich problemlos von Formularen unterscheiden kann) zu erstellen.

Da ich zuvor nur auf MS VBA programmiert habe und das auch wunderbar lief fällt mir das hier auf Grund der unterschiedlichen Sprache (noch) nicht leicht.
Das ärgert mich und ich tu mich auch schwer. (Da hatte das mit [code]string = "heute()"[/code] in VBA auch funktioniert).

Dannenhöfer habe ich zu dem Thema gelesen - wohl aber noch nicht ansatzweise intensiv genug. Ich gelobe Besserung!
Es erschliesst sich mir auch großteils, aber irgendwo habe ich da noch Lücken in der Logik, die die Dialoge betreffen.
In Formularen funktioniert das deutlich besser!

Ich habe nicht ausführlich geantwortet, weil ich gerade auf dem Sprung zu einem Termin war. Tut mir leid!

Bezüglich der Festlegungen als Objekt / Variant kann ich jetzt auch folgen!

Da ich mich in das Thema noch vertiefen muss und ich entsprechenden Input brauche um es auch grundlegend zu verstehen, bitte ich diesbezüglich um Nachsicht.

Klar versuche ich auch ähnliche Befehlsstrukturen zu finden und meinen Bedürfnissen entsprechend umzuschreiben.
Das funktioniert auch sehr oft und hilft mir zu Verstehen - aber halt leider nicht immer!

Ich will hier in diesem Forum wirklich keinem auf die Nerven gehen, aber ich bin halt auch kein Informatik-Profi und hoffe in diesem Fachforum auf Hilfe.
Denn ohne dieses Forum hätte ich noch weniger Ahnung als ich eh schon habe!
Bitte versteht das jetzt nicht als meckern, aber ich schreibe ja grundsätzlich auch freundlich ... klar kann ich auch verstehen, das euch solche "subintelligenten" Fragen und Konstrukte auf die Nerven gehen, aber schliesslich ist auch noch kein Meister vom Himmel gefallen!

Wenn meinerseits irgendetwas missverständlich oder unzureichend sein sollte, dann liefere ich das auch gerne nach.
Schliesslich weiß ich ja auch nicht genau, was für euch für eine umfassende Diagnose notwendig ist - ich versuche nämlich immer nur das nötigste zu liefern um Datenmüll zu vermeiden!

In diesem Sinne bitte ich nochmals um Nachsich für meine partielle Unfähigkeit,

Martin

Dim Lieferschein As Object
Dim LS_test As Object
dim feld1 As Object
dim Datcheck As Object

datumA.string = "=heute()"

datumA.FormulaLocal = "=heute()"

Hallo Martin,

Du hast dir nicht den Link zu Dannenhöfer zu Herzen genommen. Das solltest Du aber, wenn Du von vornherein komplikationen vermeiden willst. Die Deklaration wäre dann z.B. also wie folgt richtig.
[code]
Dim Lieferschein As Object
Dim LS_test As Object
dim feld1 As Object
dim Datcheck As Object
[/code]
Oder ist Lieferschein kein Object?


[quote="balu"]
Sprichst Du wirklich von einem Dialog, oder von einem Formular?
[/quote]
Warum beantwortest Du das nicht? Das war keine rhetorische Frage meinerseits!
Weißt Du überhaupt was ein Dialog und was ein Formular ist? Es sind zwei total verschiedene Paar Schuhe.


[code]
datumA.string = "=heute()"
[/code]
Das wird dir absolut nichts bringen, da dann nur der String (Text) =heute() in der Zelle steht. Es ist also ohne jegliche Funktion. Du musst schon in diesem Falle das wie folgt machen.
[code]
datumA.FormulaLocal = "=heute()"
[/code]
Nachzulesen hier: http://www.starbasicfaq.de/WiekannmanmiteinemMakroeineFormelineineZ.html


Und ganz ehrtlich gesagt, ohne eine Beispieldatei kann ich zumindest dir nicht weiter helfen, da mir der Code zu fragmentiert vor kommt. Mir fehlen einfach weitere Angaben.



Gruß
balu

Hallo
Offensichtlich versuchst du zu programmieren indem du mehr oder wenig zufällig Codezeilen zusammen kopierst ohne zu wissen was der Code bewirkt. -[u]Das funktioniert nicht_[/u]

Karo

Dim Lieferschein, LS_test As Object
dim feld1 As Object
dim Datcheck As Object

Sub Datum_eintragen
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
mydoc   = thiscomponent
mysheet = mydoc.sheets(8)
datumA  = mysheet.getcellrangebyname("aa2")

Datcheck = Lieferschein.Model

Lieferschein.getControl("Datcheck")

If Datcheck.State = 0 then
datumA.string = "=heute()"
End if

If Datcheck.State =1 then
datumA.string = ""
end if

end Sub

Danke Balu!!!

So, nächster Versuch!
Jetzt hängt sich das Ding zwar nicht mehr auf, aber es macht auch nichts in der Tabelle! :?

[code]Dim Lieferschein, LS_test As Object
dim feld1 As Object
dim Datcheck As Object

Sub Datum_eintragen
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
mydoc = thiscomponent
mysheet = mydoc.sheets(8)
datumA = mysheet.getcellrangebyname("aa2")

Datcheck = Lieferschein.Model

Lieferschein.getControl("Datcheck")

If Datcheck.State = 0 then
datumA.string = "=heute()"
End if

If Datcheck.State =1 then
datumA.string = ""
end if

end Sub
[/code]

Dim Lieferschein, LS_test As Object
Dim Lieferschein, Datum As Object

datumA  = mysheet.getcellrangebyname("aa2")
datumA= AktDatum.GetControl("AktDatum")

Hallo Martin,

eine Lösung für dein Problem habe ich noch nicht, aber dafür sind mir ein paar "Fehler" aufgefallen die Du dringends beseitigen musst.
[code]
Dim Lieferschein, LS_test As Object
Dim Lieferschein, Datum As Object
[/code]
Nicht gut!
Lieferschein wird 2 mal deklariert und das noch nicht mal als Object sondern als Variant. Nachzulesen bei Dannenhöfer: http://www.starbasicfaq.de/WiewerdenVariablendeklariert..html



[code]
datumA = mysheet.getcellrangebyname("aa2")
datumA= AktDatum.GetControl("AktDatum")
[/code]
Ja hoppla! Eine Variable mit 2 verschiedenen Definierungen! Das kann ja nicht gut gehen. Und da würde ich genau so wie OOo auch määäckern wollen.


Sprichst Du wirklich von einem Dialog, oder von einem Formular? Denn so richtig schlau werd ich aus deinem Code nicht.



Gruß
balu

Dim Lieferschein, LS_test As Object
Dim Lieferschein, Datum As Object
dim feld1 As Object
dim AktDatum As Object
dim datfeld As Object

Sub Datum_eintragen
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
mydoc   = thiscomponent
mysheet = mydoc.sheets(8)
datumA  = mysheet.getcellrangebyname("aa2")
'Datum   = Lieferschein.Model
datumA= AktDatum.GetControl("AktDatum")  REM - HIER BLEIBT ES IMMER HÄNGEN!!!!! 
If AktDatum.State = 1 then
datumA.date
end if
If AktDatum.State = 0 then
datumA.string =""
end if
end Sub


Sub feldtest
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
mydoc = thiscomponent
mysheet= mydoc.sheets(8)
objekt=mysheet.getcellrangebyname("b2")

LS_test = Lieferschein.Model
objekt.string =""

Nummer = Lieferschein.GetControl("feld1")

objekt.string = Nummer.text
end Sub

Hallo!

Ich sitze jetzt seit ein paar Stunden an einem Dialog und versuche über eine Checkbox einen Eintrag in einem Tabellenblatt auszuösen.
Ein Textfeld in diesem Dialog funktioniert auch schon wunderbar, nur die Checkbox verweigert mir jegliche Funktion. Leider finde ich dazu weder im Forum noch im Netz eine aussagekräftige Hilfe
Ich hab auch schon einige Dinge ausprobiert, aber ich komm nun nicht mehr weiter.

Hier der Fehlerhafte Code:

[code]Dim Lieferschein, LS_test As Object
Dim Lieferschein, Datum As Object
dim feld1 As Object
dim AktDatum As Object
dim datfeld As Object

Sub Datum_eintragen
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
mydoc = thiscomponent
mysheet = mydoc.sheets(8)
datumA = mysheet.getcellrangebyname("aa2")
'Datum = Lieferschein.Model
datumA= AktDatum.GetControl("AktDatum") REM - HIER BLEIBT ES IMMER HÄNGEN!!!!!
If AktDatum.State = 1 then
datumA.date
end if
If AktDatum.State = 0 then
datumA.string =""
end if
end Sub


Sub feldtest
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
mydoc = thiscomponent
mysheet= mydoc.sheets(8)
objekt=mysheet.getcellrangebyname("b2")

LS_test = Lieferschein.Model
objekt.string =""

Nummer = Lieferschein.GetControl("feld1")

objekt.string = Nummer.text
end Sub
[/code]

Wahrscheinlich ist es ganz simpel, aber ich blick nicht mehr durch!

Gruß
Martin