OpenOffice.info

Hallo Acco,

möchte mich nochmals bei dir bedanken ... das Makro funktioniert super!!!

Ist auch etwas leichter zu verstehen, als das was ich verwenden wollte.

Vielen Dank für deine Hilfe

LG und Gute Nacht

Joe

Hallo,

super Danke für die Unterstützung. Werde ich dann gleich morgen früh ausprobieren.

LG Joe

SUB OpenForm_Datenbearbeiten
    oForm = ThisComponent.Drawpage.Forms.Filter.Kundendaten
    nID = oForm.getInt(oForm.findColumn("ID"))
    oFormDatenbearbeiten = ThisDatabasedocument.FormDocuments.getByName("Kundenstammdaten_Aenderung").open
    oFormDatenbearbeiten = oFormDatenbearbeiten.Drawpage.Forms.MainForm
    oFormDatenbearbeiten.Filter = "(""ID"" = '" + nID + "')"
    oFormDatenbearbeiten.reload
END SUB

Hallo Joe,

Du hast da einen recht komplizierten Weg eingeschlagen, das tut es auch
[code]SUB OpenForm_Datenbearbeiten
oForm = ThisComponent.Drawpage.Forms.Filter.Kundendaten
nID = oForm.getInt(oForm.findColumn("ID"))
oFormDatenbearbeiten = ThisDatabasedocument.FormDocuments.getByName("Kundenstammdaten_Aenderung").open
oFormDatenbearbeiten = oFormDatenbearbeiten.Drawpage.Forms.MainForm
oFormDatenbearbeiten.Filter = "(""ID"" = '" + nID + "')"
oFormDatenbearbeiten.reload
END SUB[/code]
Belege die Schaltfläche im Formular "Stammdaten" damit. Wenn Du in Stammdaten den Datensatz wechselst, wird auch das Bearbeiten-Formular neu geladen. Ursprünglich hat das mal F3K Total irgendwo im Forum eingestellt, ich habe es auf Deine DB angepaßt. Ist ne schöne SUB, ich benutze sie auch gern. Also nochmal Dank an F3K Total und viel Erfolg weiterhin

Gruß

acco

Edit:
eine kleine Nachlässigkeit hat sicheingeschlichen, die zwar nicht die Funktion, aber die Verständlichkeit beeinträchtigt. Diese Zeile so ändern:
oForm[b][color=#0000FF]Doc[/color][/b]Datenbearbeiten = ThisDatabasedocument.FormDocuments.getByName("Kundenstammdaten_Aenderung").open

Gruß acco

odetailForm = ocomponent.drawpage.forms.MainForm
odetailForm.Filter = "( ""Kundenstammdaten"".""ID"" = "+nID+" )"'Nach der Person mit der aus dem ersten Formular ausgelesenen ID filtern
odetailform.reload

Hallo Leute,

lange habe ich mich jetzt mit der Datenbank weitergespielt und stehe jetzt aber wieder an...

Bei den Testläufen hat es sich als nicht praktikabel erwiesen, dass in der Such-Datenbank auch die Daten gleich geändert werden können - deshalb will ich das Formular auf 2 -3 Formulare aufspalten.
Beim ersten Formular sollen die Daten zur Ansicht verfügbar sein und derzeit noch für die Neuanlage
Beim zweiten Formular sollen die Daten geändert werden können.

Ich habe versucht anhand der Anleitungen aus folgenden Beitrag http://de.openoffice.info/ucp.php?mode=activate&u=56714&k=3NJYIO2 die Übergabe der Werte aus dem 1. Formular in das 2. zu übertragen.

Die "nID" wird auch korrekt in das 2. Formular übergeben, was ich anhand der Messagebox im 2. Formular geprüft habe, allerdings wird der Filter nicht gesetzt. Könnt ihr mir da weiterhelfen?

So wie ich das erkenne muss es irgendwo an diesen Codezeilen liegen:
[code]
odetailForm = ocomponent.drawpage.forms.MainForm
odetailForm.Filter = "( ""Kundenstammdaten"".""ID"" = "+nID+" )"'Nach der Person mit der aus dem ersten Formular ausgelesenen ID filtern
odetailform.reload
[/code]

Ich habe versucht mein Formular von der Formularstruktur her genau an die Vorlage anzupassen, allerdings funktioniert es nicht wirklich.
"Kundenstammdaten" ist die Tabelle in der die Kundenstammdaten versteckt sind - das sollte ja passen, da ich ja genau den Datensatz aus den Kundenstammdaten haben will, der der nID entspricht.
Ich habe stundenlang herum probiert und versucht nachzulesen, aber leider ohne Erfolg...
Hoffe, dass ich von euch einen Hinweis erhalten kann.

Vielen Dank vorab

LG Joe

[quote="Joeer82"]Kann man irgendwie dieser Tabelle sagen, dass wenn ich einen neuen Datensatz anlege (auf neuer Klient klicke), dass die Tabelle keine Daten anzeigen soll?[/quote]
Im Suchformular wäre das "nicht anzeigen" wohl eher hinderlich.
Du kannst ein zweites Formular anlegen, und ihm die Eigenschaft NUR DATEN HINZUFÜGEN geben, dann ist es beim Anlegen eines neuen Datensatzes leer.
Was das Anmelden ans Forum betrifft, ich kann da nicht helfen, du solltest dich an die [url=http://de.openoffice.info/memberlist.php?mode=group&g=25][color=#800000]Administratoren[/color][/url] wenden.
Gruß R

Sub S_no_search_result
    oFormFilter = Thiscomponent.drawpage.forms.Filter
    oF_Adressen = oFormFilter.F_Adressen
    if oF_Adressen.RowCount = 0 then' ---> kein Datensatz vorhanden
        msgbox ("Es wurde kein Datensatz gefunden, der Filter wird zurückgesetzt",64,"Suchergebnis")
        oFormFilter.updatenull(oFormFilter.findcolumn("F_Nachname"))
        oFormFilter.updatenull(oFormFilter.findcolumn("F_Vorname"))
        oFormFilter.updaterow
        oFormFilter.reload
    end if
end sub

Hi Joe,
wenn du im Beispiel aus dem Videotutorial 5 dieses Makro an das Ereignis "nach dem Datensatzwechsel" des Formulares "F_Adressen" hängst, hast du deine Meldung und das automatische Zurücksetzen des Filters.
[code]Sub S_no_search_result
oFormFilter = Thiscomponent.drawpage.forms.Filter
oF_Adressen = oFormFilter.F_Adressen
if oF_Adressen.RowCount = 0 then' ---> kein Datensatz vorhanden
msgbox ("Es wurde kein Datensatz gefunden, der Filter wird zurückgesetzt",64,"Suchergebnis")
oFormFilter.updatenull(oFormFilter.findcolumn("F_Nachname"))
oFormFilter.updatenull(oFormFilter.findcolumn("F_Vorname"))
oFormFilter.updaterow
oFormFilter.reload
end if
end sub[/code]
Gruß R

Hallo Joeer82,
die Sache mit der Fehlermeldung könnte auf zwei Weisen funktionieren
[list=1][*]per makro
[*]Dazu kommen wir im Folgenden ...[/list]
Die zweiter Herausforderung, grundsätzlich, ja geht, entweder
[list][*]per Makro
[*]und jetzt auch die oben fehlende Antwort: oder... geht alles mit HSQL aber nicht mit der eingebetten Version 1.8.10.
Gerade gestern habe ich eine [url=http://www.libreoffice-forum.de/viewtopic.php?f=10&t=13391#p28591]Antwort[/url] zu einer ähnlichen Frage geschrieben. Wenn Du dann die Datenbank gesplittet hast, können wir damit weitermachen, die Datenbank auf die aktuelle Version 2.3.2 upzugraden. Dann kann man berechnete Spalten und Trigger verwenden, die eben genau das tun, z.B. den User mitzuschreiben, die Änderungen usw.
Ist aber nicht banal, die Datenbank kann danach fast ausschließlich mit SQL-Befehlen verändert werden.[/list]

Gruß R

Hallo Rik,

dazu hätte ich erst einmal mich so weit in dem Forum hochhangeln müssen. Das habe ich bisher wohl äußerst selten gemacht. Mein Einstieg ist direkt die Programmkomponente Base/SQL. Das andere schaue ich mir in der Regel nicht weiter an.

Gruß

Robert

Hallo Robert,
hättest du aber drauf kommen können ... siehe [url=http://de.openoffice.info/viewtopic.php?f=27&t=54234#p237478]FAQ[/url] :wink:
Gruß Rik

Hallo R,

wusste ich gar nicht, dass Du auch noch mit anderen Pseudonymen unterwegs bist ...

Gruß

Robert

[quote="RobertG"]Abfragen können in Base aber sehr wohl editierbar sein.[/quote]Wollte ich auch gerade schreiben, dazu muss die Abfrage alle Primärschluessel aller beteiligten Tabellen enthalten.
Gruss R(Lucky)

Hallo Joe,

grundsätzlich kannst Du Suchfunktionen nur auf Abfragen anwenden. Abfragen können in Base aber sehr wohl editierbar sein. Das gilt auch für Parameterabfragen. Wenn das, was Du von "Lucky Müller" hast, für Dich funktioniert, dann kommt es nur noch auf die Art der Abfrage an, ob denn der Inhalt editierbar ist. Schau Dir im Handbuch einfach einmal an, welche Bedingungen für eine editierbare Abfrage erfüllt sein müssen.

Gruß

Robert

SELECT * FROM "Medien" WHERE "Titel" LIKE IFNULL( ( SELECT '%' || "Suchbegriff" ||'%' FROM "Filter" ), "Titel" ) 

Hallo Joe,

wenn Du das universeller willst, dann musst Du den Code nur für jedes Feld erweitern. Ich würde das allgemeine Nachfragefeld dann nicht ":qName" sonder z.B. ":qSuche" nennen. Das kann dann quer Beet laufen.
Noch allgemeiner geht es, wenn Du so etwas nutzt:
[code]SELECT * FROM "Medien" WHERE "Titel" LIKE IFNULL( ( SELECT '%' || "Suchbegriff" ||'%' FROM "Filter" ), "Titel" ) [/code]
Siehe aktuelles Handbuch 4.2, S. 272
Da wird dann von einem Formular aus eine Filtertabelle mit einem Wert gefüllt und im Unterformular das Ergebnis aufgesucht. Für die Vorlage mit Parameter wäre also '%'||:qName||'%' die Allroundfunktion.

Gruß

Robert

... WHERE (LOWER("NACHNAME") LIKE LOWER (:qNAME||'%') OR LOWER("VORNAME") LIKE LOWER (:qNAME||'%') OR :qNAME IS NULL)

Hi, du kannst natürlich über einen Parameter (Eingabefeld) auch mehrere Spalten durchsuchen etwa so:
[code]... WHERE (LOWER("NACHNAME") LIKE LOWER (:qNAME||'%') OR LOWER("VORNAME") LIKE LOWER (:qNAME||'%') OR :qNAME IS NULL)[/code]HTH R