Bienvenue! Identification Créer un nouveau profil

Recherche avancée

RecordSetClone dans un formulaire comportant deux sous formulaires

15/01/18 17:47
Bonsoir aux membres du Forum!

Je viens avec une préoccupation sur laquelle je bloque depuis un moment déjà.

je voudrais, à partir d'une liste déroulante, afficher un enregistrement sur un formulaire "F_Vente" comportant deux sous formulaires "sFrm_DetailsVentes" et "sFrm_DetailsPaiements"

j'ai utilisé le code ci-après:

Private Sub RechercherFacture_AfterUpdate()

Me.Filter = ""

With Me.RecordsetClone

.FindFirst "N°Facture=" & Nz(Me.CmbRechercherFacture, 0)

If Not (.NoMatch) Then
Me.Bookmark = .Bookmark
Else ' Sinon
MsgBox "Facture absente !",,"Recherche Facture"
Me.RechercherFacture.Undo
End If

End With
End Sub


aucun enregistrement trouvé,alors que les enregistrements existent.

et même avec ce code:

Private Sub RechercherFacture_AfterUpdate()
Dim rst As DAO.Recordset
Me.Filter = ""
Set rst = Forms![F_Vente].RecordsetClone
rst.FindFirst "[N°Facture]='" & Nz(Me.RechercherFacture, 0) & ""
If Not (rst.NoMatch) Then
Forms![F_Vente].Bookmark = rst.Bookmark

Set rst = Forms![F_Vente]![sFrm_DetailsVentes].Form.RecordsetClone
rst.FindFirst "[N°Facture]='" & Nz(Me.RechercherFacture, 0) & ""
If Not (rst.NoMatch) Then
Forms![F_Vente]![sFrm_DetailsVentes].Form.Bookmark = rst.Bookmark
Else
MsgBox "Facture Absente !", , "Recherche Facture" 'message
Me.RechercherFacture.Undo
End If
End If

'End With
End Sub

Mon "N°Facture" est obtenu par du code (merci pour le code obtenu par les soins de ce forum) et est du type FACT2018.0001 d'où la présence des délimiteurs.


Au plaisir de vous lire
SujetAuteurEnvoyé le

RecordSetClone dans un formulaire comportant deux sous formulaires

kinguepat15/01/18 17:47

Re: RecordSetClone dans un formulaire comportant deux sous formulaires

kinguepat17/01/18 14:10

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter