Discussion :

[Sebastien31t]

Bonjour, je me permet de solliciter votre aide concernant un problème que je rencontre avec find.
mon erreur est : sub ou fonction non définie en me pointant find.
pour plus de clarté voici mon 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
 
Private Sub Modifiable8_AfterUpdate()
 
Dim rs As ADODB.Recordset
rs.Open "tl_produit_services", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Dim idenr As Integer
idenr = Me.ActiveControl
rs.CursorLocation = adUseClient
 
With rs
    Find "id_prosuit_service =" & CStr(idenr)
End With
 
circul = rs(5)
 
 
 
End Sub

Merci de votre aide.

[tee_grandbois]

bonjour,
le With évite de préfixer la méthode ou la propriété, encore faut-il ne pas oublier le point:

Code :

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

.Find "id_prosuit_service =" & CStr(idenr)

[Sebastien31t]

Super ca fonctionne !!