Hallo userliste,
Voraussetzungen:
Software: OOo2.0 Final-Version
Betriebssystem: Windows XP Professional bzw. Windows NT 4.0
Ich habe eine Base-Datenbank Datenbank.odb und ein Formular im
Writer-Dokument. Im Formular sind 22 Textfelder und vier ComboBoxen sowie
eine Tabelle (TableControl) enthalten. Die Textfelder des Formulars, das
TableControl sowie die ComboBoxen sind über die Datenfelder mit der
Datenbank verbunden.
Trage ich von Hand einen Text in ein Textfeld (TextField) ein und verlasse
dieses mit der <Enter-> bzw. <Tab->taste, wird der Inhalt dieses Feldes
sowohl in der Datenbank wie auch in dem TableControl dargestellt. Bei drei
ComboBoxen wird aus der integrierten Liste ein Wert (z.B. eine Gemarkung =
Albsheim/Eis) ausgewählt. Die ComboBox ist in diesem Fall über ein Makro mit
dem Ereignis Maustaste losgelassen verbunden. In diesem Makro wird nach
der Gemarkung Albsheim/Eis gesucht und dann den Textfeldern txtGemNr,
txtGemeinde und txtAmtsbezirk die entsprechenden Werte zugewiesen (siehe
Auszug aus dem Makro weiter unten). Diese Werte werden auch korrekt in den
Textfeldern dargestellt aber weder in die Datenbank noch in die Tabelle
(TableControl) übernommen. Selbst wenn die Felder mit der Tab-Taste
angesprungen werden und der Inhalt nachträglich mit der <Enter-Taste>
bestätigt wird, passiert nichts. Erst wenn ich in einem dieser Felder den
Inhalt mit <Strg>+C in die Zwischenablage kopiere und mit <Strg>+V den
Inhalt wieder in das Feld einfüge und dann die <Enter-Taste> drücke, wird
der Inhalt sowohl in die Datenbank als auch in die Tabelle (TableControl)
übernommen.
Kann mir jemand dieses Verhalten bestätigen und ist dies ein Fehlverhalten
von Base?
Auszug aus dem Makro:
Sub Gemarkung
DIM txtGemarkung as Object
DIM txtGemNr as Object
DIM txtGemeinde as Object
DIM txtAmtsbezirk as Object
DIM oForm as Object
oForm = ThisComponent.drawpage.forms(0)
If oForm.getByName("txtGemarkung").Text <> "" Then
GemarkungSuchen(oForm.getByName("txtGemarkung").Text)
End If
End Sub
'==========================================================
Function GemarkungSuchen(gmkg as String)
Dim oDoc as Object
DIM oForm as Object
Dim oTable as Object
Dim oObj as Object
oDoc = ThisComponent
oForm = oDoc.Drawpage.Forms(0)
oTable = oForm.getByName("TableControl")
If gmkg = "Albsheim/Eis" Then
oForm.GetByName("txtGemNr").Text = "4411"
oForm.GetByName("txtGemeinde").Text = "Obrigheim"
oForm.GetByName("txtAmtsbezirk").Text = "Grünstadt"
End If
If gmkg = "Altleiningen" Then
oForm.GetByName("txtGemNr").Text = "4446"
oForm.GetByName("txtGemeinde").Text = "Altleiningen"
oForm.GetByName("txtAmtsbezirk").Text = "Grünstadt"
End If
..
End Function
Mit freundlichen Grüßen
Hellmuth
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
