OpenOffice.info

Verfasst: **Fr, 14.01.2011 22:03**

Hallo liebe User,

ich versuche schon seit einiger Zeit verzweifelt einen Code für folgendes Problem zu schreiben.
Ich habe ein Nummernfeld in einem Dialog. Das Dialogfeld heißt "Kundennummer" und der Dialog "Eingaben"
Um zu testen ob das Auslesen funktioniert, wollte ich die im Dialogfeld eingegebene Kundennummer zunächst in einer Message Box anzeigen lassen.
Leider blieben meine Versuche erfolglos.

Für Eure Hilfe bedanke ich mich schon mal ganz herzlich.

Falls das Thema im Forum schon beschrieben wurde entschuldige ich mich, jedoch hab ich trotz langer Suche nichts genaueres dazu gefunden.

Grüße Stefan

Verfasst: **Sa, 15.01.2011 21:20**

Beispielsweise:

Code: Alles auswählen

Dim oDialog1

Sub Dialog_starten()
	DialogLibraries.LoadLibrary("Standard") 
	oForm = DialogLibraries.Standard.Eingaben
	oDialog1 = CreateUnoDialog( oForm )
	oDialog1.execute
End Sub

Sub auslesen()
	Msgbox oDialog1.Model.getByName("Kundennummer").Value
End Sub

Gruß
Stephan

Verfasst: **Mo, 17.01.2011 08:22**

Sehr gut,

Vielen Dank...funktioniert bestens.

Grüße Stefan

Verfasst: **Mo, 17.01.2011 11:03**

Aloha

Gast hat geschrieben:"A" habe ich davor als Object Deklariert und mit: A = Eingaben.Model.getByName("KdNr") das entsprechende Feld zugewiesen.

Dann sieht das so aus

Code: Alles auswählen

sSQL = "select ""Anrede"", ""Vorname kurz"", ""Nachname kurz"", ""Straße"", ""Postleitzahl"", ""Ort"" from ""Kundendaten"" where ""Personennummer"" like '" & A.Value & "'"

Je nachdem, was für ein Feld Du benutzt (Numerisches oder Textfeld), kann es statt A.Value auch A.Text lauten.

Wenn die Personennummer immer eine Zahl ist, dann kannst Du das Ganze auch so

Code: Alles auswählen

sSQL = "select ""Anrede"", ""Vorname kurz"", ""Nachname kurz"", ""Straße"", ""Postleitzahl"", ""Ort"" from ""Kundendaten"" where ""Personennummer"" = " & A.Value

machen.

Verfasst: **Di, 18.01.2011 07:52**

Sehr gut...vielen Dank...

OpenOffice.info

Dialogfeld auslesen

Dialogfeld auslesen

Re: Dialogfeld auslesen

Re: Dialogfeld auslesen

Re: Dialogfeld auslesen

Re: Dialogfeld auslesen