Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Eric
Bonjour,
Essaies :
Private Sub Commande0_Click() Me.ProjetCalcul.SetFocus DoCmd.GoToRecord , , acGoTo, 5 End Sub
Mais rien ne permet de s'assurer que le sous-formulaire contient au moins 5 enregistrements. Si ce n'est pas le cas tu auras un message d'erreur. Il te faudra tester le nb d'enregistrements présents dans le sous-form ProjetCalcul liè au formulaire Projet pour éviter l'erreur, par exemple se positionner sur le dernier :
Private Sub Commande0_Click() Dim lngOffset Me.ProjetCalcul.SetFocus lngOffset = Me.ProjetCalcul.Form.RecordsetClone.RecordCount ' on se positionne sur le 5ème sinon le dernier If lngOffset > 5 Then lngOffset = 5 End If DoCmd.GoToRecord , , acGoTo, lngOffset End Sub
J'ai un formulaire qui s'appelle Projet, et il contient un sous-formulaire appeler ProjetCalcul
Dans le sous formulaire ProjetCalcul, les enregistrements sont en continu
Les enregistrements dans ProjectCalculs sont classé par un champs alphanumérique croissant.
Si je veux que mon curseur atteigne un controle situé sur le 5ième enregistrement lorsque j'appuis sur un boutton .
Comment faire?
Merci à l'avance
Robert
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Essaies :
Private Sub Commande0_Click()
Me.ProjetCalcul.SetFocus
DoCmd.GoToRecord , , acGoTo, 5
End Sub
Mais rien ne permet de s'assurer que le sous-formulaire contient au
moins 5 enregistrements. Si ce n'est pas le cas tu auras un message
d'erreur. Il te faudra tester le nb d'enregistrements présents dans le
sous-form ProjetCalcul liè au formulaire Projet pour éviter l'erreur,
par exemple se positionner sur le dernier :
Private Sub Commande0_Click()
Dim lngOffset
Me.ProjetCalcul.SetFocus
lngOffset = Me.ProjetCalcul.Form.RecordsetClone.RecordCount
' on se positionne sur le 5ème sinon le dernier
If lngOffset > 5 Then
lngOffset = 5
End If
DoCmd.GoToRecord , , acGoTo, lngOffset
End Sub
J'ai un formulaire qui s'appelle Projet, et il contient un sous-formulaire
appeler ProjetCalcul
Dans le sous formulaire ProjetCalcul, les enregistrements sont en continu
Les enregistrements dans ProjectCalculs sont classé par un champs
alphanumérique croissant.
Si je veux que mon curseur atteigne un controle situé sur le 5ième
enregistrement lorsque j'appuis sur un boutton .
Comment faire?
Merci à l'avance
Robert
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Private Sub Commande0_Click() Me.ProjetCalcul.SetFocus DoCmd.GoToRecord , , acGoTo, 5 End Sub
Mais rien ne permet de s'assurer que le sous-formulaire contient au moins 5 enregistrements. Si ce n'est pas le cas tu auras un message d'erreur. Il te faudra tester le nb d'enregistrements présents dans le sous-form ProjetCalcul liè au formulaire Projet pour éviter l'erreur, par exemple se positionner sur le dernier :
Private Sub Commande0_Click() Dim lngOffset Me.ProjetCalcul.SetFocus lngOffset = Me.ProjetCalcul.Form.RecordsetClone.RecordCount ' on se positionne sur le 5ème sinon le dernier If lngOffset > 5 Then lngOffset = 5 End If DoCmd.GoToRecord , , acGoTo, lngOffset End Sub
J'ai un formulaire qui s'appelle Projet, et il contient un sous-formulaire appeler ProjetCalcul
Dans le sous formulaire ProjetCalcul, les enregistrements sont en continu
Les enregistrements dans ProjectCalculs sont classé par un champs alphanumérique croissant.
Si je veux que mon curseur atteigne un controle situé sur le 5ième enregistrement lorsque j'appuis sur un boutton .
Comment faire?
Merci à l'avance
Robert
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr