Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 03/01/2012, 14h54   #1
Nouveau Membre du Club
 
Inscription : avril 2009
Messages : 134
Détails du profil
Informations forums :
Inscription : avril 2009
Messages : 134
Points : 29
Points : 29
Par défaut Déplacement dans formulaire selon variable

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 :
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
familledacp est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/01/2012, 15h15   #2
Rédacteur/Modérateur
 
Avatar de Domi2
 
Homme
Inscription : juin 2006
Messages : 6 225
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 52
Localisation : Suisse

Informations professionnelles :
Secteur : Administration - Collectivité locale

Informations forums :
Inscription : juin 2006
Messages : 6 225
Points : 9 928
Points : 9 928
Envoyer un message via Skype™ à Domi2
Bonjour,

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

Essaye comme ceci :

Code :
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
__________________
Vous avez des montres, nous avons le temps ! (citation attribuée à L.-S. Senghor)

Ici, on ne perd pas de temps ! On en passe...


Access : créer des codes-barres 128 en VBA
Access : les commandes intégrées des menus

Ce message (ou un autre) vous a aidé ? Votez pour lui avec
Domi2 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/01/2012, 15h34   #3
Nouveau Membre du Club
 
Inscription : avril 2009
Messages : 134
Détails du profil
Informations forums :
Inscription : avril 2009
Messages : 134
Points : 29
Points : 29
Rebonjour Domi2

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

Merci beaucoup

Daniel
familledacp est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 06h14.


 
 
 
 
Partenaires

Hébergement Web