Comment récuperer la derniere valeur entrée pour une selection precise

**Jean-Philippe André** · 20/02/2012, 10h45

Ok,

alors 2 trucs simples pour commencer :
La table _PARAM_ est juste sensée centralisée les valeurs qui seront utilisées entre les formulaires mais ne "passeront pas" d'un formulaire à l'autre

Voir le tuto à ce sujet :
http://jpcheck.developpez.com/tutori...es-initiation/

Ensuite, il faut ajouter un module pour mettre les fonction GetParam et SetParam

Code :

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

1
2
3
4
5
6
7
Public Sub SetParam(strWhat As String, strValue As Variant)
    CurrentDb.Execute "UPDATE _PARAMS_ SET valeur = '" & strValue & "' WHERE intitule='" & strWhat & "'"
End Sub
 
Public Function GetParam(strWhat As String) As String
    GetParam = DLookup("valeur", "_PARAMS_", "intitule='" & strWhat & "'")
End Function

Ca devrait déjà avancer pas mal

dans le code de ta vue tu ne changes rien

et dans le code de ton second formulaire, il faudra avoir un code

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Load()
Dim IDMvt As Double
IDMvt = GetParam("IDmvt")
If IDMvt = 0 Then
'cas nouvelle insertion
Else
'cas enregistrement existant
End If
End Sub

**Shades** · 20/02/2012, 11h13

J'ai bien ajouté les codes mais j'ai l'impression d'avoir fait n'importe quoi ça plante de tout coté

Arggggg je vais jamais réussir à assimiler le VBA je comprends pas c'est dingue.

Regarde ce que j'ai fais et guide moi stp là où je me plante pour que je finisse enfin à comprendre ces lignes de codes obscures

**Jean-Philippe André** · 20/02/2012, 11h17

OK
etape 1 : dans la table _PARAMS_, change les champs
-Beneficiaire en "intitule"
-CoumpteuD en "valeur"

**Shades** · 20/02/2012, 11h20

Ok c'est fait

**Jean-Philippe André** · 20/02/2012, 11h23

etape 2:
dans le code d'ouverture du formulaire

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
Private Sub Form_Load()
Dim IDMvt As Double
IDMvt = GetParam("IDMvt")
If IDMvt = 0 Then
'cas nouvelle insertion
'initialise les champs à valeur par défaut
'exemple
Me.Datesortie = Date()
Else
'cas enregistrement existant
'remplis les champs en fonction de l'IDMvt
'exemple
Me.Datesortie = Dlookup("Datesortie","TbMvt","IdMvt=" & IDMvt) 
End If
End Sub

**Shades** · 20/02/2012, 11h29

Ok fait sur le FmMvtVues c'est bien ça ?

**Jean-Philippe André** · 20/02/2012, 11h34

ah non, la vue, tu as seulement l'evenement double clic sur la zone de liste et le clic sur le bouton à gérer

le code evoqué au post précénent est à effectuer dans le Form_FmMvt

**Shades** · 20/02/2012, 11h38

OK corrigé

**Jean-Philippe André** · 20/02/2012, 11h38

Ca donne quoi ton code dans le Form_Load une fois complété alors ?

**Shades** · 20/02/2012, 11h45

Erreur d’exécution '94'
Utilisation incorrecte de "NULL"

avec la ligne :

Code :

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

GetParam = DLookup("valeur", "_PARAMS_", "intitule='" & strWhat & "'")

en surbrillance jaune

**Jean-Philippe André** · 20/02/2012, 12h01

pense à créer un enregistrement dans la table _PARAMS_ avec les valeurs suivantes:
intitule = "IdMVT"
valeur = 0

**Shades** · 20/02/2012, 12h12

Ok je l'ai fais mais là c'est une erreur '13' Incompatibilité de type ?! Kesako ?

de plus la valeur 0 que tu m'a dit d'ajouter est devenu "1450 TC 79" et IDMvt comme intitulé est resté tel que, mais "1450 TC 79" est un intitulé pas une valeur, c'est son CompteurD qui devrait être la valeur dans ce cas de figure.

**Jean-Philippe André** · 20/02/2012, 12h58

Héhé, on avance bien donc

le code s'est bien exécuté lors du boucle clic sur la liste.

Reste maintenant à regarder le code pour la partie Form_Load.

L'erreur actuelle vien du fait que tu as stocké non pas l'IdMvt dans la table, mais le bénéficiaire, ce qui n'est pas ce qu'on souhaite

Passe la bonne valeur à ta table de paramètre lors du double clic, de telel sort e que ca soit l'IDMvt qui soit stocké !

**Shades** · 20/02/2012, 13h53

Ce serait cette partie du code qu'il faudrait que je change ? :

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
Private Sub Form_Load()
Dim IDMvt As Double
IDMvt = GetParam("IDMvt")
If IDMvt = 0 Then
'cas nouvelle insertion
'initialise les champs à valeur par défaut
'exemple
Me.Datesortie = Date
Else
'cas enregistrement existant
'remplis les champs en fonction de l'IDMvt
'exemple
Me.Datesortie = DLookup("Datesortie", "TbMvt", "IdMvt=" & IDMvt)
End If
End Sub

**Jean-Philippe André** · 20/02/2012, 14h00

Dans un second temps oui, d'abord il faut que tu changes 2 choses
1/ le champ IdMVT doit "apparaitre" dans ton formulaire (meme s'il n'est pas affiché

ajoute le dans ta Section.

Une fois celui ci ajouté, on pourras modifier le code vba en conséquence

**Shades** · 20/02/2012, 14h09

C'est fait j'ai ajouté au FmMvtVues le champ IDMvt

**Jean-Philippe André** · 20/02/2012, 14h15

OK, maintenant dans ton code pour le double clic, utilise le champ pour ton setparam

**Shades** · 20/02/2012, 14h21

Et je change quoi ds ce code ?

Code :

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

1
2
3
4
5
6
Private Sub zdlBeneficiaire_DblClick(Cancel As Integer)
    If Not IsNull(Me.zdlBeneficiaire) Then
        SetParam "IDMvt", Me.zdlBeneficiaire
        DoCmd.OpenForm "FmMvt", acNormal
    End If
End Sub