Discussion :

[kinguepat]

Bonsoir aux membres de DVP!

Je viens avec une autre préoccupation:

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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é.

et même avec ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

sans succès.

une aide de votre part sera la bienvenue.

Au plaisir de vous lire

[marot_r]

Bonjour.

Personnelement j'ai trouvé que passer par Recordsetclone n'apporte que des complications.
Voici comment je fais mes recherches :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
set r as dao.recordset:set r=me.recordset
call r.findfirst("[N°Facture]=" & Nz(Me.CmbRechercherFacture, 0))
 
if r.nomatch then
    MsgBox "Facture " & Me.CmbRechercherFacture & " absente !", vbInformation, "Recherche Facture"
end if
 
set r=nothing

Si Access trouve l'enregistrement, il se positionne dessus.
Pas besoin de passer par Bookmark.

A+

[kinguepat]

Bonjour Marot_r et aux membres de DVP.

Merci pour la réponse rapide. J'ai testé le code donné par Marot_r ce matin, mais rien ne se passe. sais pas ce que j'oublie. et le msgbox n'affiche pas le numéro renseigné sur la liste déroulante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub RechercherFacture_AfterUpdate()
Dim r As DAO.Recordset: Set r = Me.Recordset
Call r.FindFirst("[N°Facture]='" & Nz(Me.RechercherFacture, 0) & "'")
 
If r.NoMatch Then
    MsgBox "Facture " & Me.RechercherFacture & " absente !", vbInformation, "Recherche Facture"
End If
 
Set r = Nothing
end sub

pour rappel: mon formulaire comporte deux sous formulaires et je voudrai rechercher un enregistrement.

[marot_r]

Bonjour.

Si ton numéro de facture est un nombre entier, réel ou autonum alors il ne faut pas mettre de délimteurs.

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call r.FindFirst("[N°Facture]=" & Nz(Me.RechercherFacture, 0))

Et tu aurais du avoir le message disant qu'il n'avait pas trouvé. As-tu vérifier que le code était bien appellé ?

A+

[kinguepat]

Si ton numéro de facture est un nombre entier, réel ou autonum alors il ne faut pas mettre de délimteurs.

Mon Numéro facture est du type personnalisé (texte, nombre et caractère: FACT2018.0002) et il est autonumber, d'où la présence des délimiteurs.

Et tu aurais du avoir le message disant qu'il n'avait pas trouvé. As-tu vérifier que le code était bien appellé ?

J'ai effectivement le message


mais comprends pas pourquoi il ne retrouve pas la facture alors qu'elle existe. Un problème au niveau de la requête?

[marot_r]

Bonjour.

Un autonumber est un nombre entier long calculé par Access, il ne peut pas être un mélange de lettre et de chiffres.

As-tu du code qui fait le calcul du numéro ?

Sinon, va dans ta table (directement pas via un formulaire) et vérifie que le champ NoFacture est bien renseignée avec la valeur que tu as donnée.

A+