OpenOffice.info

ich glaub, dass funktioniert.
Muss es morgen nochmal in Ruhe testen, sieht aber schon sehr gut aus.

Danke dir, für deine Ausdauer und Hilfe.

Grüße

Sacca

oForm.Filter = """A"" = 'deutsch' AND (""B"" IS NULL OR ""C"" IS NULL)"

Mit Base-Formular + embedded HSQLDB funktioniert für mich auch
[code]oForm.Filter = """A"" = 'deutsch' AND (""B"" IS NULL OR ""C"" IS NULL)"[/code]
einwandfrei.
Insofern kann ich Dir da leider nicht weiterhelfen.

Ist openoffice Base, oder besser gesagt LibreOffice Base.

Aber ich glaube, ich habe ne Lösung.
Ich erstelle ne Abfrage mit dem Assistenten, der prüft, ob EAN,mpn etc vorhanden sind oder nicht und wechsel dann per Makro von der Haupttabelle (Artikel-Datenbank) in die Abfragetabelle.
Aus dieser lässt sich bequem per Makro, alle Artikel rausfiltern, die die Bedingung (in dem Fall Sprache="deutsch") erfüllen.

Ist nur die Frage, wie ich von der Tabelle auf die Abfrage wechsel.
Ich befasse mich erst seit paar Wochen mit dem Thema, deshalb Entschuldigung für mögliche newbee-Fehler.

sacca

Womit arbeitest Du?

Deine ursprünglichen Codeausschnitte liessen eine MySQL-Datenbank vermuten (und dort funktioniert der von mir gepostete Workaround wie gewünscht, das habe ich gerade mit einem Base-Formular + MySQL-DB getestet, Win XP + OOo 3.2.1).

sry, war falsches Bild,

hier das richtige

es passiert nix

gibt keinen Fehler, aber es funzt auch nix mehr, als wenn das makro abgeschmiert ist.
Mit bleibt nur, in den den entwurfsmodus zu wechseln und erneut beginnen.
Dann kommt allerdings die Fehlermeldung:

[quote="saccara"]geht auch nicht so richtig[/quote]
Und das soll was heissen...?

geht auch nicht so richtig

sacca

danke trotzdem

If sSuchwort4="Googledaten fehlen" then sSuchwort4 ="(`Artikel-Datenbank`.`Sprache` = 'deutsch' AND IF(CHAR_LENGTH(`Artikel-Datenbank`.`EAN:`),1,0)+IF(CHAR_LENGTH(`Artikel-Datenbank`.`mpn:`),1,0) < 2)"

Aloha

Sieht auf den ersten Blick so aus, als würde Base geschachtelte Bedingungen nicht korrekt erkennen.

Bliebe die Möglichkeit, den zugrundeliegenden SQL-Befehl des Formulars zu ändern, oder mit einem Workaround ala
[code]If sSuchwort4="Googledaten fehlen" then sSuchwort4 ="(`Artikel-Datenbank`.`Sprache` = 'deutsch' AND IF(CHAR_LENGTH(`Artikel-Datenbank`.`EAN:`),1,0)+IF(CHAR_LENGTH(`Artikel-Datenbank`.`mpn:`),1,0) < 2)"[/code]
zu arbeiten.
Oder vielleicht kennt auch jemand, der mehr Ahnung von Base hat, einen anderen Weg.

jup, ich kann mal den ganzen code posten.
[list]
sub Abfrage_Filter_setzen
Dim oSuchFeld4 as variant
Dim oTypFeld4 as variant
Dim oDoc4 as variant
Dim oForm as variant
oDoc4 = ThisComponent
oForm = oDoc4.DrawPage.Forms.GetByName("MainForm") 'oder getByIndex()
oSuchFeld4 = oForm.getByName("Abfrage_Filter_Menu")
sSuchwort4 = oSuchFeld4.text
If sSuchwort4="Nicht im Shop" then sSuchwort4 ="( `Artikel-Datenbank`.`Produkt-URL` IS NULL AND `Artikel-Datenbank`.`Sprache` = 'deutsch' )"
If sSuchwort4="Googledaten fehlen" then sSuchwort4 ="(`Artikel-Datenbank`.`Sprache` = 'deutsch' AND(`Artikel-Datenbank`.`EAN:` IS NULL OR `Artikel-Datenbank`.`mpn` IS NULL ))"
If sSuchwort4="Bemerkungen" then sSuchwort4 ="( `Artikel-Datenbank`.`Bemerkung:` IS NOT NULL )"

oForm.filter = sSuchwort4
oForm.ApplyFilter=true
oForm.reload()
end sub
[/list]

genaugenommen, soll über ein markierfeld dem produkt bescheinigt werden, ob es bei google gelistet werden soll und dann soll über einen filter herausgefunden werden, ob noch google relevanten Daten (wie ean, mpn o.ä.) fehlen.
Habe aber jetzt bissl rumprobiert und das Markierfeld durch die Bedingung (Sprache) ersetzt, um den Fehler zu finden.
Es sind noch einige andere Bedingungen notwendig, aber ich habe die erstmal rausgelöscht, wegen Fehlersuche und wegen der Übersichtlichkeit.
Es geht praktisch nur um die Verschachtelung (2. If...then Anweisung) .
Die anderen Funktionieren prima.

Gruß

sacca

oForm.applyFilter = TRUE

Aloha

Bist Du in einem Formular?
Wenn ja, hast Du
[code]oForm.applyFilter = TRUE[/code]
gesetzt?
Bedenkst Du Groß-/Kleinschriebung?

Entweder habe ich hier nen Fehler drin, oder das funktioniert nicht.

oForm.filter = "(`Artikel-Datenbank`.`sprache` = 'deutsch' AND(`Artikel-Datenbank`.`EAN:` IS NULL OR `Artikel-Datenbank`.`mpn` IS NULL ))"

sprache, ean:, und mpn sind alle strings.
Es kommt keine Filterung zustande.
sacca

oForm.filter = "(`Datenbank`.`Bedingung` = 'ja' AND (`Datenbank`.`info1` IS NULL OR `Datenbank`.`info2` IS NULL))"

Aloha

[code]oForm.filter = "(`Datenbank`.`Bedingung` = 'ja' AND (`Datenbank`.`info1` IS NULL OR `Datenbank`.`info2` IS NULL))"[/code]
Funktioniert nicht?
(= 'ja' unter Umständen ersetzen durch = 1, je nach Spaltendefinition)

richtig, hatte das heute früh nur noch schnell reingehackt, deshalb hat sich der Fehler eingeschlichen.
Das "=" muss natürlich weg.

sacca

"( `Datenbank`.`info1` IS NULL OR `Datenbank`.`info2` = IS NULL)"

[quote]Lösung über eine Tabellenansicht gefunden, bei der ein editieren nicht möglich ist[/quote]

Tabelle oder Formular?

[code]"( `Datenbank`.`info1` IS NULL OR `Datenbank`.`info2` = IS NULL)"[/code]
... wird wegen dem "=" Probleme machen - einfach weglassen.