Discussion :

[polianita]

Bonjour à tous,

Pour mon formulaire on doit saisir dans un textBox un ESI_Bail de type texte
puis quand on clique sur un bouton rechercher il doit afficher dans un autre text box la DE correspondante
voila le code du bouton:

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
 
Private Sub Rechercher_Click()
On Error GoTo Err_Rechercher_Click
 
If Len(Me.ESI_Bail_TB.Value) <> 10 Then
MsgBox "Nombre de caractères incorrects", , "Erreur"
GoTo Exit_Rechercher_Click
End If
Dim de as String
de = DLookup("DE", "donnees_Ulis", "ESI_Bail =""" & Me.ESI_Bail_TB.Value & """")
 
Me.Texte13.Value = de
 
 
 
    Screen.PreviousControl.SetFocus
 
 
Exit_Rechercher_Click:
    Exit Sub
 
Err_Rechercher_Click:
    MsgBox Err.Description
    Resume Exit_Rechercher_Click
 
End Sub

mais malheureusement l'erreur qu'il m'envoie lors du test :
dépassement de capacité
Vous avez une idée svp?

merci d'avance

[polianita]

J'ai compris mon erreur en tout cas
Je devais faire double à la place de integer quand je declarai "de"

poliana