Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Procédure dans sous-form??

Procédure dans sous-form??

2 réponses
Avatar
Christophe974
Salut =E0 tous,
J'utilise une proc=E9dure qui v=E9rifie la valeur du premier=20
et du dernier enreg. =E0 l'aide des btncmde Premier et=20
dernier.

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D
Private Sub BtnNav(index As Integer)
On Error GoTo Err_BtnNav

Select Case index
Case 1
DoCmd.GoToRecord , , acFirst
Case 2
'If CurrentRecord =3D acFirst - 1 Then
If Me.ID_Dem =3D DMin("[ID_Dem]", "T100_DEM") Then
MsgBox "premi=E8re fiche", vbInformation, "Pour info"
Else
DoCmd.GoToRecord , , acPrevious
End If
...
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D

Cette proc=E9dure fonctionne tr=E8s bien dans un formulaire,=20
mais ne fonctionne pas dans un sous-formulaire.

Quelqu'un a-t-il une id=E9e?

Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
?Lo»Paris?
Christophe974 wrote:
Salut à tous,
J'utilise une procédure qui vérifie la valeur du premier
et du dernier enreg. à l'aide des btncmde Premier et
dernier.

========================================================= > Private Sub BtnNav(index As Integer)
On Error GoTo Err_BtnNav

Select Case index
Case 1
DoCmd.GoToRecord , , acFirst
Case 2
'If CurrentRecord = acFirst - 1 Then
If Me.ID_Dem = DMin("[ID_Dem]", "T100_DEM") Then
MsgBox "première fiche", vbInformation, "Pour info"
Else
DoCmd.GoToRecord , , acPrevious
End If
...
========================================================= >
Cette procédure fonctionne très bien dans un formulaire,
mais ne fonctionne pas dans un sous-formulaire.

Quelqu'un a-t-il une idée?

Merci


Boujour Christophe974,

Oui (??? c'est vague "ne fonctionne pas")

Ton SF doit être l'objet en cours, DoCmd concerne l'objet un cours, donc tu
fait un MonSF.SetFocus avant d'utiliser cette procédure (qui se trouve dans
le form principal je suppose ???)

--
°Laurent°

Avatar
Michel Walsh
Salut,


ou utilises le recordset clone:

Me.RecordSetClone.MoveLast
Me.Bookmark = Me.RecorsetClone.Bookmark


par exemple, et le code devient indépendant de ce qui est en focu's.



Espérant être utile,
Vanderghast, Access MVP




"?Lo»Paris?" wrote in message
news:%
Christophe974 wrote:
Salut à tous,
J'utilise une procédure qui vérifie la valeur du premier
et du dernier enreg. à l'aide des btncmde Premier et
dernier.

========================================================= > > Private Sub BtnNav(index As Integer)
On Error GoTo Err_BtnNav

Select Case index
Case 1
DoCmd.GoToRecord , , acFirst
Case 2
'If CurrentRecord = acFirst - 1 Then
If Me.ID_Dem = DMin("[ID_Dem]", "T100_DEM") Then
MsgBox "première fiche", vbInformation, "Pour info"
Else
DoCmd.GoToRecord , , acPrevious
End If
...
========================================================= > >
Cette procédure fonctionne très bien dans un formulaire,
mais ne fonctionne pas dans un sous-formulaire.

Quelqu'un a-t-il une idée?

Merci


Boujour Christophe974,

Oui (??? c'est vague "ne fonctionne pas")

Ton SF doit être l'objet en cours, DoCmd concerne l'objet un cours, donc
tu

fait un MonSF.SetFocus avant d'utiliser cette procédure (qui se trouve
dans

le form principal je suppose ???)

--
°Laurent°