Enregistrement dans table [Résolu]

[KpRR_]

Bonjour a tous, j'ai un petit problème, j'ai un formulaire qui est lié a une table.
De plus, sur l'évènement perte focus d'une zone de texte j'ai mit ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim mabase As DAO.Database
Dim rec As DAO.Recordset
Dim nb As Long
 
Debug.Print Me.NbExemplairesStocks.Value
Set mabase = CurrentDb
Set rec = mabase.OpenRecordset("Emprunter")
 
        nb = Me.NbExemplairesStocks
        rec.MoveFirst
            While rec.EOF = False
                If (rec.Fields("Idalbum").Value = Me.IDAlbum And rec.Fields("rendu").Value = False) Then
                        nb = nb - 1
                End If
                rec.MoveNext
            Wend
            Me.NbExemplairesDispos.ControlSource = ""
            Me.NbExemplairesDispos.Value = nb

Mais j'ai un probleme, ma zone de texte NbExemplairesDispos prend bien la valeur mais lorsque je ferme mon formulaire, le champs NbExemplairesDispos de la table prend la valeur 0 au lieu de prendre la valeur de nb.

D'ou vient mon erreur ?

Par avance, merci

Cordialement KpR

[KpRR_]

Problème resolu, c'était a cause de ça :

Code :

Me.NbExemplairesDispos.ControlSource = ""

je l'ai remplacé par ça :

Code :

Me.NbExemplairesDispos.ControlSource = "NbExemplairesDispos"

Merci quand meme