[Recup numero enregistrement Access]
Résolu
Utilisateur anonyme
-
zenon Messages postés 729 Statut Membre -
zenon Messages postés 729 Statut Membre -
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
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
A voir également:
- Vous ne pouvez pas ajouter ou modifier un enregistrement access
- Modifier dns - Guide
- Modifier liste déroulante excel - Guide
- Modifier l'extension d'un fichier - Guide
- Modifier story facebook - Guide
- Vous avez besoin d'une autorisation de la part de système pour modifier ce dossier - Guide
2 réponses
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 ;-))
Et hop !
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 !
Utilisateur anonyme
OK merci bien pour les conseils, ça marche impec.
