OpenOffice.info

Kommando="SELECT Tel FROM ""Gesamt"" WHERE ""Berater""=Berater"

Kommando="SELECT Tel FROM ""Gesamt"" WHERE ""Berater""=" & Berater

Kommando="SELECT Tel FROM ""Gesamt"" WHERE ""Berater""= '" & Berater & "'"

oForm.getByName("Tel").value=Result

If Result.Next Then oForm.getByName("Tel").value=Result.getString(1)

If Result.Next Then oForm.getByName("Tel").Text=Result.getString(1)

Aloha

[quote]Leider scheitert er schon bei der DrawPage mit der Meldung "Eigenschaft oder Methode nicht gefunden: DrawPage"[/quote]
Diese Fehlermeldung würde ich nur dann vermuten, wenn Du aus einem Calc-Sheet heraus arbeitest.

Aber ein paar auf den ersten Blick offensichtliche Fehler:
[code]Kommando="SELECT Tel FROM ""Gesamt"" WHERE ""Berater""=Berater"[/code]
Da Berater eine Variable ist und kein konstanter Teil Deines String, musst Du die Strings verknüpfen ala
[code]Kommando="SELECT Tel FROM ""Gesamt"" WHERE ""Berater""=" & Berater[/code]
bzw, wenn Berater einen Name enthält wie "Schmidt", dann
[code]Kommando="SELECT Tel FROM ""Gesamt"" WHERE ""Berater""= '" & Berater & "'"[/code]

[code]oForm.getByName("Tel").value=Result[/code]
"Result" enthält keinen Wert, den Du einfach zuweisen könntest, sondern 0-x Ergebniszeilen.
Die korrekte Form wäre
[code]If Result.Next Then oForm.getByName("Tel").value=Result.getString(1)[/code]
oder eher, da Du von einem Textfeld sprichst
[code]If Result.Next Then oForm.getByName("Tel").Text=Result.getString(1)[/code]


Davon mal abgesehen, brauchst Du für derart simple Aufgaben eigentlich kein Makro, Stichwort Subformulare.
Öffne den "Formular-Navigator" -> Rechtsklick auf das Formular mit dem Namen "Kundenadressenpflege Beta - In Entwicklung" -> Neu -> Formular
Rechtsklick auf das neue Formular -> Reiter Daten -> als Tabelle "Gesamt" auswählen.
Auf die 3 Punkte neben "Verknüpfen von" klicken -> die entsprechende Verknüpfung zur Beratertabelle auswählen
Textfeld einbauen, als Datenfeld "Tel" wählen.

sub Berater
Dim oDoc as Object
Dim oDrawPage as Object
Dim oForm as Object

oDoc = ThisComponent
oDrawPage = oDoc.DrawPage()
oForm = oDrawPage.Forms.GetByName("Kundenadressenpflege Beta - In Entwicklung")
Berater = oForm.getByName("Berater").value
Kommando="SELECT Tel FROM ""Gesamt"" WHERE ""Berater""=Berater"
SQLStatement=ConnectToDB.createStatement
Result=SQLStatement.executeQuery (Kommando)
oForm.getByName("Tel").value=Result

end sub

Hallo,

ich versuche gerade in einem Formular anhand eines Kombinationsfelds, mittels Event wird ein Makro ausgeführt, das den Wert ausliest, danach einen Select ausführt und das Ergebnis in ein Textfeld schreibt.

Ich hab mir aus Internetrecherchen folgenden Code zusammengebastelt.
Leider scheitert er schon bei der DrawPage mit der Meldung "Eigenschaft oder Methode nicht gefunden: DrawPage"
In allen Beispielen, die ich gefunden habe, mit denen man auf ein Forumlar zugreifen konnte, war das aber beschrieben, dass ich über das Document -> DrawPage -> Forms -> benamtes Formular zugreife.

[code]
sub Berater
Dim oDoc as Object
Dim oDrawPage as Object
Dim oForm as Object

oDoc = ThisComponent
oDrawPage = oDoc.DrawPage()
oForm = oDrawPage.Forms.GetByName("Kundenadressenpflege Beta - In Entwicklung")
Berater = oForm.getByName("Berater").value
Kommando="SELECT Tel FROM ""Gesamt"" WHERE ""Berater""=Berater"
SQLStatement=ConnectToDB.createStatement
Result=SQLStatement.executeQuery (Kommando)
oForm.getByName("Tel").value=Result

end sub
[/code]

Vielen Dank im voraus,
Markus Haupt



[color=#800000]Moderation,4[/color]: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören