Sous Formulaire

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
CErnst
Le #16613501
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" 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



GREG
Le #16614161
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" 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" 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







Publicité
Poster une réponse
Anonyme