OpenOffice.info

REM  *****  BASIC  *****
Sub Main()

End sub

'=====================================================================================================
'						****************************************************
'=====================================================================================================

SUB ReloadefVorname (oEvent as object)

'========================Variablen
dim oForm as object, kfVorname as object
dim SQL as string
'========================Zuweisungen

SQL = "SELECT ""kndVorname"" FROM ""tblKunden"" WHERE ""kndName"" = '" & oEvent.Source.GetText() & "'"

oForm = oEvent.Source.Model.GetParent()					'	setzt "oForm" auf das Formular des aufrufenden Objektes
kfVorname = oForm.GetByName("efVorname") 				'	weißt kfVorname das Objekt "efVorname" zu
kfVorname.ListSource = SQL								'	setzt den Listeninhalt auf den string SQL 
kfVorname.Text = " Bitte Wählen "						'	setzt den Text auf Bitte wählen

END SUB

'=====================================================================================================
'						****************************************************
'=====================================================================================================

SUB ReloadtblVerleih (oEvent as object)

'========================Variablen
dim oForm as object, oDoc as object, oFilterForm as object, kfVorname as object, kfName as object, dummy as object
dim oFilterVorname as string, oFilterName as string
'========================Zuweisungen

oForm = oEvent.Source.Model.GetParent()
oDoc = oForm.GetParent()

oFilterForm = oDoc.GetByName("fmufDaten")

kfName = oForm.GetByName("efName")

oFilterVorname = oEvent.Source.GetText()
oFilterName = kfName.Text

oFilterForm.Filter = "tblKunden.kndName = '" & oFilterName & "' AND tblKunden.kndVorname = '" & oFilterVorname & "' "

dummy = oForm.GetByName("UnterschriftName")
dummy.Text = kfname.Text

dummy = oForm.GetByName("UnterschriftVorname")
dummy.Text = oEvent.Source.GetText()

oFilterForm.Reload()


END SUB


'=====================================================================================================
'						****************************************************
'						Die Nun folgenden Funktionen und Subrutinen sind von
'						Günther Schardinger, aufgrund derer ich meine Sub-
'						rutinen geschrieben habe, hiermit bedanke ich
'						mich nochmals bei Günther Schardinger
'						****************************************************
'=====================================================================================================

Ich habe mein Problem mit Folgendem Makro code erfolgreich abgeschlossen.
Dazu müssen noch folgende Abänderungen an der Ausgangsituation gemacht werden:
Von
[list][b]fmDaten[/b] (Hauptformular)
[list]-KombiFeld :efNachname
[b]fmufVorname (subformular)[/b]
[list]-KombiFeld :efVorname[/list]
[b]fmufArtikel (subformular)[/b]
[list]-Tabellen-Kontrollfeld: kndGrid[/list][/list][/list]

ändern in:
[list][b]fmMain[/b] ([i]von [b]"fmDaten"[/b] nach [b]"fmMain"[/b] umbenannt[/i])
[list]-KombiFeld :efNachname
-KombiFeld :efVorname ([i]verschoben ins Hauptformular[/i])
-Formatiertes Feld: UnterschfitVorname ([i]hinzugefügt[/i])
-Formatiertes Feld: UnterschfitName ([i]hinzugefügt[/i])[/list]
[b]fmufDaten[/b] ([i]aus dem Hauptformular herausgeholt[/i])
[list]-Tabellen-Kontrollfeld: tblVerleih ([i]von [b]"kndGrid"[/b] nach [b]"tblVerleih"[/b] umbenannt[/i])[/list]
[/list]
Die Abfrage afRefferenzabfrage fragt folgende Daten ab:
[size=110][list]-[b]artID[/b] von [b]tblArtikel[/b]
-[b]artName[/b] von [b]tblArtikel[/b]
-[b]refartMenge [/b]von [b]tblRefferenz[/b]
-[b]refDatumVon [/b]von [b]tblRefferenz[/b]
-[b]refDatumBis [/b]von [b]tblRefferenz[/b]
-[b]kndName [/b]von [b]tblKunden[/b]
-[b]kndVorname [/b]von [b]tblKunden[/b]
-[b]kndTelefon [/b]von [b]tblKunden[/b]
-[b]maName [/b]von [b]tblMitarbeiter[/b]
-[b]maVorname [/b]von [b]tblMitarbeiter[/b]
[/list][/size]

Alle Verknüpfungen wurden aufgelöst (geschieht automatisch sobald das SubFormular aus dem HauptFormular gelöst wird)

Somit enthalten die Formulare nur folgende Daten:
[list][b]fmMain:[/b][list]
-Art des Inhaltes: Tabelle
-Inhalt: tblKunden[/list]
[/list]
[list][b]fmufDaten:[/b]
[list]Art des Inhaltes: Abfrage
Inhalt: afRefferenzabfrage[/list]
[/list]

und die KombiFelder:
[list][b]efName:[/b]
[list]-Art des Listeninhalts: SQL
-Listeninhalt: SELECT DISTINCT "kndName" FROM "tblKunden"[/list][/list]
[list][b]efVorname:[/b]
[list]-Art des Listeninhalts: SQL
-Listeninhalt: SELECT "kndVorname" FROM "tblKunden"[/list][/list]
[code]REM ***** BASIC *****
Sub Main()

End sub

'=====================================================================================================
' ****************************************************
'=====================================================================================================

SUB ReloadefVorname (oEvent as object)

'========================Variablen
dim oForm as object, kfVorname as object
dim SQL as string
'========================Zuweisungen

SQL = "SELECT ""kndVorname"" FROM ""tblKunden"" WHERE ""kndName"" = '" & oEvent.Source.GetText() & "'"

oForm = oEvent.Source.Model.GetParent() ' setzt "oForm" auf das Formular des aufrufenden Objektes
kfVorname = oForm.GetByName("efVorname") ' weißt kfVorname das Objekt "efVorname" zu
kfVorname.ListSource = SQL ' setzt den Listeninhalt auf den string SQL
kfVorname.Text = " Bitte Wählen " ' setzt den Text auf Bitte wählen

END SUB

'=====================================================================================================
' ****************************************************
'=====================================================================================================

SUB ReloadtblVerleih (oEvent as object)

'========================Variablen
dim oForm as object, oDoc as object, oFilterForm as object, kfVorname as object, kfName as object, dummy as object
dim oFilterVorname as string, oFilterName as string
'========================Zuweisungen

oForm = oEvent.Source.Model.GetParent()
oDoc = oForm.GetParent()

oFilterForm = oDoc.GetByName("fmufDaten")

kfName = oForm.GetByName("efName")

oFilterVorname = oEvent.Source.GetText()
oFilterName = kfName.Text

oFilterForm.Filter = "tblKunden.kndName = '" & oFilterName & "' AND tblKunden.kndVorname = '" & oFilterVorname & "' "

dummy = oForm.GetByName("UnterschriftName")
dummy.Text = kfname.Text

dummy = oForm.GetByName("UnterschriftVorname")
dummy.Text = oEvent.Source.GetText()

oFilterForm.Reload()


END SUB


'=====================================================================================================
' ****************************************************
' Die Nun folgenden Funktionen und Subrutinen sind von
' Günther Schardinger, aufgrund derer ich meine Sub-
' rutinen geschrieben habe, hiermit bedanke ich
' mich nochmals bei Günther Schardinger
' ****************************************************
'=====================================================================================================[/code]

das mit dem filtern ist fertig

siehe [url]http://members.aon.at/schardinger/openoffice/[/url] beispiel Bsp03.odb

servus, günther

ich habe so was ähnliches getestet

siehe [url]http://members.aon.at/schardinger/openoffice/[/url] beispiel Bsp03.odb

ist noch nicht fertig.

den filter im formular zu setzen dürfte nicht mehr schwer sein.

ich möchte den gewählten satz in der tabelle anfahren.
strebe eine lösung mit dem ResultSet der tabelle an.

wäre für anregungen dankbar

Sub Reload (oEv as object)

oEv.source.model.commit() Rem... commits the value from the combobox into its bound field
oEv.source.model.parent.GetByName("fmufArtikel").Reload() Rem... reloads the subform.
oEv.source.model.parent.GetByName("fmufVorname").Reload()

End sub

SELECT "kndName" FROM "tblKunden"

Guten Abend die Damen und Herren,
ich habe folgendes Problem, ich möchte über zwei Comboboxen (Name\Vorname) mir die Artikel anzeigen lassen, welche sich die gewählte person ausgeliehen hat, dabei ist zu beachten, dass sich der die Auswahl des Vornamens nur noch auf die Möglichkeiten des vorher ausgewählten Namens beziehen soll.

Bis dato habe ich folgendes Makro, dass ich bei statusänderung der Namens Combobox aufrufe:

[code]Sub Reload (oEv as object)

oEv.source.model.commit() Rem... commits the value from the combobox into its bound field
oEv.source.model.parent.GetByName("fmufArtikel").Reload() Rem... reloads the subform.
oEv.source.model.parent.GetByName("fmufVorname").Reload()

End sub[/code]

Und mein Formular enthält folgendes:
[list][b]fmDaten[/b] (Hauptformular)
-Kombobox :Nachname
[list][b]fmufVorname (subformular)[/b]
-Kombobox :Vorname[/list]
[list][b]fmufArtikel (subformular)[/b]
-Tabellen-Kontrollfeld: kndGrid[/list][/list]

Das Hauptformular enthält die Tabelle [i][b]"tblDummy"[/b][/i], in die die Kombobox die Spalte [i][b]"dmmyInhalt 1"[/b][/i] über das Datenfeld, den selektierten Wert einträgt. Der Listeninhalt ergibt sich aus folgendem SQL:
[code]SELECT "kndName" FROM "tblKunden"[/code]

Das Subformular [i][b]"fmufArtikel"[/b][/i] enthält die Abfrage afRefferenzabfrage und ist von [i][b]"dmmyInhalt 1"[/b][/i] nach [i][b]"kndName"[/b][/i]
verknüpft

[size=120][b]Meine Tabellen: [/b]
[list]-tblArtikel
-tblDummy
-tblMitarbeiter
-tblKunden
-tblRefferenz[/list][/size]

Die Tabellen sind wie folgt gegliedert:
[b]tblArtikel:[/b]
[list]-artID
-artName
-artMenge
-artBreite
-artHöhe
-artLänge
-artFarbe
-artZubehör (ja/nein)
-artZBText
-artSortierung[/list]
[b]tblDummy[/b]
[list]-dmmyID
-dmmyInhalt 1
-dmmyInhalt 2[/list]
[b]tblMitarbeiter[/b]
[list]-maName
-maVorname
-maID[/list]
[b]tblKunden[/b]
[list]-kndID
-kndName
-kndVorname
-kndTelefon[/list]
[b]tblRefferenz[/b]
[list]-refID
-refkndID
-refartID
-refartMenge
-refDatumVon
-refDatumBis
-refmaID[/list]

Ich hoffe mir kann irgendwer helfen denn ich komme und komme einfach nicht weiter. Mein kopf brummt und meine Base Basic Programmier kenntnis stufe ich als absoluter anfänger ein.