Suchergebnis bearbeiten

[tacku]

Hallo Office-Community,

ich bin zur Zeit dabei eine Datenbank als Schulprojekt zu erstellen. Ich habe ein Suchfeld in mein Formular angegeben. Wenn ich dort bestimmte Werte eingebe werden mir sämtliche Rezepte dazu in tabellarischer Sicht angezeigt. Soweit funktioniert auch alles.

Mein Problem:
Ich möchte eins dieser Ergebnisse anklicken und dann am besten mit einem Button in einem neuen Formular öffnen. Dort hin sollen alle Daten aus dem vorherigen Datensatz mit übernommen werden, sodass ich diese dann dort bearbeiten kann.
Jedoch fehlen mir die Kenntnisse in der Erstellung von Makros.

Ich würde mich sehr freuen, wenn mir jemand dabei unter die Arme helfen könnte.
Ich bedanke mich schon mal im voraus:)

[F3K Total]

Hi,
das hatten wir gerade an dieser Stelle.
HTH R

[tacku]

OK danke,
wenn ich jedoch auf die id in meiner tabelle klicke und dann auf den button erscheint die Meldung:

BASIC-Laufzeitfehler.
Eigenschaften oder Methode nicht gefunden:Mainform.

So sieht das Makro derzeit bei mir aus.

Code: Alles auswählen

sub S_open_Form_Gemueserezepte
oform = thisComponent.drawpage.forms.MainForm
    nID = oform.getint(oform.findcolumn("GemüserezeptID"))'ID der zugrundeliegenden Tabelle ausgelesen
    oFormDocGemueserezepteErg = ThisDatabasedocument.formdocuments.getbyname("GemueserezepteErg").open'Detailformular öffen
    oFormGemueserezepteErg = oFormDocGemueserezepteErg.drawpage.forms.MainForm
    oFormGemueserezepteErg.Filter = "(""GemüserezeptID"" = '"+nID+"')"
end sub

[F3K Total]

Na,
dann beschäftige dich mit dem Formularnavigator, um herauszufinden wie dein Formular heißt, oder lade die Datenbank hier hoch, dann können wir mal schauen.
Gruß R

[tacku]

Ok hier ist die Datenbank.
Der aus gewählte Datensatz aus GemüserezepteLow soll in GemueserezepteErg übernommen werden zum bearbeiten.

[F3K Total]

So, du hast ein Filter - Formular dazwischen eingebaut

N.png (13.02 KiB) 2581 mal betrachtet

daher muss das Makro so geändert werden:

Code: Alles auswählen

sub S_open_Form_Gemueserezepte
    oform = thisComponent.drawpage.forms.Filter.MainForm
    nID = oform.getint(oform.findcolumn("GemüserezeptID"))'ID der zugrundeliegenden Tabelle ausgelesen
    oFormDocGemueserezepteErg = ThisDatabasedocument.formdocuments.getbyname("GemueserezepteErg").open'Detailformular öffen
    oFormGemueserezepteErg = oFormDocGemueserezepteErg.drawpage.forms.MainForm
    oFormGemueserezepteErg.Filter = "(""GemüserezeptID"" = '"+nID+"')"
end sub

In der Filter Abfrage1 muss noch

Code: Alles auswählen

= null

durch

Code: Alles auswählen

is null

ersetzt werden, sonst werden bei leerem Filterfeld nicht alle Datensätze angezeigt, mit AOO gibt es sogar eine Fehlermeldung.
Ausserdem sollte Schaltfläche1 auf MainForm (siehe Bild oben) verlegt werden, damit nicht immer gefragt wird, ob der Filterdatensatz gespeichert werden soll.

Gruß R

[tacku]

Vielen vielen Dank. Es funktioniert