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