Discussion :

[kiki.gaby]

Bonjour à tous,

J'utilise Access 2003.

Voilà, j'ai développé un code permettant de transférer le contenu d'un table liée vers une autre table.

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
Function transfert_curatif_vers_curatif_géné()
Dim db As Database
Dim sql As String
Dim Rs20 As DAO.Recordset
Dim qfd20 As DAO.QueryDef
Dim année20 As String
Dim date20 As String
Dim accu20 As String
Dim respcu20 As String
Dim id20 As String
Dim delaicura20 As String
Dim visacu20 As String
Dim ok20 As String
Dim nok20 As String
Dim solde20 As String
Dim type20 As String
 
 
DoCmd.SetWarnings False ' pour ne pas avoir de message a chaque ajout
 
'code pour activer requête
Set qfd20 = CurrentDb.QueryDefs("R_sélectionne_AC_curatif")
 
'ouvre le recordset basé sur la requête
Set Rs20 = qfd20.OpenRecordset
 
'Vérifie s'il y a des enregistrements dans le Recordset pour éviter message d'erreur
If Rs20.BOF = True And Rs20.EOF = True Then GoTo line31
 
'stocke dans les variables les données de la table sélectionnée en fonction de la requête
Rs20.MoveFirst
While Not Rs20.EOF
    With Rs20
        id20 = Nz(.Fields("ID_RNC").Value, "")
        année20 = Nz(.Fields("année_curatif").Value, "")
        date20 = Nz(.Fields("Date_cura").Value, "")
        'accu20 = Nz(.Fields("ac_curative").Value, "")
        accu20 = Replace(Rs20.Fields("ac_curative").Value, "'", " ")
        respcu20 = Nz(.Fields("Resp_cura").Value, "")
        delaicura20 = Nz(.Fields("Delai_cura").Value, "")
        visacu20 = Nz(.Fields("Visa_cura").Value, "")
        ok20 = .Fields("conforme").Value
        If ok20 = "Vrai" Then ok20 = "1"
        nok20 = .Fields("non_conforme").Value
        If nok20 = "Vrai" Then nok20 = "1"
        solde20 = .Fields("Soldé").Value
        If solde20 = "Vrai" Then solde20 = "1"
        type20 = .Fields("type_ac").Value
 
            'exécute la requête d'ajout dans la table
            sql = "INSERT INTO [curatif_générale](ID_RNC,année_curatif,Date_cura,ac_curative,Resp_cura,Delai_cura,Visa_cura,conforme,non_conforme,Soldé,type_ac) VALUES ('" & id20 & "', '" & année20 & "','" & date20 & "','" & accu20 & "', '" & respcu20 & "', '" & delaicura20 & "','" & visacu20 & "','" & ok20 & "','" & nok20 & "','" & solde20 & "','" & type20 & "' )"
            DoCmd.RunSQL sql
 
    End With
        id20 = ""
        année20 = ""
        date20 = ""
        accu20 = ""
        respcu20 = ""
        delaicura20 = ""
        visacu20 = ""
        ok20 = ""
        nok20 = ""
        solde20 = ""
        type20 = ""
 
        Rs20.MoveNext
Wend
DoCmd.SetWarnings True
 
line31:
Rs20.Close  'on est propre on ferme ce qui a été ouvert
Set Rs20 = Nothing
End Function

Je rencontre un problème avec un champ qui contient le descriptif d'incident rencontré en production.

En effet lorsque l'on utilise des mots contenant " ' " j'obtiens un message d'erreur.

Exemple : " Le bruit n'est plus d'actualité ".

J'ai trouvé une parade pour éviter le message d'erreur mais cela m'oblige à reprendre certaines lignes car ma phrase du dessus devient " Le bruit n est plus d actualité "

Y a t'il une solution différente que la mienne ?

Merci d'avance de vos précieux conseils.

[Domi2]

Bonjour,

Essaie comme ceci :

Code :

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

accu20 = Replace(Rs20.Fields("ac_curative").Value, "'", "''")

Domi2

[kiki.gaby]

Bonjour Domi2,

J'avais déjà essayer cette solution sans résultat ( j'obtiens un message d'erreur )

Erreur de syntaxe (opérateur absent) dans l'expression "Le bruit n' 'est plus d' 'actualité"

[micniv]

Bonjour,
pour éviter l'erreur tu pourrais :
soit , à la place de la requete ajout, procéder par recordset sur la table curatif_générale et ajouter un nouvel enregistrement

soit encadrer ton libellé (qui contient des ' ) par """ au lieu d'un seul " dans la rq Ajout

[kiki.gaby]

Bonjour Micniv,

Dans les 2 solutions que tu me proposes je ne vois très bien comment faire.

Un petit exemple pour tes 2 solutions serait le bienvenu pour m'éclairer car là je suis sec.

Je vais voir ce que je peux faire pour la 2ème solution.

[Begon0]

Bonjour Domi2,

J'avais déjà essayer cette solution sans résultat ( j'obtiens un message d'erreur )

la solution de Domi2 devrait marcher, j'ai l'impression qu'il y a un espace entre tes '' dans ton message d'erreur, il n'en faut pas. les 2 ' doivent se toucher

[kiki.gaby]

Bonjour Begon0,

Autant pour moi je n'ai pas bien prêté attention à l'écriture de la solution de Domi2.

Merci à vous deux pour la solution apportée.