OpenOffice.info

turtle47 hat geschrieben:...ich habe jetzt mal einen anderen Ansatz gewählt...

Hi turtle47,

bei dem neuen Ansatz ist es nicht so einfach zu erkennen was passiert, da bin ich doch froh das es einen ersten Ansatz gibt .

Einfach schön was man hier so an Code-Schnipseln findet, Danke.

Da es auch mehr als zwei Optionsfelder geben kann habe ich mir erlaubt den Code für meine Bedürfnisse anzupassen, und gebe das Ergebnis zurück:

Hallo,


an alle noch mal vielen Dank !!!

Mit dem letzten Befehl von Christa hat es funktioniert. Habe mich erst nur verschrieben geklappt.

Ich werde die anderen Varianten aber auch noch ausprobieren. es kommen ja noch mehr Makros.

Viele Grüße

dagmar

Hallo Ladies,

ich habe jetzt mal einen anderen Ansatz gewählt.
Aktuelle Zeile holen wo der Datensatzzeiger steht und dann über den Spalten- und Zeilenindex den Status auslesen der Checkbox auslesen und dann den Wechsel ausführen.

Hier mal der Code für eine Spalte: Für die zweite Spalte ensprechend anpassen!

Den Tri-Status habe ich in dem Code auch berücksichtigt.

Hier mal ein Beispiel.

Viel Erfolg.

Jürgen

Hallo Dagmar,

könnte es sein, dass Du Deine Spalten "E1" und "E2" in Deinem Tabellen-Kontrollfeld noch nicht als Markierfelder (Checkboxen) eingerichtet hast?

- Spalte im Entwurfsmodus mit der rechten Maustaste anklicken
- Ersetzen durch auswählen
- und dann Markierfeld auswählen

Noch eine Frage. Benutzt Du xray? Das ist sehr hilfreich. Wenn Du hier im Forum nach xray suchst, findest Du genügend Hinweise dazu.

Gruß
Christiana

Hallo Dagmar,
ich verfolge Eure Versuche jetzt schon eine Weile, wollte mich aber nicht einmischen.
Wenn es Dir Recht ist, würde ich mir Deine Anwendung mal anschauen, denn aus dem was hier geschrieben wird, werde ich nicht schlau. Vielleicht kannst Du, sofern vorhanden, die echten Daten zu Testdaten verfälschen..... dann kann ja auch nichts passieren.
Noch eine Frage: Du änderst die Daten direkt in der Tabellenansicht?
Gruß eBayer

Hallo Christina,
Hat super funktioniert.

DANKE !!!!!
Gruß

dagmar

Hallo Dagmar,

versuchs mal so Gruß
Christiana

Hallo Christina,

danke für Deine Hilfe. Es gibt aber immer noch ein Problem. Ich bekomme immer die Fehlermeldung

Falscher Wert für Eigenschaft


oForm = oDoc.drawpage.forms.getbyindex(0)
oGrid = oForm.getByName("tb_essensmarken") 'Tabelle
StateCB1 = oGrid.getByName("tc_essen1") 'Tabellenspalte
StateCB2 = oGrid.getByName("tc_essen2")
'set iEssen1 = StateCB1
' CALL datensatz_speichern()
if oCheckbox.Model.Name = "tc_essen1" Then
If StateCB1 = TRUE Then 'weder true noch 1 funktioniert,
iEssen1 = 1
iEssen2 = 0
ELSE
iEssen1 = 0
end If
end if


Danke

Gruß

Dagmar

Hallo Dagmar,

zur Zeit arbeite ich auch gerade an einem Formular mit Tabellen-Kontrollfeld und Markierfeld.
Ersetze mal Deine Zeilen durch Eventuell musst Du noch den Tabellennamen anpassen. Die Spaltennamen müssen ebenfalls vom Tabellen-Kontrollfeld sein.

Ich hoffe, dass ich Dir damit helfen konnte
und wünsche Dir ein schönes Wochenende!

Christiana

Hallo Dagmar,

puzzledag hat geschrieben:Die Tabellenspalten tc_essen1/2 sind als Checkbox definiert.

Sorry, aber da muss ich passen.
Ich war davon ausgegangen, dass in dem Formular zwei Checkboxen vorhanden sind und diese gesteuert werden sollen.

Ob das mit der Abhängigkeit in der Tabelle direkt möglich ist kann ich Dir leider nicht sagen. Vielleicht fragst Du mal im Baseforum nach.

Dir auch ein schönes Wochenende.


Jürgen

Hallo Jürgen,


Die Tabellenspalten tc_essen1/2 sind als Checkbox definiert. Siehe Anhang.

Danke !

Schönes Wochenende

Dagmar

Hallo Dagmar,

puzzledag hat geschrieben:StateCB1 = oForm.getByName("tc_essen1") 'Tabellenspalte

Wieso nimmst Du Bezug auf die Tabellenspalte? Dieser ist doch schon hergestellt über die Eigenschaft "Datenfeld" unter dem Reiter "Daten". Oder nicht?

Ich kann mich eigentlich nur wiederholen: Du musst die Checkbox in der Form über den Namen ansprechen und nicht die Tabellenspalte ansprechen.

StateCB1 = oForm.getByName("CheckBox1")'Name der Checkbox !!

Bei mir in einem Testformular läuft das reibungslos.

Oder habe ich da was ganz falsch verstanden?

Jürgen

Hallo Jürgen,

vielen dank für die Hilfe. Habe Dein Beispiel angepasst und versucht.

Sub click_Checkbox( oEvt as Object)
set oCheckbox = oEvt.Source
oDoc = thisComponent
oForm = oDoc.drawpage.forms.getbyindex(0)
StateCB1 = oForm.getByName("tc_essen1") 'Tabellenspalte
StateCB2 = oForm.getByName("tc_essen2")
if oCheckbox.Model.Name = "tc_essen1" Then
If StateCB1 = 1 Then
StateCB2.state = 0
ELSE
StateCB1.state = 0
end If
end if
if oCheckbox.Model.Name = "tc_essen2" Then
If StateCB2 = 1 Then
StateCB1.state = 0
ELSE
StateCB2.state = 0
end If
end if
CALL essen_akt() 'Formular aktualisieren
end Sub

Jetzt bekomme ich folgende Fehlermeldung.


Basic Laufzeitfehler

Type: com.sun.star.container.NoSuchElementExceptionmessage:.

Was kann das sein?

Gruß
Dagmar

Hi Dagmar,

folgenden Code mit dem Ereignis "Status geändert" bei beiden Checkboxe zuweisen: Hilft das weiter?

Viel Erfolg.

Jürgen

Hallo,

ich habe in einem Datenbankformular eine Tabelle bei der zwei Spalten (Essen1, Essen2) mit einem Markierfeld belegt sind. Es darf in jeder Zeile nur aber nur entweder Essen1 oder Essen2 gesetzt werden. Nun sollen diese Spalten mit einem Makro belegt werden, das beim Klicken in eine der Spalten z.B. Essen1 prüft, ob
a) die Markierung in dieser Spalte gesetzt wurde und
b) wenn sie gesetzt wurde, die evtl. vorhandene Markierung der anderen Spalte (Essen2) löscht.

Ich habe nun ein Makro aufgezeichnet, das genau diese Schritte vornimmt. Nur leider funktioniert dieses nach erneutem Aufruf nicht mehr.

Hier der Code des Aufgezeichneten Makros.

sub xxx
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Refresh", "", 0, Array())


end sub


was ist falsch?

Ich habe nun probiert, die Daten direkt per SQL zu ändern. Hier bekomme ich aber Fehlermeldungen.


sub essen1_aendern (tc_teilnehmer as Intereger) as Integer
DIM iEssen AS Integer
DIM oStatement As Object, oDatenbankKontext As Object, oDatenquelle As Object
DIM oVerbindung As Object, oResultSet As Object
DIM sSQL As String, sHeute AS String, sEssen AS String, sTeilnehmer as String
CALL datensatz_speichern()
sTeilnehmer = tc_teilnehmer
sHeute = Right(Date, 4) & "-" & Mid(Date, 4, 2) & "-" & Left(Date, 2) 'Tagesdatum in Datenbankformat umwandeln
oDatenbankKontext = CreateUnoService ( "com.sun.star.sdb.DatabaseContext" )
oDatenquelle = oDatenbankKontext.getByName( "db_kantinenabrechnung" )
oVerbindung = oDatenquelle.getConnection( "" , "" )
oStatement = oVerbindung.createStatement()
oQuery = oVerbindung.createStatement()

sSQL = "SELECT ""essen1"" FROM ""tab_essensmarkenausgabe"" WHERE ""erfassungsdatum"" = '"+ sHeute +"' and ""id_teilnehmer"" = '"+ sTeilnehmer +"'"
oResultSet = oQuery.executeQuery(sSQL)
while oResultSet.next()
iEssen = oResultSet.getInt( 1 )
If iEssen = 1 Then
sEssen = iEssen
else
sEssen = "0"
end If
sSQL = "UPDATE ""tab_essensmarkenausgabe"" SET ""essen1 = ""essen2"" = 0 WHERE ""erfassungsdatum"" = '"+ sHeute +"' and ""id_teilnehmer"" = '"+ sTeilnehmer +"'"
oStatement.execute(sSQL)
wend
oResultSet.close()
oVerbindung.close()
oStatement.close()
oQuery.close()
CALL essen_akt() 'Formular aktualisieren
end sub

Jetzt habe ich keine Idee mehr.

Bitte dringend um Hilfe!!!!

Gruß

Dagmar