[Risolto] Base - macro per aggiornare data su più record

[charlie]

Rilancio questo thread per una soluzione con macro: viewtopic.php?f=13&t=8556#p46526

[hubert lambert]

Buonasera,

Ecco una prima proposta : ammesso che il nome del controlo data è "nuova_data", la macro assegnata al pulsante :

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

Saluti.

[charlie]

Grazie @hubert, ho provato la macro ma mi dà questo errore:

[hubert lambert]

Ciao charlie,

Funziona soltanto con LibreOffice, perchè il valore restituito dalla proprietà "Date" di un controllo data è stato modificato per consistenza con alcuni metodi, come "updateDate" (https://wiki.documentfoundation.org/Rel ... o_UNO_APIs).
Si deve un pò modificare la macro per utilizzarla in Openoffice:

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

[charlie]

Grazie @hubert, funziona benissimo.

[Fryone]

Grazie di cuore.

[Fryone]

Funzionaaaaaaaaaaaa. Hubert non ho parole di come esprimere la mia gratitudine.