Rendre visible une textbox dans une fonction (Utilisation incorrecte de null)

Version imprimable

Bonjour,

Je n'arrive pas a modifier la visibilité d'une textbox dans une fonction, la textbox dans la fonction étant une variable.

En fait il n'arrive pas à detecter la textbox, il renvoie utilisation incorrecte de null.
Ma fonction est :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function Add_line(Case_précédente As Integer, case_1_ligne As Integer, case_2_ligne As Integer, case_3_ligne As Integer, case_4_ligne As Integer)
 
 
If Not IsNull(Case_précédente) And Case_précédente.Visible = True Then
 
case_1_ligne.Visible = True
case_2_ligne.Visible = True
case_3_ligne.Visible = True
case_4_ligne.Visible = True
 
Else
 
case_1_ligne.Visible = False
case_2_ligne.Visible = False
case_3_ligne.Visible = False
case_4_ligne.Visible = False
 
End If
 
 
End Function

Et son appel dans le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
'######################################################DECLARATION DES VARIABLES######################################################################
 
Dim Case_précédente As Integer
Dim case_1_ligne As Integer
Dim case_2_ligne As Integer
Dim case_3_ligne As Integer
Dim case_4_ligne As Integer
 
 
'######################################################AJOUT DE LIGNE######################################################################
 
'######################################################Ligne 2#############################################################################
 
Case_précédente = Txt_à_diam_1
case_1_ligne = Txt_De_diam_2
case_2_ligne = Txt_à_diam_2
case_3_ligne = Txt_diam_mm_diam_2
case_4_ligne = Txt_diam_pouces_diam_2
 
Call Add_line(Case_précédente, case_1_ligne, case_2_ligne, case_3_ligne, case_4_ligne)

Sachant que textbox.value fonctionne très bien dans une autre fonction, il prend bien la valeur de la textbox défini comme variable, c'est juste pour afficher ou masquer la textbox qu'il n'y arrive pas.

Merci d'avance.

Bonjour,

La propriété Visible est applicable à un contrôle d'un formulaire ou d'un état.
Toi, tu définis tes case_X_ligne comme étant du Numérique. Essaie :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Function Add_line(Case_précédente As Control, case_1_ligne As Control, case_2_ligne As Control, case_3_ligne As Control, case_4_ligne As Control) If Not IsNull(Case_précédente) And Case_précédente.Visible = True Then case_1_ligne.Visible = True case_2_ligne.Visible = True case_3_ligne.Visible = True case_4_ligne.Visible = True Else case_1_ligne.Visible = False case_2_ligne.Visible = False case_3_ligne.Visible = False case_4_ligne.Visible = False End If End Function
Cordialement,
EDIT : Code modifié, un END FUNCTION qui faisait désordre, n'étant pas dans les balises

12/06/2015, 11h54
kaze78
Bonjour,

Il me renvoie Variable objet ou variable de bloc with non définie en me surlignant
Code:

1 2 3 4 5 6 7 Case_précédente = Txt_à_diam_1 case_1_ligne = Txt_De_diam_2 case_2_ligne = Txt_à_diam_2 case_3_ligne = Txt_diam_mm_diam_2 case_4_ligne = Txt_diam_pouces_diam_2
dans mon appel de la fonction.
J'ai essayer avec variant également à la place de control et il me dit que l'objet est introuvable

Il faut aussi modifier les types des variables dans la déclaration des variables :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'######################################################DECLARATION DES VARIABLES######################################################################
 
Dim Case_précédente As Control
Dim case_1_ligne As Control
Dim case_2_ligne As Control
Dim case_3_ligne As Control
Dim case_4_ligne As Control
 
 
'######################################################AJOUT DE LIGNE######################################################################
 
'######################################################Ligne 2#############################################################################
 
Case_précédente = Txt_à_diam_1
case_1_ligne = Txt_De_diam_2
case_2_ligne = Txt_à_diam_2
case_3_ligne = Txt_diam_mm_diam_2
case_4_ligne = Txt_diam_pouces_diam_2
 
Call Add_line(Case_précédente, case_1_ligne, case_2_ligne, case_3_ligne, case_4_ligne)

Cordialement,

12/06/2015, 12h31
kaze78

Bien sur, je l'avais fait, et ca a renvoyé l'erreur que j'ai énoncé au dessus.
12/06/2015, 19h51
madefemere

Bonsoir,

Tu appelles ta fonction sur quel évènement de quel contrôle parce qu'on ne le voit pas dans ton code initial ?

Cordialement,
13/06/2015, 21h32
kaze78

Bonsoir,

Je l'appelle sur le clic d'un bouton.

Le but de cette fonction étant de rendre visible 4 zones de textes seulement si la ligne de zone de texte précédente est visible et remplie par l'utilisateur.

En fait dans la fonction il n'accepte pas les "." il n'y a pas une autre syntaxe que zonedetexte.visible = true pour rendre une zone de texte visible ?

Merci.
14/06/2015, 08h08
madefemere

Bonjour,

J'ai bien compris le but de la fonction qui est de rendre invisible 4 zones de textes sur une certaine condition.
Par contre, j'ai du mal à comprendre à quel moment on clique sur un bouton ?
Est-ce que tu peux poster ta base avec le minimum d'informations pour déterminer le problème et sans données confidentielles.

Cordialement,
14/06/2015, 13h27
kaze78

Désolé mais je ne peut pas la poster.

En fait il y a une interface de saisie avec x lignes comportant chacune 4 cases.
L'utilisateur rempli sa ligne de 4 cases et appuie sur le bouton pour faire apparaître la prochaine ligne de 4 cases.

Le code permet d'ajouter seulement la ligne de cases suivant la ligne déjà affiché et seulement si elle est remplie.
14/06/2015, 16h17
madefemere

Bonjour,

Désolé mais je ne peux t'aider plus sans avoir la partie incriminée de la base de données , il y a trop de paramètres à vérifier.

Cordialement et bonne continuation