Bonjour Alex
J'ai trouvé la solution.
On suppose que le rapport à un contrôle de type texte (référencé dans le
code par la valeur 0 dans la méthode getByName)
sub ouvreRapport(sNomRapport as string)
dim oNewReport as object
'On vérife que le rapport existe
if ThisDatabaseDocument.ReportDocuments.hasByName(sNomRapport) then
oNewReport=ThisDatabaseDocument.ReportDocuments.getByNAme(sNomRapport)
else
end
end if
' Ouvre le rapport en mode design
oNewReport.opendesign
' Modifie le Label du control 0 (getByIndex(0)
oNewReport.getComponent().PageHeader.getByIndex(0).Label="Label du
contrôle 0"
' Sauvegarde le rapport et quitte le mode design
oNewReport.store
oNewReport.close
' Ouvre le rapport
oNewReport.open
end sub
Merci de ton aide
Daniel
Le 7 août 2013 14:29, Daniel toutatis <[email protected]> a écrit :
> Hello
>
> Le code n'est pas encore parfait. J'ai enlever le test et corrigé la
> requête.
>
> Je travaille avec la version Version: 4.1.0.4 Build ID:
> 89ea49ddacd9aa532507cbf852f2bb22b1ace28 sous OSX
>
> Daniel
>
>
>
>
> Le 7 août 2013 12:35, Alexander Thurgood <[email protected]> a
> écrit :
>
> Bonjour Daniel,
>>
>> Je ne comprends pas ce test dans ton code :
>> v_DateDebut = v_Form.getByName("DateDebut").Text
>> v_DateFin = v_Form.getByName("DateFin").Text
>>
>> ' On vérifie que la date de début soit plus petie que la date de fin
>> if v_DateDebut > v_DateFin then
>> MsgBox("Date de début ("& v_DateDebut & ") plus grande que date de
>> fin ("& v_DateFin &")",16)
>> else
>>
>> Là, tu es en train de comparer des chaînes de caractères au lieu de dates
>> ?
>>
>> La valeur du contrôle, ce n'est pas plutôt :
>>
>> v_DateDebut = v_Form.getByName("DateDebut").currentvalue
>>
>> ou
>>
>> v_DateDebut = v_Form.getByName("DateDebut").getDate
>>
>>
>>
>> http://api.libreoffice.org/docs/common/ref/com/sun/star/form/component/DateField.html
>>
>> http://api.libreoffice.org/docs/common/ref/com/sun/star/awt/UnoControlDateFieldModel.html#Date
>>
>> http://api.libreoffice.org/docs/common/ref/com/sun/star/awt/XDateField.html
>>
>>
>> Alex
>>
>>
>>
>>
>>
>
--
Envoyez un mail à [email protected] pour savoir comment vous
désinscrire
Les archives de la liste sont disponibles à
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
