[Risolto] errore di runtime BASIC

[oigres]

buona sera,
tempo fa grazie all'aiuto di Gumo e Gaetanopr avevo creato un campo data associato ad una macro che mi inseriva una data nella cella selezionata
ho ripreso il file contenente tale comando ma se provo ad inserire una data utilizzandolo mi appare questo errore:
"Errore di runtime BASIC.
Valore per la proprietà errato."
cosa è successo? non riesco a capire
allego il file di prova

grazie anticipate per l'aiuto

[Gumo]

SU AOO 4.01 funziona perfettamente.

Temo che la riposta alla tua domanda dipenda dalla firma:
LibreOffice

in bocca al lupo
g

[oigres]

SU AOO 4.01 funziona perfettamente.

Temo che la riposta alla tua domanda dipenda dalla firma:
LibreOffice

in bocca al lupo
g

Strano. Quando l'ho creato, grazie anche al tuo aiuto, e fino a poco tempo fa funzionava perfettamente con LibreOffice.
Qualche soluzione (diversa da installare AOO 4.01)?
grazie

[patel]

Io uso LibreOffice e funziona, l'errore nassce se si clicca su Senza, basta correggere la macro così

Codice: Seleziona tutto

Sub CampoData()                          
   Doc = StarDesktop.CurrentComponent
   Sheet = Doc.Sheets.GetByIndex(0)
   DrawPage = Sheet.DrawPage
   Form = DrawPage.Forms.GetByIndex(0) 
   Ctl = Form.getByName("Campodata1")      'Campo data  (Controllo del formulario)
   ActiveCell=ThisComponent.CurrentSelection

   if Ctl.Date <> "" then  
     ActiveCell.value = CDateFromIso(Ctl.Date)  
   end if

   ActiveCell.NumberFormat=75 
   ActiveCell=thisComponent.currentSelection.CellAddress
   col=ActiveCell.column
   row=ActiveCell.row
   oRanges = Sheet.getCellByPosition(col, row + 1)
   Doc.CurrentController.Select(oRanges)
        
End Sub

[oigres]

Grazie patel.
non ho capito che significa "l'errore nasce se si clicca su Senza"
ho comunque provato a sostituire la macro con quella da te allegata ma il problema permane: mi da sempre lo stesso messaggio di errore.
mi potresti allegare il file corretto che da te funziona?
può essere che utilizzo LibreOffice 4.1.4.2 e che ciò crei qualche guaio?

ancora grazie

[Gumo]

@oigres

Strano. Quando l'ho creato, grazie anche al tuo aiuto, e fino a poco tempo fa funzionava perfettamente con LibreOffice.

Forse hai cambiato versione di Libo e qualche comando ha variato la sintassi ?

@Patel
Non ho capito il tuo commento.

g

[patel]

Sul file allegato da oigres, con Libre 4.06.2, cliccando sul controllo si apre il calendario con 2 pulsanti Oggi e Senza, scegliendo un giorno qualsiasi oppure cliccando su Oggi funziona bene, cliccando su Senza va in errore sulla linea
ActiveCell.value = CDateFromIso(Ctl.Date)
la soluzione che avevo postato sopra mi funzionava ed ora non più, quindi ho optato per il controllo dell'errore

Codice: Seleziona tutto

Sub CampoData()    
                      
   on error resume next

   Doc = StarDesktop.CurrentComponent
   Sheet = Doc.Sheets.GetByIndex(0)
   DrawPage = Sheet.DrawPage
   Form = DrawPage.Forms.GetByIndex(0) 
   Ctl = Form.getByName("Campodata1")      'Campo data  (Controllo del formulario)
    ActiveCell=ThisComponent.CurrentSelection
   ActiveCell.value = CDateFromIso(Ctl.Date)  
   ActiveCell.NumberFormat=75 
   ActiveCell=thisComponent.currentSelection.CellAddress
   col=ActiveCell.column
   row=ActiveCell.row
   oRanges = Sheet.getCellByPosition(col, row + 1)
   Doc.CurrentController.Select(oRanges)
  
         
End Sub

[oigres]

Ciao patel,
scusa ma sono proprio imbranato in questo campo.
con la tua nuova macro non mi da più l'errore di runtime.
però se selezione una data dal comando, questa non viene inserita nella cella attiva ma viene semplicemente selezionata la cella sottostante (vedi file allegato)

[Gaetanopr]

Ciao prova in questo modo, ora dovrebbe andare bene con libreoffice

Codice: Seleziona tutto

Sub CampoData()                          
                                         ' ESEMPIO 1
   Dim Doc AS Object
   Dim Sheet As Object
   Dim DrawPage As Object
   Dim Form As Object
   Dim Ctl As Object
   Dim oCell 
   
   Doc = StarDesktop.CurrentComponent
   Sheet = Doc.Sheets.GetByIndex(0)
   DrawPage = Sheet.DrawPage
   Form = DrawPage.Forms.GetByIndex(0) 
   Ctl = Form.getByName("Campodata1")      'Campo data  (Controllo del formulario)
   
   ActiveCell=ThisComponent.CurrentSelection

   ActiveCell.value =   CDate(Ctl.Text)
   ActiveCell.NumberFormat=75 
  
   ActiveCell=thisComponent.currentSelection.CellAddress
   col=ActiveCell.column
   row=ActiveCell.row

   oRanges = Sheet.getCellByPosition(col, row + 1)
   Doc.CurrentController.Select(oRanges)
  
         
End Sub

[oigres]

grazie mille Gaetanopr!
ora sembra proprio che funzioni anche con LibreOffice

ancora grazie
ciao
sergio