Discussion :

[David26250]

Tout d'abord, bonjour à tous

Je crée à titre personnel pour ma petite entreprise un petit logiciel de devis et facturation.
Ma table Factures se compose des champs suivants:

N°_Facture (clé)
NumFDevis
Date
Affaire

J'ai crée le code suivant et access me dit que NumFDevis n'est pas reconnu comme un nom de champ.

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
25
26
27
28
29
30
31
32
Private Sub Form_Close()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strNDevis As String
Dim strAffaire As String
Dim strNFDevis As String
 
Set db = CurrentDb
Set rst = db.OpenRecordset("Factures", dbOpenDynaset)
 
 
strNDevis = Forms![Devis]![N°_Devis]
strAffaire = Forms![Devis]![Affaire]
strNFDevis = "NumFDevis = " & strNDevis
 
    Me.Recordset.FindFirst strNFDevis
    If Me.Recordset.NoMatch Then
 
   rst.Edit
   rst.Fields("NumDevis") = strNDevis
   rst.Fields("Affaire") = strAffaire
 
   rst.Update
End If
 
 
 
 
rst.Close
Set rst = Nothing
Set db = Nothing
End Sub

Je cherche sur le net depuis 2 jours, et j'avoue que je sèche
Merci pour votre aide
PS: Je suis novice!

[loufab]

Bonjour,

2 causes :

NumFDevis n'est pas explicitement déclaré dans la source de ton formulaire.
NumFDevis n'est pas représenté dans un contrôle du même nom dans ton formulaire.

Cordialement,

[David26250]

Merci beaucoup, c'était bien le problème.
Tout Fonctionne parfaitement