Dialogfeld auslesen

[Stefan88899]

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

[Stephan]

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

[Stefan88899]

Sehr gut,

Vielen Dank...funktioniert bestens.

Grüße Stefan

[DPunch]

Aloha

"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.

[Stefan88899]

Sehr gut...vielen Dank...