via le code ci-dessous, j'obtiens le remplacement de la valeur d'une colonne de mon ctrl Table si le nbr de caractère = 0 par "Non précisé"
cela fonctionne lorsque je reste sur l'enregistre en passant à la colonne suivante (en appelant la macro à la perte du focus)
mais cela ne fonctionne pas si je passe à l'enregistrement suivant ou précédent,
comment je peux palier à cela SVP?
(mon objectif étant que les cellules de cette colonne ne soit jamais vide - à part via une macro je n'ai pas trouvé autre solution)
merci
Code : Tout sélectionner
sub VerifAppelation() 'macro appelée via l'évènement A la perte du focus ZtAppelation
dim PysForm as object
dim PysCtrlTbl as object
dim PysVar as object
PysForm = ThisComponent.DrawPage.Forms.GetByName("Standard")
PysCtrlTbl = PysForm.GetByName("CtrlTbl")
PysVar = PysCtrlTbl.GetByName("ZtAppelation")
'print len(PysVar.text)
if len(PysVar.text) = 0 then PysCtrlTbl.GetByName("ZtAppelation").Text = "Non précisé"
PysCtrlTbl.GetByName("ZtAppelation").commit()
end sub