Formularfeld via Makro befüllen
Verfasst: Mo, 03.02.2014 15:11
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.
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
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: Alles auswählen
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