Discussion :

[r.mehdi]

salut je developpe avec vb6 bon j'ai une table Fournisseur qui Porte 4champs (Compte fournisseur, Nom fournisseur, Téléphone, et Fax)
j'utilise 2 MaskeEdit Pour les Champs Téléphone et Fax
tout va bien avec l'ajout dans la table etc juste quand je saisis un Compt fournisseur qui existe Deja il doit M'afficher Tout
Il Me sorte un deboguage (Valeur de Propriété non valide Erreur 380) J'en sais pas pourkoi
voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Private Sub Form_Load()
Ouverture  'Connexion au B.D.D
MaskEdBox1.Mask = "(999)-99-99-99"
MaskEdBox2.Mask = "(999)-99-99-99"
End Sub
 
Private Sub Effacer1()
Text2.Text = ""
MaskEdBox2.Mask = "": MaskEdBox2.Text = "": MaskEdBox2.Mask = "(999)-99-99-99"
MaskEdBox1.Mask = "": MaskEdBox1.Text = "": MaskEdBox1.Mask = "(999)-99-99-99"
End Sub
 
Private Sub Text1_LostFocus()
If Text1 <> "" Then  'si il est different du Vide
With E_fournisseur    'table fournisseur
.Index = "four_ndx"   'nom d'index
.Seek "=", Text1
If Not .NoMatch Then     'si je l'ai trouver? 'Affiche Moi   
Text2 = !nom_four         'Nom fournisseur
MaskEdBox1 = !Tel_four  'Téléphone
MaskEdBox2 = !fax_four  'Fax
Toolbar1.Buttons(2).Visible = 1
Toolbar1.Buttons(3).Visible = 1
Else
Call Effacer1
End If
Toolbar1.Buttons(1).Visible = 0
End With
Else
Call Effacer1
Toolbar1.Buttons(1).Visible = 0
Toolbar1.Buttons(2).Visible = 0
Toolbar1.Buttons(3).Visible = 0
End If
End Sub

pourrez vous m'aidez sur ca

[ProgElecT]

Il Me sorte un deboguage (Valeur de Propriété non valide Erreur 380)

pourquoi mettre ton code si tu ne nous dis pas sur quelle ligne ce produit l'erreur.
Toolbar1.Buttons(1).Visible = 0
Toolbar1.Buttons(1).Visible = 1
Tu devrais te mefier de cette habitude, car

True (Par défaut) L'objet est visible.
False L'objet est caché.

et

Utilisez les mots clés True et False pour faire passer d'un état à l'autre
des variables de type Boolean.
Lorsque d'autres types de données numériques sont convertis en valeurs de type Boolean,
0 devient False et toutes les autres valeurs deviennent True.
Lorsque des valeurs de type Boolean sont converties en d'autres types de données,
False devient 0 et True devient -1.

Un jour ou l'autre tu auras des surprises avec tes 0 et 1 en lieu et place de False et True

Es tu sûr de ce que te donne !Tel_four et !fax_four
Tu peux verifier comme sa, pour voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
MsgBox !Tel_four  'Téléphone
'MaskEdBox1 = !Tel_four
MsgBox !fax_four  'Fax
'MaskEdBox2 = !fax_four

[Delbeke]

J'ai eu une erreur 380 pas plus tard qu'hier. C'etait un nom de champs mal orthographié.
Peut être la cause est différente, vérifie qand même

[r.mehdi]

pourquoi mettre ton code si tu ne nous dis pas sur quelle ligne ce produit l'erreur.
Toolbar1.Buttons(1).Visible = 0
Toolbar1.Buttons(1).Visible = 1
Tu devrais te mefier de cette habitude, caretUn jour ou l'autre tu auras des surprises avec tes 0 et 1 en lieu et place de False et True

Es tu sûr de ce que te donne !Tel_four et !fax_four
Tu peux verifier comme sa, pour voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
MsgBox !Tel_four  'Téléphone
'MaskEdBox1 = !Tel_four
MsgBox !fax_four  'Fax
'MaskEdBox2 = !fax_four

ah Desolé j'ai oublie d'indiquer la ligne d'erreur
bah voila

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Text1_LostFocus()
  MaskEdBox1 = !Tel_four  
MaskEdBox2 = !fax_four  'Fax
End sub

la ligne d'erreur c'est parti en rouge
le probleme que je n'ai pas pu le comprendre c'est que j'ai 2 Maskedit dans autre formilaire et ca march Parfaitement quand je recupere les données
Remarque:
j'ai effectuer le code que tu m'as donnée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
'msgbox !tel_four  'téléphone

ila m'as donne un numero télé Manquant exemple
mon mask edit est Comme ca (999)-99-99-99
il me recupere que (999)-99-99
j'en s pas pourkoi
le N°téléphone et Fax sont de type TEXT longueur 12

[Delbeke]

Ben cet extrait de code n'est pas le même que celui du premier post

Je pense qu'il manque quelque chose, Essaye ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Text1_LostFocus()
  With E_fournisseur
    MaskEdBox1 = !Tel_four  
    MaskEdBox2 = !fax_four  'Fax
  End With
End sub

[ProgElecT]

le probleme que je n'ai pas pu le comprendre c'est que j'ai 2 Maskedit dans autre formilaire et ca march

d'ou l'interet de voire avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  On Error Resume Next
MaskEdBox1 = !Tel_four
If Err.Number <> 0 Then
   Err.Clear
   MsgBox !Tel_four  'Téléphone
End If

[r.mehdi]

d'ou l'interet de voire avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
  On Error Resume Next
MaskEdBox1 = !Tel_four
If Err.Number <> 0 Then
   Err.Clear
   MsgBox !Tel_four  'Téléphone
End If

j'ai effectuer le code que tu m'as donnée

ila me donne un numero télé Manquant exemple
mon mask edit est Comme ca (999)-99-99-99
il me recupere que (999)-99-99
j'en s pas pourkoi j'ai meme verifier la table le N°télé et fax sont manquant je crois c'est probleme d'jout
le N°téléphone et Fax sont de type TEXT longueur 12

[ProgElecT]

je crois c'est probleme d'jout

tu as trouvé là ou se situe le probléme.
Il y a longtemps que je n'ai pas utilisé de MaskEdBox, je regarde de mon coté et te tiens au courant.