Discussion :

[bridaine]

Bonsoir



Je progresse mais sans résultat !!!

Voici la dernière version du 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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
 
Private Sub cmdCréé_Click()
On Error GoTo Err_cmdCréé_Click
 
Dim newcomp As Variant
Dim i As Variant
Dim moncGroupe As Variant
Dim moncSIG As Variant
 
Dim MSQL As Variant
 
Dim MSQL1 As Variant
Dim MSQL2 As Variant
Dim MSQL3 As Variant
Dim MSQL4 As Variant
 
Dim cSIG As Variant
Dim ccompetence As Variant
 
Dim xSIG As Variant
Dim xcompetence As Variant
Dim xcoev As Integer
Dim xevcb As Integer
Dim xaction As Variant
Dim xcommentaire As Variant
Dim xdtcb As Date
Dim xdtre As Date
Dim xtypech As Variant
Dim xstatut As Variant
 
Dim RSComp As DAO.Recordset
Dim RSFait As DAO.Recordset
 
'On travaille sur le code groupe et le code collaborateur spécifiés
moncGroupe = Me!DF_code_groupe
moncSIG = Me![code_SIG]
 
MsgBox Prompt:="Le code groupe est = " & moncGroupe & " à comparer avec = " & [code groupe]
 
'On récupère le nombre d'enregistrements pour faire un compteur d'enregistrements
newcomp = DCount("*", "CompExRq1", "mongroupe = '" & Me!DF_code_groupe & "'")
'On compte le nombre de ces compétences à insérer dans la table des faits
MsgBox Prompt:="Le nombre d'enregistrements à insérer est =" & newcomp
 
'On ne garde que les compétences vierges relatives à ce groupe
MSQL1 = "SELECT CompExRq.monSIG, CompExRq.macompet "
MSQL2 = "FROM CompExRq "
MSQL3 = "WHERE CompExRq.mongroupe ='" & Forms![Detail_Fait_Plus]![Code_Groupe] & "' AND CompExRq.monSIG ='" & Me![code_SIG] & "'"
MSQL4 = "ORDER BY CompExRq.macompet; "
 
MSQL = MSQL1 & MSQL2 & MSQL3 & MSQL4
 
Debug.Print MSQL
 
Set RSComp = CurrentDb.OpenRecordset(MSQL)
 
RSComp.MoveFirst
 
'On prépare les enregistrements vierges (seules les clés sont renseignées)
 
 'Ouverture table des Faits
Set RSFait = CurrentDb.OpenRecordset("Faits", DB_OPEN_TABLE)
 
 
'On mouline pour insérer les compétences en rafale dans la table des faits
For i = 1 To newcomp
   'On prépare les enregistrements vierges (seules les clés sont renseignées)
   xSIG = RSComp.Fields![monSIG]
   xcompetence = RSComp.Fields![macompet]
 
   xcoev = 0
   xevcb = 0
   xstatut = 0
 
   RSFait.AddNew
   RSFait.Fields("[code SIG]").Value = xSIG
   RSFait.Fields("[code competence]").Value = xcompetence
   RSFait.Fields("[co evaluation]").Value = xcoev
   RSFait.Fields("[evaluation cible]").Value = xevcb
   RSFait.Fields("[action]").Value = xaction
   RSFait.Fields("[commentaire]").Value = xcommentaire
   RSFait.Fields("[date cible]").Value = xdtcb
   RSFait.Fields("[date realisation]").Value = xdtre
   RSFait.Fields("[statut]").Value = xstatut
   RSFait.Fields("[type echelle]").Value = xtypech
   RSFait.Update
   RSComp.MoveNext
 
Next i
 
RSFait.Close
RSComp.Close
 
'On envoie un message de fin de travail
MsgBox Prompt:="Insertion effectuée avec succès : " & i & " enregistrements ajoutés"
 
 
Exit_cmdCréé_Click:
    Exit Sub
 
Err_cmdCréé_Click:
    MsgBox Err.Description
    Resume Exit_cmdCréé_Click
 
End Sub

Message

Code :

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

1
2
 
Trop peu de paramètres, 1 attendu

Je serais très sympa de m'aider
D'avance merci !

[FreeAccess]

Bonjour,
Pourrais tu rester dans le même fil de tes message et ne pas en récréer un à chaque fois car là c'est vraiment dur de te suivre à la trace

[philben]

Bonjour,

A première vue je vois 2 erreurs :
1)

Code :

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

1
2
3
 
 
MSQL3 = "WHERE CompExRq.mongroupe ='" & Forms![Detail_Fait_Plus]![Code_Groupe] & "' AND CompExRq.monSIG ='" & Me![code_SIG] & "'"

il manque un espace à la fin. écrire & "' " et non "'"

2)
<DB_OPEN_TABLE> n'existe pas, écrire <dbopentable>

Je serais très sympa de m'aider

Tu peux faire le plein de ma voiture ?

Amicalement,

Philippe