Discussion :

[MAMANHOU]

Bonjour,

J'ai un problème de code avec un formulaire "ajout"

J'ai créer un formulaire de recherche qui me permet d'insérer des enregistrements dans un sous formulaire.

Le code pour insérer le résultat :

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
Private Sub ListeSociete_Click()
Dim strsql3 As String
Dim pro, aut, soc, Nom, pre, autA, dte As String
 
pro = Me.Liste201.Column(1)
aut = Forms!f_gestion_abonne!auto_num
soc = Me.ListeSociete.Column(1)
Nom = Me.ListeSociete.Column(2)
pre = Me.ListeSociete.Column(3)
autA = Me.ListeSociete.Value
dte = date
strsql3 = " INSERT INTO T_Suivi ([N°MISSION/PROSPECT],[AUTO],[SOCIETE],[DIR_NOM],[DIR_PRENOM],[AUTO_AJOUT],[DATE] )values('" & pro & "'," & aut & ",'" & soc & "','" & Nom & "','" & pre & "'," & autA & ",'" & dte & "')"
 
 
DoCmd.RunSQL (strsql3)
Forms("f_gestion_abonne").Form.frm_Dossierspresentes.Requery
 
DoCmd.Close acForm, Me.Name
End Sub

les enregistrements apparaissent mais je ne sais pas pourquoi ils disparaissent à chaque réouverture de la base de données.
Je pensais avoir utilisé la fonction ajout ?

SI vous pouvez m'aider

Merci d'avance
Mamanhou

[mout1234]

Bonsoir,

Je ne vois pas pourquoi...
Il ne s'agirait pas simplement d'un filtre qui traine... ou de ton formulaire placé en mode Saisie de données ?
Vérifies en ouvrant la table en direct...

Au fait , attention au piège:

Code :

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

Dim pro, aut, soc, Nom, pre, autA, dte As String

Cette syntaxe déclare tes variables en VARIANT et non en string (à l'exception de la dernière.

Pour ne pas oublier... je ne déclare jamais deux variables sur une même ligne .

[MAMANHOU]

Bonjour,

Merci pour ton aide
je ne comprends pas ce que tu veux dire par

Il ne s'agirait pas simplement d'un filtre qui traine... ou de ton formulaire placé en mode Saisie de données ?
Vérifies en ouvrant la table en direct...

Dans les propriétés de mon formulaire :
- entrée de données = non
- ajout de données = non

En ce qui concerne ma table :
je peux saisir directement à l'intérieur en ajout un enregistrement

J'ai séparé mes variables dans mon code, merci.

Mamanhou

[MAMANHOU]

J'ai encore modifié mon code pour que soit saisie 2 enregistrements au lieu de 1 avec inversion de l'aut et ajout auto.

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 ListeSociete_Click()
Dim strsql3 As String
Dim strsq14 As String
 
Dim pro As Variant
Dim aut As Variant
Dim soc As String
Dim Nom As String
Dim pre As String
Dim autA As Variant
Dim dte As String
 
Dim pro1 As Variant
Dim autA1 As Variant
Dim soc1 As String
Dim Nom1 As String
Dim pre1 As String
Dim aut1 As Variant
Dim dte1 As String
 
pro = Me.Liste201.Column(1)
aut = Forms!F_gestion_abonne!auto_num
soc = Me.ListeSociete.Column(1)
Nom = Me.ListeSociete.Column(2)
pre = Me.ListeSociete.Column(3)
autA = Me.ListeSociete.Value
dte = DATE
 
pro1 = Me.Liste201.Column(1)
autA1 = Me.ListeSociete.Value
soc1 = Me.ListeSociete.Column(1)
Nom1 = Me.ListeSociete.Column(2)
pre1 = Me.ListeSociete.Column(3)
aut1 = Forms!F_gestion_abonne!auto_num
dte = DATE
 
strsql3 = " INSERT INTO T_Suivi ([N°MISSION/PROSPECT],[AUTO],[SOCIETE],[DIR_NOM],[DIR_PRENOM],[AUTO_AJOUT],[DATE] )values('" & pro & "'," & aut & ",'" & soc & "','" & Nom & "','" & pre & "'," & autA & ",'" & dte & "')"
strsql4 = " INSERT INTO T_Suivi ([N°MISSION/PROSPECT],[AUTO_Ajout],[SOCIETE],[DIR_NOM],[DIR_PRENOM],[AUTO],[DATE] )values('" & pro1 & "'," & autA1 & ",'" & soc1 & "','" & Nom1 & "','" & pre1 & "'," & aut1 & ",'" & dte1 & "')"
 
DoCmd.RunSQL ((strsql3) & (strsq14))
Forms("f_gestion_abonne").Form.frm_Dossierspresentes.Requery
 
DoCmd.Close acForm, Me.Name
End Sub

Mais cela ne marche pas ... je ne trouve pas l'érreur

Mamanhou

[MAMANHOU]

Bonjour,
J'ai réglé mon problème de saisie pour 2 enregistrements
J'ai dupliquer mon enregistrement

ca marche

Par contre je ne vois pas pourquoi il me perd mes données...
Je continue à chercher
Merci
Mamanhou