Discussion :

[Shifty62]

Bonjour,

Voila je suis actuellement en stage de développement informatique. Ma mission consiste a créer un logiciel sous access 2000 qui ferait de la relance client. J'ai déjà pas mal avancer dans mon projet mais la je suis bloqué...

Je vous explique : J'ai un formulaire relance client avec dedans tous mes sous formulaires répartis dans des onglets. Dans un onglet "facture", j'ai donc un sous-formulaire "facture" avec le code facture comme clé primaire et ses autres champs (date facture, montant...) et dans un autre onglet "gammes" j'ai un sous-formulaire "liste des actions" (de la gamme) avec également le code facture comme clé primaire et aussi d'autres champs (code action,date action...).
A savoir bien sur que mes 2 tables (facture et liste action) sont bien liées entre elles dans mon modèle relationnel via le code facture (1 facture peut avoir plusieurs actions possibles).

Ce que je veux faire : j'aimerai, grâce à un double clic sur le code facture que j'aurai taper moi même dans le sous-formulaire facture, insérer ce fameux code facture directement dans le sous-formulaire liste action. J'espère que je me suis fait comprendre

Ainsi j'ai donc créer une procédure événementielle pour taper le code sous VBA. Et c'est là que les ennuis commencent...

J'ai récupérer le code d'un collègue qui ne peut pas vraiment m'aider à dire comment il fonctionne ni comment l'adapter (vous savez, c'est un ami d'un ami d'un ami qui m'a refiler le code ).
Je l'ai récupérer et "essayer" de l'adapter à mon formulaire, le voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CODE_FACTURE_DblClick(Cancel As Integer)
 
Dim nom_facture As Integer
Dim NOMBRE As Integer
 
nom_facture = Me.Form.Recordset.Fields("Code_Facture").Value
[Form_Gestion Relance Client].CtlTab21.Value = 0
[Form_Gestion Relance Client].Recordset.MoveLast
NOMBRE = [Form_Gestion Relance Client].Recordset.RecordCount
 
Dim Rs As DAO.Recordset
Set Rs = [Form_Gestion Relance Client].RecordsetClone
 
Rs.MoveFirst
For i = 1 To NOMBRE
If Rs.Fields("CODE_FACTURE").Value = nom_facture Then
GoTo valid
Else
Rs.MoveNext
End If
Next
valid:
[Form_Gestion Relance Client].Recordset.Absolute = i + 1
End sub

Je vous avouerai que je ne comprend pas la moitié, VB n'étant pas vraiment ma tasse de thé
Après quelques manip' et résolutions d'erreurs, le code ne fonctionne toujours pas.
Mon problème est cette ligne qui ne veut pas s'exécuter :

Code :

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

[Form_Gestion Relance Client].Recordset.Absolute = i + 1

(c'est la dernière ligne du code)

Le message d'erreur est : propriété ou méthode non gérée par cette objet.
Ma petite idée sur cette erreur serait que ce code n'envoie pas sur le bon onglet et donc le bon formulaire.
Au cas où je vous met l'ordre des onglets : clients(avec 2 sous-formulaires) - factures(avec sous 1 formulaire) - gammes(avec 1 sous formulaire)

Voilà j'espère avoir été assez clair dans mon explication !!!
En vous remerciant d'avance pour vos réponses,

Alex

[Taoueret]

ce n'est pas

Code :

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

 [Form_Gestion Relance Client].Recordset.Absolute

MAIS

Code :

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

[Form_Gestion Relance Client].Recordset.AbsolutePosition

[Shifty62]

Bonjour Taoueret ! Merci pour ta réponse

Donc j'ai mis "AbsolutePosition" et maintenant je n'ai plus le même problème

Je t'explique :
Dès que je double clic sur un numéro de facture (n'importe lequel) il me renvoie sur l'onglet client (le 1er onglet) au lieu de me renvoyer sur l'onglet gamme (le 3e onglet). Je réessaye donc une 2e fois la même manip' et là il me renvoie un message d'erreur '3021' : "Aucun enregistrement en cours". Le message d'erreur ne survient que quand je clic une 2e fois sur le même code facture.

Dès lors, il me renvoie sur mon code et il me montre que l'erreur se trouve dans cette ligne :

Code :

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

nom_facture = Me.Form.Recordset("CODE_FACTURE").Value (la 3e ligne)

Maintenant je suis à peu près sur que c'est un problème de position des onglets.

[loufab]

Bonjour,

Ce n'est pas

Code :

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

nom_facture = Me.Form.Recordset.Fields("Code_Facture").Value

Mais

Code :

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

nom_facture = Me.Recordset.Fields("Code_Facture").Value

Cordialement,

[Shifty62]

Bonjour loufab,

J'ai comme tu m'as dit enlevé "form" et j'ai toujours la même erreur

Est-ce qu'il se pourrait que ce soit un problème dans les paramétrages ???

[loufab]

Pour insérer un enregistrement :

Code :

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

1
2
3
4
5
dim rst as dao.recordset
set rst = me.monsousform.form.recordset  'cas d'un sous form
rst.addnew
rst.fields("monnumero") = me.moncontrolecontenant  ' on copie la valeur
rst.update

C'est tout il n'y a pas de déplacement à faire.

Regarde le tuto sur DAO et celui sur les appel formulaires.

[Shifty62]

Excuse moi loufab mais je ne comprend pas très bien ce que je dois remplacer dans le code. Je test tout et il me renvoie toujours une erreur.
Pourrait tu m'indiquer plus précisément ce que je dois remplacer ???

[loufab]

La méthode que tu utilises ne me semble pas la bonne dans sa globalité. Je te conseille de réécrire tout dans les règles en essayant de bien comprendre comment ça fonctionne.

D'abord lire le tuto sur les appels formulaires, puis le tuto DAO pour comprendre comment fonctionne l'écriture/lecture d'une table via un recordset.

Les déplacements avec un absolute n'est pas adapté à ce que tu recherche.

[Shifty62]

Salut loufab,

Pourrait tu me mettre les liens vers ces 2 tutos ? J'arrive pas à les trouver

[loufab]

Bonjour,

Tous nos tutos sont ici

http://access.developpez.com/cours/

Bonne lecture.

Cordialement,