VBA ... CurrentRecord ... Problème d'utilisation

**snoopy69** · 17/10/2005, 09h12

Eh bye les gens ...

Alors j'ai fait une petite recherche dans l'aide VB et j'ai trouvé la fonction CurrentRecord qui permet d'avoir le N°de l'enregistrement en cours ...

J'aimerais utiliser le code ci-dessous pour que j'ai un message qui s'affiche dès que j'ouvre mon formulaire ... j'ai essayer de mettre les lignes de code ci-dessous sur l'évènement Form_Load mais cela ne marche pas ...

Comment puis-je faire pour que mon message s'affiche ???

Code :

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

1
2
3
4
5
6
7
8
Sub CurrentFormRecord(frm As Form)
    Dim lngrecordnum As Long
 
    lngrecordnum = FORM_controle_poids_entree_matiere.CurrentRecord
 
    MsgBox lngrecordnum 
 
End

Merci de vos réponses ...

**Tofalu** · 17/10/2005, 11h23

En utilisant DAO :

Code :

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

1
2
3
Sub CurrentFormRecord(frm As Form) 
    MsgBox frm.Recordset.AbsolutePosition
End

**snoopy69** · 17/10/2005, 11h28

Bien le bonjour Tofalu et merci de ta réponse ...

Je crois que je ne m'y prends pas bien pour faire ce que je veux ...

En faite, voici ce que j'ai fait :

Code :

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

1
2
3
Private Sub Form_Load()
MsgBox FORM_controle_poids_entree_matiere.Recordset.AbsolutePosition
End Sub

J'aimerais que le MsgBox s'affiche dès que le formulaire est ouvert ... mais cela ne marche malheureusement pas ... j'ai un message d'erreur qui me dit :

Erreur :

Erreur d'exécution '424'
Objet Requis

Qu'est ce que j'ai fait de faux ??? Je ne le vois pas trop ... merci pour vos réponses ...

+++

**Tofalu** · 17/10/2005, 11h32

Cette programmation n'est pas bonne. Il te faut appeler les objets par leur instance et non leur classe.

Ici, l'objet formulaire est : Me C'est à dire le formulaire courant.

Tu fais un gros amalgame entre les objets et leur classe

Code :

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

1
2
3
Private Sub Form_Load()
MsgBox Me.Recordset.AbsolutePosition
End Sub

**snoopy69** · 17/10/2005, 11h39

Merci Tofalu ... cela marche comme je voulais ... c'est parfait ...

Je vais me renseigner un peu plus sur ce que tu m'as dit c'est à dire sur les objets et leur classe ... Car c'est vrai, je suis un peu dans le floue de tout cela ... en gros, vive la programmation quand on débute ...

Merci encore pour ton aide ...

**snoopy69** · 17/10/2005, 11h47

Je n'avais pas remarqué j'ai une question importante quand même ...

Dsl d'avoir fait une fausse joie en cliquant sur le bouton résolu ..

Est ce que c'est nomal que la numérotation de mes enregistrements commence à "0" ???

Merci des réponses ...