Ciao,
grazie per la risposta veloce, per essere più chiara riassumo il codice "l'ho
ereditato" dal programmatore che era nella ditta in cui lavoro prima di me ed
era stata scritta per la versione 1.X di OOo.
Successivamente io l'ho modificata per poterla usare si a con OOo 1.x che con
la 2.x.
Sino all'ultima versione ossia la 2.3 non ho avuto grossi problemi, i problemi
sono iniziati con 2.4.1
Questo è il pezzo di codice che genera l'errore, ma non escludo che parta da
prima:
le dichiarazioni sono:
Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
Set oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
Set DatabaseContext =
oServiceManager.createInstance("com.sun.star.sdb.DatabaseContext")
Set objCoreReflection =
oServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
Dim argsToOpen(0)
Set argsToOpen(0) = OOCreateProperty("Hidden", -1, True, 0)
Set oTextDoc = oDesktop.LoadComponentFromURL("file:///" & nomemodello,
"_blank", 0, argsToOpen())
il codice che ora si comporta in modo anomalo è questo:
Set fieldSupplier = oTextDoc.getTextFields()
On Error GoTo 0
hasObject = fieldSupplier.hasElements()
If hasObject = True Then
Set enumeration = fieldSupplier.CreateEnumeration()
If Not enumeration Is Nothing Then
While enumeration.HasMoreElements()
Set enumObject = Nothing
Set enumObject = enumeration.nextElement()
Set textFieldMaster = Nothing
Set textFieldMaster = enumObject.getTextFieldMaster()
Set propInfo = Nothing
Set propInfo = textFieldMaster.getPropertySetInfo()
If propInfo.hasPropertyByName("DataBaseName") = True Then
textFieldMaster.DatabaseName = DataSourceName
val = textFieldMaster.getPropertyValue("DataBaseName")
textFieldMaster.DataCommandType = 1
textFieldMaster.DataTableName = "Documenti"
val = textFieldMaster.getPropertyValue("DataTableName")
colName = Mid(enumObject.Content, 2,
Len(enumObject.Content) - 2)
textFieldMaster.DataColumnName = colName
enumObject.Update
End If
Wend
Se non basta o la formattazione non va bene ve lo mando in allegato testuale.
Ancora grazie per l'attenzione e la disponibilità.
Patrizia
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
