[Risolto] Base - macro per aggiornare data su più record
Inviato: mercoledì 11 ottobre 2017, 6:39
Rilancio questo thread per una soluzione con macro: viewtopic.php?f=13&t=8556#p46526
Forum di supporto degli Utenti per gli Utenti di OpenOffice e LibreOffice
https://forum.openoffice.org/it/forum/
Codice: Seleziona tutto
sub aggiornaData(event)
form = event.Source.Model.Parent
form.beforeFirst()
DUnuova = form.getByName("nuova_data")
DUcol = form.findColumn("Data-Udienza")
if not isempty(DUnuova.Date) then
do while form.next()
form.updateDate(DUcol, DUnuova.Date)
form.updateRow()
loop
form.getByName("MainForm_Grid").reset()
DUnuova.reset()
form.first()
end if
end sub
Codice: Seleziona tutto
sub aggiornaData(event)
form = event.Source.Model.Parent
form.beforeFirst()
DUnuova = form.getByName("nuova_data")
DUcol = form.findColumn("Data-Udienza")
d$ = DUnuova.Date
dim nuovadata as new com.sun.star.util.Date
nuovadata.Year = left(d, 4)
nuovadata.Day = right(d, 2)
nuovadata.Month = mid(d, 5, 2)
if not isempty(DUnuova.Date) then
do while form.next()
form.updateDate(DUcol, nuovadata)
form.updateRow()
loop
form.getByName("MainForm_Grid").reset()
DUnuova.reset()
form.first()
end if
end sub