Discussion :

[capi81]

Salut le forum

Merci à rdurupt pour le code ci-dessous réalisé.
Je reprend cette citation de rdurupt qui m'a beaucoup plu:

Ce qui tue le temps, c'est le développement de routine

Je suis à la recherche d'une solution qui me permettra de gérer les modifications des données dans ma base de données. Ma base de données est un classeur fermé et intitulé "VISA_CHEQUE".
VISA_CHEQUE est alimenté à partir d'un autre Fichier (Fichier_Départ) comportant un usf.
J'ai ajouté un textbox dans mon usf initial qui permet d'attribuer des références automatiquement (comme pour la génération automatique de numéro de facture).
Dans un autre usf (toujours dans Fichier_Départ) j'ai une combobox1 et lorsque je choisis une référence et que je clic sur le bouton "afficher" les autres controls sont renseignés des données correspondant à la référence choisie (voir éléments de correspondance):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
TextBox12 = Rs("NUM_CLIENT")
TextBox2 = Rs("REVENU")
TextBox3 = Rs("CUMUL_ENGAGEMENT")
TextBox4 = Rs("VISA_DEMANDE")
TextBox5 = Rs("AUTORISATION")
TextBox6 = Rs("SOLDE_AVANT_VISA")
TextBox7 = Rs("SOLDE_APRES_VISA")
TextBox21 = Rs("SITUATION_NETTE")
TextBox8 = Rs("DELAI_DE_RECUPERATION")
TextObjet = Rs("COMMENTAIRE_CC")
TextBox10 = Rs("CODE_INITIATEUR")

Je souhaite lorsque je modifie une donnée d'un control donné, à la validation, les données située sur la ligne de la référence choisie (valeur de la combobox1) devront être remplacées par les données issues des controls. Autrement dit, au lieu de coller les données à la suite d'un précédent collage, les données devront être collées sur la ligne à modifier dont le mot clé sera la référence.
Le code ci-dessous permet de copier-coller vers le fichier contenant la feuille sur laquelle le collage devra se faire (valeur combobox1):

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
Private Sub Initiation_Click()
If ValideFormulaire(Me) = False Then Exit Sub
Dim strsQL As String
Dim Rs
Dim mytime
mytime = Time
 
OpenConnexion Fichier
sql = "select * from  [" & Feuille1 & "] where ucase(trim(REFERENCE)) ='" & Trim(TextBox18.Value) & "';"
'sql = Replace(Me.TextBox1, "'", "''")
Set Rs = CreateObject("adodb.recordset")
Rs.Open sql, Cnx
If Rs.EOF = False Then
MsgBox "Existe"
Else
strsQL = "insert into [" & Feuille1 & "] ([REFERENCE],[DATE_INITIATION],[NUM_CLIENT],[REVENU],[CUMUL_ENGAGEMENT],[VISA_DEMANDE],[AUTORISATION],[SOLDE_AVANT_VISA],[SOLDE_APRES_VISA],[SITUATION_NETTE],[DELAI_DE_RECUPERATION],[COMMENTAIRE_CC],[NIVEAU_URGENCE],[CODE_INITIATEUR],[HEURE_ENVOI],[CODE_VALIDEUR1],[CODE_VALIDEUR2]) "
        strsQL = strsQL & "Values ('" & Trim(TextBox18) & "','" & Trim(Date) & "','" & Trim(TextBox1.Value) & _
        "','" & Trim(TextBox2.Value) & "','" & Trim(TextBox7.Value) & "','" & _
        Trim(TextBox8.Value) & "','" & Trim(TextBox9.Value) & "','" & Trim(TextBox10.Value) & "','" & Trim(TextBox11.Value) & "','" & Trim(TextBox12.Value) & "','" & Trim(TextBox13.Value) & "', '" & TextObjet.Value & " ', '" & Label20.Caption & " ', '" & Trim(TextBox14.Value) & " ', '" & Trim(mytime) & " ', '" & Trim(TextBox15) & " ', '" & Trim(TextBox16) & "');"
'sql = Replace(Me.TextObjet, "'", "''")
 
Cnx.Execute strsQL
End If
Rs.Close
Set Rs = Nothing
Cnx.Close
Set Cnx = Nothing
Unload Me
End Sub

Le code à réaliser sera affecter à un bouton de commande "MODIFIER".
N.B :j'ai déjà le code qui permet d'afficher les données correspondant à la référence choisie.
Merci pour vos éventuelles contributions

[Invité]

Bonjour,

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
If ValideFormulaire(Me) = False Then Exit Sub
Dim strsQL As String
Dim Rs
Dim mytime
mytime = Time
 OpenConnexion Fichier
sql = "select * from  [" & Feuille1 & "] where ucase(trim(REFERENCE)) ='" & Trim(TextBox18.Value) & "';"
'sql = Replace(Me.TextBox1, "'", "''")
Set Rs = CreateObject("adodb.recordset")
Rs.Open sql, Cnx
If Rs.EOF = False Then
If Rs("REFERENCE") <> Me.Tag Then MsgBox "Vous ne pouvez pas modifier la REFERENCE car elle existe déjà!": Exit Sub
strsQL = "Update [" & Feuille1 & "] set [REFERENCE]='" & Trim(TextBox18) & "',[DATE_INITIATION]'" & Trim(Date) & "'" 'continues pour tous les champs
strsQL = strsQL & " where ucase(trim(REFERENCE)) ='" & UCase(Trim(me.tag)) & "';"
Cnx.Execute strsQL
End If
Rs.Close
Set Rs = Nothing
Cnx.Close
Set Cnx = Nothing
Unload Me

[capi81]

Salut rdurupt

Merci pour le feedback sportif.
J'étais en train de réaliser les tests tenant compte des ajouts que vous avez demandé.
Voici le code final mais je rencontre un message d'erreur:

Erreur de syntaxe dans l’instruction update

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
Private Sub Modifier_Click()
If ValideFormulaire(Me) = False Then Exit Sub
Dim strsQL As String
Dim Rs
Dim mytime
mytime = Time
 OpenConnexion Fichier
sql = "select * from  [" & Feuille2 & "] where ucase(trim(REFERENCE)) ='" & Trim(ComboBox1.Value) & "';"
'sql = Replace(Me.TextBox1, "'", "''")
Set Rs = CreateObject("adodb.recordset")
Rs.Open sql, Cnx
If Rs.EOF = False Then
If Rs("REFERENCE") <> Me.Tag Then MsgBox "Vous ne pouvez pas modifier la REFERENCE car elle existe déjà!": Exit Sub
strsQL = "Update [" & Feuille2 & "] set [REFERENCE]='" & Trim(ComboBox1) & "',[DATE_AVIS]'" & Trim(Date) & "',[NUM_CLIENT]'" & Trim(TextBox12) & "',[AVIS_DGAE_DR_DZ]'" & Trim(Label1) & "',[MONTANT_VISA]'" & Trim(TextBox4) & "'[COMMENTAIRE_DGAE_DR_DZ]'" & Trim(TextBox13) & "'[CODE_INITIATEUR]'" & Trim(TextBox10.Value) & "'[CODE_VALIDEUR]'" & Trim(TextBox9) 'continues pour tous les champs"
strsQL = strsQL & " where ucase(trim(REFERENCE)) ='" & UCase(Trim(ComboBox1.Value)) & "';"
Cnx.Execute strsQL
End If
Rs.Close
Set Rs = Nothing
Cnx.Close
Set Cnx = Nothing
Unload Me
End Sub

J'avais omis de completer la partie du code précédent par ceci :

Code :

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

& "');"

Ci-dessous la partie du code ou j'ai pu détecter l'omission. La correction y a été apporter mais toujours le même message d'erreur.

Code :

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

strsQL = "Update [" & Feuille2 & "] set [REFERENCE]='" & Trim(ComboBox1.Value) & "',[DATE_AVIS]'" & Trim(Date) & "',[NUM_CLIENT]'" & Trim(TextBox12.Value) & "',[AVIS_DGAE_DR_DZ]'" & Trim(Label1) & "',[MONTANT_VISA]'" & Trim(TextBox4.Value) & "'[COMMENTAIRE_DGAE_DR_DZ]'" & Trim(TextBox13.Value) & "'[CODE_INITIATEUR]'" & Trim(TextBox10.Value) & "'[CODE_VALIDEUR]'" & Trim(TextBox9.Value) & "');"

Merci de m'aider

[Invité]

Bonjour,

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
If ValideFormulaire(Me) = False Then Exit Sub
Dim strsQL As String
Dim Rs
Dim mytime
mytime = Time
 OpenConnexion Fichier
Sql = "select * from  [" & Feuille1 & "] where ucase(trim(REFERENCE)) ='" & Trim(TextBox18.Value) & "';"
'sql = Replace(Me.TextBox1, "'", "''")
Set Rs = CreateObject("adodb.recordset")
Rs.Open Sql, Cnx
If Rs.EOF = False Then
If Rs("REFERENCE") <> Me.Tag Then
MsgBox "Vous ne pouvez pas modifier la REFERENCE car elle existe déjà!"
Rs.Close
Set Rs = Nothing
Cnx.Close
Set Cnx = Nothing
Exit Sub
End If
Rs.Close
Set Rs = Nothing
strsQL = "Update [" & Feuille2 & "] set [REFERENCE]='" & Trim(ComboBox1.Value) & "', "
strsQL = strsQL & "[DATE_AVIS]='" & Trim(Date) & "'[NUM_CLIENT]='" & Trim(TextBox12.Value) & "', "
strsQL = strsQL & "[AVIS_DGAE_DR_DZ]='" & Trim(Label1) & "',[MONTANT_VISA]='" & Trim(TextBox4.Value) & "', "
strsQL = strsQL & "[COMMENTAIRE_DGAE_DR_DZ]='" & Trim(TextBox13.Value) & "',[CODE_INITIATEUR]='" & Trim(TextBox10.Value) & "', "
strsQL = strsQL & "[CODE_VALIDEUR]='" & Trim(TextBox9.Value) & "'"
strsQL = strsQL & " where ucase(trim(REFERENCE)) ='" & UCase(Trim(Me.Tag)) & "';"
Cnx.Execute strsQL
Cnx.Close
Set Cnx = Nothing
Unload Me

[capi81]

Bonjour rdurupt

Merci pour la réponse.
Mes tests ne sont pas concluant.
Je rencontre l'erreur suivante:

Erreur de syntaxe (opérateur absent) dans l’expression « ‘20/09/2014’ [NUM_CLIENT]=’04012560002’

Je vous joins les 2 fichiers pour appréciation pendant que de mon côté je regarde aussi.

[mercatog]

Tu pouvais deviner une virgule d'oubliée juste avant [NUM_CLIENT]