Bonjour à Tous !
J'espère trouver ici la solution qui me manque car ça fait un moment que je cherche et rien ... j'ai bien vu un début de solution sur la FAQ access mais cela ne marche que pour du DAO ... bref
J'ai un formulaire et un sous formulaire basé sur une procstock (serveur SQL 2000) dans le formulaire j'ai un bouton d'ajout qui permet d'ajouter des lignes dans mon sous formulaire, seulement j'en ai beaucoup et je veux que le selecteur aille se positionner sur la nouvelle ligne ajoutée, cette ligne peut se trouver en plein milieu par exemple et c'est bien là le plus genant.
Voici la procédure que j'appelle après l'ajout de ma ligne :
Sachant que la premiere fois que j'execute la procédure, ça marche parfaitement bien, par contre si je rajoute une autre ligne et donc que je lance la procédure à nouveau il parcourt tout les enregistrements de mon recordset sans jamais voir qu'il passe sur celui que je recherche ... il passe dessus mais le lis mal genre je cherche le 340 il est desssus et il lit celui d'avant ???
Private Sub sMajForm()
Dim lngCle As Long
Dim Fen As Form
On Error GoTo GestErr
Set Fen = Forms![Transco_GT]![GT_SousForm].Form
Fen.Requery
lngCle = DLookup("Num", "SELECT MAX(NumAuto) AS NUM FROM dbo.Gestion_Transco_GT")
Fen.Recordset.MoveFirst
Do While Not Fen.Recordset.EOF And Not Fen.Recordset.BOF
If (Fen.Recordset![NumAuto].Value = lngCle) Then
Exit Do
End If
Fen.Recordset.MoveNext
Loop
Fin:
Exit Sub
GestErr:
MsgBox Err.Description, Err.Number
Goto Fin
End Sub
HELP !!! PLEASE ! si qqun à une soluce même completement différente je suis preneur !
Partager