OpenOffice.info

    if QueryErg.next then Testtext = QueryErg.GetString(1)
    ThisComponent.DrawPage.Forms.getByIndex(0).getByName("Textfeld 1").text = Testtext 

Hi,
warum schreibst Du eine Makro Frage im WRITER-Forum?
Versuche es mal so:
[code] if QueryErg.next then Testtext = QueryErg.GetString(1)
ThisComponent.DrawPage.Forms.getByIndex(0).getByName("Textfeld 1").text = Testtext [/code]
Gruß R

REM  *****  BASIC  *****

Sub Main
	Dim sPartner, Testtext As string
	Dim Context, DB, Connection, QueryErg As Object
	Dim DBName, sSQL As String
	Dim Statement As Variant
End Sub

Sub Macro1

    sPartner = ThisComponent.DrawPage.Forms.getByIndex(0).getByName("ComboBox")
	
    DBName = "KR-DATA"
    Context = createUnoService("com.sun.star.sdb.DatabaseContext")
    DB = Context.GetByName (DBName)
    Connection = DB.GetConnection ("","")
    sSql = "SELECT `Abt` FROM `Mitarbeiter` WHERE `Gesprächspartner` = '"+sPartner.text+"';"    
    Statement = Connection.CreateStatement
    QueryErg = Statement.ExecuteQuery(sSql)
    Testtext = QueryErg.GetString(1)
    'ThisComponent.DrawPage.Forms.getByIndex(0).getByName("Textfeld 1").text = QueryErg.GetString(1)
    
    Connection.Close()
End Sub

Hi, habe folgendes Problem:
Ich habe ein Formular für ein Fax mit mehreren Feldern. Wenn der jenige der dieses Fax ausfüllt nun in einem dieser Formularfelder seinen Namen ausfüllt sollen alle anderen Felder die sich auf ihn Beziehen, wie z.B. "Abteilung" sich automatisch befüllen.
[code]
REM ***** BASIC *****

Sub Main
Dim sPartner, Testtext As string
Dim Context, DB, Connection, QueryErg As Object
Dim DBName, sSQL As String
Dim Statement As Variant
End Sub

Sub Macro1

sPartner = ThisComponent.DrawPage.Forms.getByIndex(0).getByName("ComboBox")

DBName = "KR-DATA"
Context = createUnoService("com.sun.star.sdb.DatabaseContext")
DB = Context.GetByName (DBName)
Connection = DB.GetConnection ("","")
sSql = "SELECT `Abt` FROM `Mitarbeiter` WHERE `Gesprächspartner` = '"+sPartner.text+"';"
Statement = Connection.CreateStatement
QueryErg = Statement.ExecuteQuery(sSql)
Testtext = QueryErg.GetString(1)
'ThisComponent.DrawPage.Forms.getByIndex(0).getByName("Textfeld 1").text = QueryErg.GetString(1)

Connection.Close()
End Sub
[/code]
aber leider funzt es nicht ... habt ihr ne Idee wo mein Fehler liegt? Dieses Makro wird gestartet nach Auswahl eines Eintages im Feld "Gesprächspartner" (ComboBox) ... die SQL-Abfrage ist richtig ... nur ab da komme ich nicht weiter