Hallo Jochen
Am 15.01.2012 16:17, schrieb Jochen:
Hallo *,
ich möchte für Base ein Makro erstellen, das in einem
Tabellenkontrollfeld in einem Formular u.a. folgenden zwei Aufgaben
durchführen soll:
1) Nummer des letzten Datensatzes einer Tabelle auslesen.
2) Befehl "Neuer Datensatz" ausführen.
ich bin mir zwar nicht ganz sicher was du genau willst, aber vielleicht
hilft dir ja das hier:
(muss direckt aus dem Formular ausgeführt werden)
Sub Formular_Manipolation
Dim oform As Object
Dim aData(1) As variant
Dim nAnzahl As Long ,i%
' Nummer des Formulars(0) und Name des Tabellenkontrollfeldes
("MainForm_Grid") bitte anpassen !!
oform=thiscomponent.drawpage.forms(0).getByName("MainForm_Grid")
'anzahl der einträge
nAnzahl = oform.getRowSet.RowCount
MsgBox "Das Formular hat " & nAnzahl & " Datensätze."
'gehe zu letzten Reihe mit einträgen
oform.getRowSet.Last
'hole den inhalt des letzten eintrags in ein Array(nur Datum und Text)
Redim aData( oform.Count -1)
for i=0 to oform.Count -1
If oform.getByIndex(i).DataFieldProperty = "Date" Then
aData(i) = oform.getByIndex(i).Date
else
aData(i)= oform.getByIndex(i).Text
end if
MsgBox "Letzter Datensatz Spalte" & i+1 & " Lautet: " & Chr(10) &
aData(i)
next
'Neuer eintrag(gehe zu letzten Reihe)
oform.getRowSet.moveToInsertRow(false)
end sub
Gruß Frieder
--
Informationen zum Abmelden: E-Mail an [email protected]
Probleme?
http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert
