Discussion :

[familledacp]

Bonjour à tous et toutes

Je cherche à afficher dans un formulaire un enregistrement d'une table selon la valeur d'une variable obtenue

J'ai testé diverses méthodes mais cela ne fonctionne pas

Ce code est dans un bouton présent dans le formulaire en question

La variable est nommée "rechnum"

Cette variable doit afficher l'enregistrement du champ "numfac" de la table "tfactures"


Voici le code actuel

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim rechnum As String
rechnum = InputBox("Quel est le numéro de la facture recherchée ?", "Saisissez")
MsgBox ("la facture cherchée est : " & rechnum)
 
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("SELECT numfac FROM tFactures")
 
Me.Recordset.FindFirst rechnum

Merci de votre aide

Daniel

[Domi2]

Bonjour,

Je suppose que la table "tfactures" est la source de ton formulaire.

Essaye comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim rechnum As String
 
rechnum = InputBox("Quel est le numéro de la facture recherchée ?", "Saisissez")
 
MsgBox ("la facture cherchée est : " & rechnum)
 
'Recherche et affichage de l'enregistrement
With Me.RecordsetClone
 
    .FindFirst "[numfac] = '" & rechnum & "'"
 
    If .NoMatch = False Then Me.Bookmark = .Bookmark
 
End With

Domi2

[familledacp]

Rebonjour Domi2

20 minutes chrono pour avoir une réponse et cela fonctionne parfaitement !

Merci beaucoup

Daniel