Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Sous Formulaire

Sous Formulaire

2 réponses
Avatar
greg
Bonjour

ce code fonction sous access 2000 avec la referance Microsoft access 10.0
object labrary
mais ne fonction pas sous 2007 avec la referance Microsoft access 12.0
object labrary
merci de votre aide
Dim rs As Object, Az As Object

Set rs = Me.Recordset.Clone 'le formulaire principal'
rs.FindFirst "[Refclient] = " & Me!Liste34.Column(5)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark


Set Az = Me.ClientFacture.Form.RecordsetClone 'ClientFacture est le sous
formulaire'

Az.FindFirst "[RefClientFacture] = " & Me!Liste34.Column(1)
If Not Az.EOF Then ClientFacture.Form.Bookmark = Az.Bookmark
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
CErnst
Il y aurait beaucoup à dire sur la manière d'écrire.....

Dim rs As Recordset, Az As Recordset

Set rs = Me.RecordsetClone 'le formulaire principal'
rs.FindFirst "[Refclient] = " & Me!Liste34.Column(5)
If rs.NoMatch = False Then
Me.Bookmark = rs.Bookmark
Set Az = Me("ClientFacture").Form.RecordsetClone 'ClientFacture est le
sous formulaire'
Az.FindFirst "[RefClientFacture] = " & Me("Liste34").Column(1)
If Az.NoMatch = False Then
Me("ClientFacture").form.Bookmark = Az.Bookmark
else
'Que fait-on si on ne trouve pas az ?
end if
else
'Idem que fait-on si on ne trouve pas rs ?.....
end if





"greg" a écrit dans le message de news:
48af12a2$0$299$
Bonjour

ce code fonction sous access 2000 avec la referance Microsoft access 10.0
object labrary
mais ne fonction pas sous 2007 avec la referance Microsoft access 12.0
object labrary
merci de votre aide
Dim rs As Object, Az As Object

Set rs = Me.Recordset.Clone 'le formulaire principal'
rs.FindFirst "[Refclient] = " & Me!Liste34.Column(5)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark


Set Az = Me.ClientFacture.Form.RecordsetClone 'ClientFacture est le
sous formulaire'

Az.FindFirst "[RefClientFacture] = " & Me!Liste34.Column(1)
If Not Az.EOF Then ClientFacture.Form.Bookmark = Az.Bookmark



Avatar
GREG
merci de votre aide,
après plusieurs essai j'ai constaté que le problème vien de contrôle zone de
liste, en sélectionnent un enregistrement de la liste et exécutant le même
code avec un bouton, fonction sans problème mais pas sous l'evenement
doubleclic de la liste



"CErnst" a écrit dans le message de
news:%
Il y aurait beaucoup à dire sur la manière d'écrire.....

Dim rs As Recordset, Az As Recordset

Set rs = Me.RecordsetClone 'le formulaire principal'
rs.FindFirst "[Refclient] = " & Me!Liste34.Column(5)
If rs.NoMatch = False Then
Me.Bookmark = rs.Bookmark
Set Az = Me("ClientFacture").Form.RecordsetClone 'ClientFacture est le
sous formulaire'
Az.FindFirst "[RefClientFacture] = " & Me("Liste34").Column(1)
If Az.NoMatch = False Then
Me("ClientFacture").form.Bookmark = Az.Bookmark
else
'Que fait-on si on ne trouve pas az ?
end if
else
'Idem que fait-on si on ne trouve pas rs ?.....
end if





"greg" a écrit dans le message de news:
48af12a2$0$299$
Bonjour

ce code fonction sous access 2000 avec la referance Microsoft access 10.0
object labrary
mais ne fonction pas sous 2007 avec la referance Microsoft access 12.0
object labrary
merci de votre aide
Dim rs As Object, Az As Object

Set rs = Me.Recordset.Clone 'le formulaire principal'
rs.FindFirst "[Refclient] = " & Me!Liste34.Column(5)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark


Set Az = Me.ClientFacture.Form.RecordsetClone 'ClientFacture est le
sous formulaire'

Az.FindFirst "[RefClientFacture] = " & Me!Liste34.Column(1)
If Not Az.EOF Then ClientFacture.Form.Bookmark = Az.Bookmark