Rechercher : dans
Par :

[Recup numero enregistrement Access]

Dernière réponse le 20 jun 2005 à 21:28:59 oreilledelest, le 20 jun 2005 à 09:39:27 
 Signaler ce message aux modérateurs

Bonjour
J ai créé un formulaire qui intègre un sous-formulaire.
Je souhaiterai récupérer le numéro d'enregistrement du sous-formulaire pour l'utiliser dans mon formulaire.
J'ai pensé à faire une petite fonction dont voici le code :

Option Compare Database

Function Recd()
Dim Val As Long
Val = CurrentRecord
End Function

Ensuite, dans mon formulaire, lors du clic sur un bouton, le code suivant permet, normalement, de récupérer le numéro d'enregistrement :

Public Sub Commande65_Click()
Dim num As Long
num = Recd()
MsgBox num
End Sub

Seulement il m'affiche "0". J'ai bien essayé de spécifier Sousformulaire.CurrentRecord mais ça plante.
Quelqu'un a-t'il une solution?
Merci

1

blux, le 20 jun 2005 à 10:55:14

Salut,

la solution est simple (pour peu que l'on ne se prenne pas les pieds dans le tapis avec la syntaxe de nommage des objets ;-))

MsgBox Forms![formulaire principal].Form![sous-formulaire].Form.CurrentRecord

Et hop !
A+ Blux
 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

Répondre à blux

4

oreilledelest, le 20 jun 2005 à 11:09:39

OK merci bien pour les conseils, ça marche impec.

Répondre à oreilledelest

2

zenon, le 20 jun 2005 à 10:55:41

Tu compliques inutilement les choses à mon avis.

Le code suivant suffit:

MsgBox NomDuFormulaire.NomDuSousFormulaire!NomDuChampDontTuVeuxRécu­pérerLaValeur

Tu peux l'affecter à un bouton de commande.

A+

Répondre à zenon

3

blux, le 20 jun 2005 à 11:08:18

Euh oui, mais en l'occurrence, il ne veut pas un champ particulier mais un compteur système...
A+ Blux

 "Les cons, ça ose tout.
C'est même à ça qu'on les reconnait"

Répondre à blux

5

 zenon, le 20 jun 2005 à 21:28:59

Bah, oui, le principe est le même...

De tte manière, j'avais oublié un morceau: "Forms!..."; ça n'aurait pas marché...

Répondre à zenon