ich versuche zum ersten Mal einen Dialog zu estellen. Seit Tagen bin ich am Lesen, habe mir das FahrtenBuch und OOME 3.0 angeshen, aber wenig verstanden.
Es soll eine Personenliste werden mit Lfd.-Nr., Vor- und Nachnamen, Geb.Datum, Alter und „Heute Geburtstag ? ==> Ja. bzw Nein.“.
Abgesehen davon, dass ich die Lfd.-Nr. (NumericField) nicht zum Laufen bekomme, bekomme ich noch nicht einmal die Textfelder hin.
Bitte seht doch einmal nach, was ich hier falsch mache. Vielen Dank
Code: Alles auswählen
'Option Explicit
'Public DlgPerson as Object
'Global Personennummer as integer
Dim Dlg_Person as Object 'Dialog (Eingabemaske) definieren
Dim oDoc as Object 'Dokumnet definieren
Dim Personenliste as Object 'Tabelle "Liste" und "Daten" definieren
Dim PersonenNummer as integer 'Neue DatensatzZeilennummer
'Dim Ctl_Anrede as Object,Ctl_Vorname as Object, Ctl_NachName as Object,Ctl_Strasse as Object
' Ctl_PlzOrt as Object,Ctl_GebDatum as Object,Ctl_TelefonFestnetz as Object, Ctl_TelefonMobil as Object,_
' Ctl_Fax as Object, Ctl_Mail as Object, Ctl_Personennummer as Object
Dim vControl
'Dim oTextFieldMasters as Object
'Dim GebDatum as date
'Dim vCurrentSelection
Sub Dlg_Neue_Person_Dialog_aufrufen
oDoc=ThisComponent
oSheet = oDoc.Sheets.getByName("Personenliste")
' Personenliste = oDoc.sheets(1)
DialogLibraries.loadLibrary("Standard")
Dlg_Person = CreateUnoDialog(DialogLibraries.Standard.Dlg_Person)
Dlg_Person.title = "Neue Person anlegen"
oDoc = ThisComponent
Dlg_Person = CreateUnoDialog(DialogLibraries.Standard.Dlg_Person)
oSheet = ThisComponent.sheets.getbyName("Personenliste")
Cell_Person_Nr = oSheet.getCellRangeByName("A2")
Personennummer = Cell_Person_Nr.value + 1
'
Dlg_Person.Execute
End Sub
Sub Neue_Person_eingeben
oDoc = ThisComponent
oSheet = oDoc.Sheets().getByName("Personenliste")
oSelect = ThisComponent.CurrentSelection.getRangeAddress
Start_Column = oSelect.StartColumn
Start_Row = oSelect.StartRow
oCellCursor = oSheet.createCursor()
oCellCursor.GotoEndOfUsedArea(True)
Cell_Person_Nr = oSheet.getCellRangeByName("A2")
Personennummer = Cell_Person_Nr.value + 1
End_Column = oCellCursor.getRangeAddress.EndColumn
End_Row = oCellCursor.getRangeAddress.EndRow
End_Row = End_Row + 2
PersonenNummer = oSheet.getCellRangeByName("A2").value + 1
Dlg_Anrede = Dlg_Person.GetControl("Anrede") ' "ComboBox" .text
Dlg_Anrede.setfocus()
Dlg_Vorname = Dlg_Person.GetControl("Vorname") '.Textfield
' Dlg_Person.getControl("Anrede").text '= nNeueDatSatz - 10
' Ctl_Anrede = Dlg_Person.GetControl("Anrede")
' Txt_Anrede = Ctl_Person.text
' Ctl_Anrede.setfocus()
' Ctl_Vorname = Dlg_Person.GetControl("Vorname")
' Txt_Vorname = Ctl_Vorname.text
' Ctl_NachName = Dlg_Person.GetControl("NachName")
' Txt_NachName = Ctl_NachName.text
' Ctl_PlzOrt = Dlg_Person.GetControl("PlzOrt")
' Txt_PlzOrt = Ctl_PlzOrt.text
' Ctl_Strasse = Dlg_Kunde.GetControl("Strasse")
' Txt_Strasse = Ctl_Strasse.text
' Ctl_GebDatum = Dlg_Person.GetControl("GebDatum")
' Txt_GebDatum = Ctl_GebDatum.text
' Ctl_TelefonFestnetz = Dlg_Person.GetControl("TelefonFestnetz")
' Txt_TelefonFestnetz = Ctl_TelefonFestnetz.text
' Ctl_TelefonMobil = Dlg_Person.GetControl("TelefonMobil")
' Txt_TelefonMobil = Ctl_TelefonMobil.text
' Ctl_Fax = Dlg_Person.GetControl("Fax")
' Txt_Fax = Ctl_Fax.text
' Ctl_EMail = Dlg_Person.GetControl("EMail")
' Txt_EMail = Ctl_EMail.text
' Ctl_Alter = Dlg_Person.GetControl("Alter")
' Txt_Alter = Ctl_Alter.text
oSheet.getCellRangeByName("A" & End_Row ).Value = PersonenNummer +1
oSheet.getCellRangeByName("B" & End_Row).String = Txt_Anrede
oSheet.getCellRangeByName("C" & End_Row).String = Txt_Vorname
oSheet.getCellRangeByName("D" & End_Row).String = Txt_NachName
oSheet.getCellRangeByName("E" & End_Row).String = Txt_PlzOrt
oSheet.getCellRangeByName("F" & End_Row).String = Txt_Strasse
oSheet.getCellRangeByName("G" & End_Row).String = Txt_GebDatum
oSheet.getCellRangeByName("H" & End_Row).String = Txt_TelefonFestnetz
oSheet.getCellRangeByName("I" & End_Row).String = Txt_TelefonMobil
oSheet.getCellRangeByName("J" & End_Row).String = Txt_Fax
oSheet.getCellRangeByName("K" & End_Row).String = Txt_EMail
oSheet.getCellRangeByName("L" & End_Row).Date = FormulaLocal = "(Jahr(Jetzt()- (Jahr (GebDatum))" 'muss mich noch einlesen 'Text_Alter
'
Dlg_Person.Endexecute
End Sub