Vous devez commencer par créer la méthode, puis l'ajouter dans l'onglet de propriétés afin de créer un bouton permettant d'afficher la boîte de dialogue.
-
Pointez sur la catégories User, cliquez le bouton droit puis sélectionnez .
-
Nommez la méthode AfficherAttributsEtendusAvances, puis cliquez sur l'onglet Script de méthode pour saisir le script:
Sub %Method%(obj)
' Affiche la boîte de dialogue personnalisée pour l'édition avancée des attributs étendus
Dim dlg
Set dlg = obj.CreateCustomDialog("%CurrentTargetCode%.Advanced Teradata Attributes")
If not dlg is Nothing Then
dlg.ShowDialog()
End If
End Sub
-
Sélectionnez l'onglet de propriétés Teradata dans le dossier ProfileUserForms folder, cliquez sur l'outil Bouton de méthode dans la barre d'outils de formulaire, sélectionnez la nouvelle méthode, puis cliquez sur OK pour l'ajouter dans le formulaire.
-
Saisissez Avancées... dans la zone Libellé pour affecter un nom explicite au bouton, puis cliquez sur Aperçu pour voir le résultat dans l'onglet de propriétés :
