Probleme de code avec formulaire ajout

Version imprimable

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:

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

11/02/2008, 22h26
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:

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 ;).
12/02/2008, 09h25
MAMANHOU

Bonjour,

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

Citation:

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

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:

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

12/02/2008, 13h15
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