Discussion :

[Julien42]

Bonjour,

j'ai un petit probleme, le code que j'ai rentré me servant a ouvrir un formulaire vierge et par la suite me servant a sauvegarder ma saisie dans ma base de donné, créé a chaque fois une ligne vierge dans ma base... comment puis je faire faire pour que cela ne se produise pas ??? voici la ligne de code

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
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Commande41_Click()
On Error GoTo Err_Commande41_Click
 
 
 Dim MaBase As Database, rst As Recordset
Set MaBase = CurrentDb
Set JeuEnregistrement = MaBase.OpenRecordset("TABLE EXPEDITION")
With JeuEnregistrement
.AddNew
 
![CLIENT] = Texte27
![N° D'AFFAIRE] = Texte29
![N° DE LIGNE] = [N° DE LIGNE]
![DATE DE LIVRAISON PREVUE] = Texte31
![DATE DE DEPART CURTY PRECISION] = Texte33
![DATE D'ARRIVEE THEORIQUE SELON TRANSPORTEUR] = Texte35
![TRANSPORTEUR] = Texte37
![ECART ENTRE DATE DE LIVRAISON PREVUE ET DATE THEORIQUE D'ARRIVEE] = Texte39
 
.Update
End With
 
MaBase.Close
 
Texte27 = ""
Texte29 = ""
[N° DE LIGNE] = ""
Texte31 = ""
Texte33 = ""
Texte35 = ""
Texte37 = ""
Texte39 = ""
 
   DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
 
 
Exit_Commande41_Click:
    Exit Sub
 
Err_Commande41_Click:
    MsgBox Err.Description
    Resume Exit_Commande41_Click
 
End Sub

[Demco]

Si ton formulaire est lié (qu'il a une requête ou table source), crée juste un bouton de sauvegarde d'enregistrement avec l'assistant de création de boutons.
Car là en mettant les champs à vide (""), tu crées effectivement un enregistrement vide. Place toi plutot sur un nouvel enregistrement (cf. Docmd.GotoRecord) pour avoir des champs vierges et prêts pour une autre saisie.

En espérant t'aider.

[vodiem]

et si tu veux affecter des valeurs par défaut à des champs met ton code dans l'événement 'Avant insertion' du form.