[Résolu][Base] Modifier valeur colonne Contrôle Table

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Ocinbzh
NOOuvel adepte
NOOuvel adepte
Messages : 17
Inscription : 26 déc. 2020 11:40

[Résolu][Base] Modifier valeur colonne Contrôle Table

Message par Ocinbzh »

Bonsoir,
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
System exploitation Ubuntu 20.04 (Linux)
LibreOffice Base: 6.4.6.2 (x64)
Avatar de l’utilisateur
Dude
IdOOle de la suite
IdOOle de la suite
Messages : 25143
Inscription : 03 mars 2006 08:45
Localisation : 127.0.0.1
Contact :

Re: [Base] Modifier valeur colonne Ctrl Table

Message par Dude »

Ocinbzh
NOOuvel adepte
NOOuvel adepte
Messages : 17
Inscription : 26 déc. 2020 11:40

Re: [Base] Modifier valeur colonne Ctrl Table

Message par Ocinbzh »

Salut,
Avec persévérance, une solution de trouvée
j'ai fait appel de la macro au niveau de l'évènement du formulaire "Avant l'action d'enregistrement"
bonne continuation
Pièces jointes
test.odb
(14.11 Kio) Téléchargé 55 fois
System exploitation Ubuntu 20.04 (Linux)
LibreOffice Base: 6.4.6.2 (x64)
Verrouillé