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:
mais malheureusement l'erreur qu'il m'envoie lors du test :
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
dépassement de capacité
Vous avez une idée svp?
merci d'avance
Partager