Discussion :

[Thibaut_Dupont]

Bonjour a tous !

Je viens de finir un formulaire avec une requète SQL en VBA mais je me retrouve devant un petit problème, il faudrait que je puisse modifier mes entrée. Dans mon formulaire, je peux choisir (en mode modification) l'entrée a modifier. Par contre ma requète, en s'éxécutant me recrée une nouvelle entrée dans ma table, comment lui dire de modifier l'entrée selectionnée ?

J'ai déja créé un if pour faire la dictinction entre modifier et creer, mais comment lui dire de modifier l'entrée selectionnée ?

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
Private Sub Modifier_Click()
On Error GoTo Err_Modifier_Click
Dim TypeDechet, Instruction, CategDech, Précision, codeONU, CAP, Designa, CondEnl, Etiquetage, Code, Design
  
'Récupère les valeurs de chaque colonne des listes


TypeDechetf = Me.TypeDechet.Value
Instructionf = Me.Instructions.Value
CategDechf = Me.CategDech.Value
Précisionf = Me.Précision.Value
codeONUf = Me.codeONU.Value
CAPf = Me.CAP.Value
Designaf = Me.Designa.Value
CondEnlf = Me.CondEnl.Value
Etiquetagef = Me.Etiquetage.Value

' Récuperation valeur table code nomenclature
Code = Me.SelectionCDR1.Column(0)
Design = Me.SelectionCDR1.Column(1)

'MsgBox (Code)
'MsgBox (Design)
'MsgBox (Etiquetagef)


' Insère ces valeurs dans la table
StrSQL1 = "INSERT INTO TDechets ( TypeDechet, Instruction, CategDech, Précision, codeONU, CAP, Designa, CondEnl, Etiquetage, codeNom, DesigNom)"
StrSQL2 = "SELECT '" & TypeDechetf & "','" & Instructionf & "','" & CategDechf & "','" & Précisionf & "','" & codeONUf & "','" & CAPf & "','" & Designaf & "','" & CondEnlf & "','" & Etiquetagef & "','" & Code & "','" & Design & "'"

'Exécute les requêtes
DoCmd.SetWarnings (False): DoCmd.RunSQL ((StrSQL1 + StrSQL2)): DoCmd.SetWarnings (True)


 'retour formulaire menu
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acModifierRecord, , acMenuVer70
DoCmd.Close
DoCmd.OpenForm "FDechets"

Exit_Modifier_Click:
    Exit Sub

Err_Modifier_Click:
MsgBox Err.Description
    Resume Exit_Modifier_Click

End Sub

Si vous avez une idée je suis preneur !!

Merci d'avance.

Thib

[courtial]

tu mets ta valeur saisie dans une variable, que tu fais prendre ne compte par ta requete, pour la modif.
Update nomtable
values (liste des valeurs à prendre)
where condition (pour choisir ton enregistrement)

[marot_r]

Tu peux aussi faire un form directement lié à ta source de donnée et te sauver de tout ce code. Access fait tout le travail pour toi.

A+

[Thibaut_Dupont]

Merci pour vos réponse !

marot_r le seul problème c'est que mon formulaire me sert d'une part a la création et d'autre part a la modification de ma table, je me sert du VBA pour ça donc je dois continuer en VBA

courtial Je vais essayer avec cette methode.

Si ça marche je poste mon code, si ça marche pas, je continuerai a chercher !

Merci a vous en tout cas !

++
Thib

[Thibaut_Dupont]

Re bonjour a tous !

J'ai réussi a faire le distingo entre modif et mise a jour, pour les modif no soucis par contre j'ai du mal a faire mon Update 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
    'récupération de la clef primaire pour modifier les champs de la table, elle est issue d'un menu déroulant qui m'affiche toutes mes valeurs dans mon formulaire
    modif = Me.SelectionDechet.Value
    'Récupère les valeurs de chaque champ
    TypeDechetf = Me.TypeDechet.Value
    Instructionf = Me.Instructions.Value
    CategDechf = Me.CategDech.Value
    Précisionf = Me.Précision.Value
    codeONUf = Me.codeONU.Value
    CAPf = Me.CAP.Value
    Designaf = Me.Designa.Value
    CondEnlf = Me.CondEnl.Value
    Etiquetagef = Me.Etiquetage.Value

    ' Récuperation valeur table code nomenclature a inserrer dans la table TDechets    
    Code = Me.SelectionCDR1.Column(0)
    Design = Me.SelectionCDR1.Column(1)

    'MsgBox (Code)
    'MsgBox (Design)
    'MsgBox (Etiquetagef)


    ' Insère ces valeurs dans la table
    StrSQL1 = "UPDATE TDechets VALUE( TypeDechet, Instruction, CategDech, Précision, codeONU, CAP, Designa, CondEnl, Etiquetage, codeNom, DesigNom)WHERE TypeDechet.TDechets=modif"
    StrSQL2 = "SELECT '" & TypeDechetf & "','" & Instructionf & "','" & CategDechf & "','" & Précisionf & "','" & codeONUf & "','" & CAPf & "','" & Designaf & "','" & CondEnlf & "','" & Etiquetagef & "','" & Code & "','" & Design & "'"
    
    'Exécute les requêtes
    DoCmd.SetWarnings (False): DoCmd.RunSQL ((StrSQL1 + StrSQL2)): DoCmd.SetWarnings (True)

Je pense que c'est du a mon manque de connaissance en syntaxe, je n'ai pas trouver d'autre exemples sur le forum avec cette écriture. Quelqu'un voit ou j'ai fait une erreur ?

Merci d'avance a tous
++
Thib

[Thibaut_Dupont]

D'après ce que j'ai trouver sur le net je suis arrivé a cette requète :

Code :

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

1
2
3
4
 
StrSQL1 = "UPDATE TDechets SET (TypeDechetf , Instructionf, CategDechf, Précisionf, codeONUf, CAPf, Designaf, CondEnlf, Etiquetagef, Code, Design) WHERE TypeDechet.TDechets = modif"
 
DoCmd.SetWarnings (False): DoCmd.RunSQL (StrSQL1): DoCmd.SetWarnings (True)

Le problème c'est qu'il m'affiche un message d'erreur de syntaxe, mais il me met a jours tout mes champs sauf les deux dernier "Code" et "Design" qui sont issus d'une autre table (mais il apparaissent dans mon formulaire et je récupère très bien leurs valeur juste avant la requète)...

Il y a quelque chose qui m'échape vraiment !!!




_

[marot_r]

Merci pour vos réponse !

marot_r le seul problème c'est que mon formulaire me sert d'une part a la création et d'autre part a la modification de ma table, je me sert du VBA pour ça donc je dois continuer en VBA

Dans un form Access tu te positionne toi sur un nouvel enr et voilà tu viens de créer ton enr.

Temps de dev : le temps de dropper les champs dans ton form.

Mais moi aussi j'aime bien le VBA :-). J'aime juste pas refaire ce que Access fait ne natif.

Bon courrage.

A+