Discussion :

[sebinator]

Bonjour,

Un formulaire, un liste déroulante, événement Apres MAJ....

Ce code fonctionne très bien sous 2003 mais plus sous 2010 :

Code :

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

1
2
3
4
5
6
Private Sub Modifiable30_AfterUpdate()
Dim rechBC As Object
Set rechBC = Me.Recordset.Clone
    rechBC.FindFirst "[N°BC] = '" & Me![Modifiable30] & "'"
    Me.Bookmark = rechBC.Bookmark
End Sub

Cela ne fait rien sous 2010 et je n'ai pas de messages d'erreurs..

D'où cela peut venir ?

Merci d'avance

Seb

[robyseb]

Je croit que comme ca ca devrait fonctionner

Code :

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

1
2
3
4
5
6
Private Sub Modifiable30_AfterUpdate()
Dim rechBC As Recordset 'ici la modif 
Set rechBC = Me.Recordset.Clone
    rechBC.FindFirst "[N°BC] = '" & Me![Modifiable30] & "'"
    Me.Bookmark = rechBC.Bookmark
End Sub

[sebinator]

Et non cela ne fonctionne pas

[stigma]

Le nom

[N°BC]

est entre crochets, mais évite d'utiliser le caractère °
Il m'a quelques fois posé de gros problèmes.

[nico84]

Bonjour,

Il me semble qu'il faut appeler recordsetclone (sans point)
Ou plus simplement :

Code :

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

Me.Recordset.FindFirst "[N°BC] = '" & Me![Modifiable30] & "'"