Supprimer un enregistrement avec EXCEL VBA

Version imprimable

Bonjour à tous,
je pilote des bases ACCESS avec EXCEL VBA et avec ma procédure (SQL) je n'arrive pas à supprimer mon enregistrement.
voici mon code, merci de me dire ce qui ne va pas...

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
Sub SuppAffaireDetail()
Dim Cnt As ADODB.Connection, Rst As ADODB.Recordset, MySQL As String
Dim LaCo As String, LaDate As Date, LaRess As String, LeTemps As Date, Heure As Date
Dim LeClient As String, Lentite As String, LePoste As String, LeService As String
 
LaCo = CorrectJour.ListBox1.List(CorrectJour.ListBox1.ListIndex, 0)
LaDate = CDate(CorrectJour.ListBox1.List(CorrectJour.ListBox1.ListIndex, 1))
LaRess = CorrectJour.ListBox1.List(CorrectJour.ListBox1.ListIndex, 2)
'LeTemps = CDate(CorrectJour.ListBox1.List(CorrectJour.ListBox1.ListIndex, 3))
Heure = CDate(CorrectJour.ListBox1.List(CorrectJour.ListBox1.ListIndex, 4))
'LeClient = CorrectJour.ListBox1.List(CorrectJour.ListBox1.ListIndex, 5)
'Lentite = CorrectJour.ListBox1.List(CorrectJour.ListBox1.ListIndex, 6)
'LePoste = CorrectJour.ListBox1.List(CorrectJour.ListBox1.ListIndex, 7)
'LeService = CorrectJour.ListBox1.List(CorrectJour.ListBox1.ListIndex, 8)
 
LaDate = Format(LaDate, "yyyy-mm-dd") '=============================Format date ACCES date du jour de travail
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Cnt = New ADODB.Connection '..................................................On fixe la variable.....
Set Rst = New ADODB.Recordset '...................................................On fixe la variable.....
Cnt.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & URL_BASE & ";" '......On ouvre la connection à la base.....
'----------Suppression dans la base Affaires_Details----------
MySQL = "DELETE FROM Affaires_Details " & _
"WHERE (Affaires_Details.N°_CO='" & LaCo & "') AND (Affaires_Details.Date_Fab=#" & LaDate & "#) AND (Affaires_Details.Ressources='" & LaRess & "') AND (Affaires_Details.Heure_Saisie=#" & Heure & "#) "
Rst.Open MySQL, Cnt, adOpenStatic
Set Rst = Nothing
'----------Suppression dans la base Paniers----------
'If LaCo = "TG023" Then
    'Set Rst = New ADODB.Recordset '...............................................On fixe la variable.....
    'MySQL = "DELETE FROM Paniers " & _
    '"WHERE (Paniers.Panier_Ress='" & LaRess & "') AND (Paniers.Panier_Date=#" & LaDate & "#) "
    'Rst.Open MySQL, Cnt, adOpenStatic
    'Set Rst = Nothing
'End If
 
Cnt.Close
Set Cnt = Nothing
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

@+ et merci.

05/06/2017, 13h39
Invité
Le type de LaDate est Date, donc la ligne avec LaDate = format(LaDate,...) n'a aucun effet...

Pour que ça fonctionne (peut-être!) , il faut mettre le Format ici :
Code:

1 2 ...AND (Affaires_Details.Date_Fab=#" & Format(LaDate,"yyyy-m-d") & "#)...
05/06/2017, 13h50
LULUCI

Supprimer un enregistrement avec EXCEL VBA

Bonjour Galoir,

Malheureusement cela ne fonctionne pas, de plus dans toutes mes procédures (SQL) il faut absolument que le format Date soit sous forme "yyyy-mm-dd"
cela fonctionne très bien pour les enregistrements ainsi que pour les requêtes de vérifications des journées de travail, il ne me reste plus que les suppressions :(

Faut-il que je précise les champs utilisés après l'instruction "DELETE" ?

@+ merci pour vos conseils...

Ok, je me suis mal fait comprendre...

Il faut écrire :

Code:

1
2
"WHERE (Affaires_Details.N°_CO='" & LaCo & "') AND (Affaires_Details.Date_Fab=#" & Format(LaDate, "yyyy-mm-dd")  & "#) AND (Affaires_Details.Ressources='" & LaRess & "') AND (Affaires_Details.Heure_Saisie=#" & Heure & "#) "

A méditer :

Code:

1
2
3
4
5
6
7
8
9
10
 
Public Function testdate()
Dim LaDate As Date, LaDateTxt As String
LaDate = Date
Debug.Print 1, LaDate
LaDate = Format(LaDate, "yyyy-mm-dd")
Debug.Print 2, LaDate
LaDateTxt = Format(LaDate, "yyyy-mm-dd")
Debug.Print 3, LaDateTxt
End Function

Seul la date n°3 est reconnue dans le SQL...

05/06/2017, 16h41
Invité

de plus pour supprimer il faut partir d'une requete select qui contient les enr. à supprimer puis il faut faire rst.delete pour chaque ligne du select

Tester d'abord sur une table de test car irreversible!
05/06/2017, 17h49
Invité

Le plus simple pour les requetes action est de passer par l'objet connection : Cnt.execute "DELETE..."
05/06/2017, 19h47
LULUCI

Supprimer un enregistrement avec EXCEL VBA

Re bonjour

Merci pour le coup de main, cela semble fonctionné, bien que LaDate soit toujours As Date; j'ai incorporé dans la chaine SQL "...Format(LaDate, "yyyy-mm-dd")..." comme vous me l'avez spécifié et par contre supprimer plus haut
la ligne : LaDate = Format(LaDate, "yyyy-mm-dd").
je vais faire des essais avec : Dim LaDate As String.

@+....:cool:
05/06/2017, 20h29
LULUCI

Supprimer un enregistrement avec EXCEL VBA

Re Bonjour,

Cela fonctionne même avec: Dim LaDate As String ;)

Je suis pointu avec EXCEL mais je fais mes premières armes avec ACCESS, il me semblait qu'il fallait dimensionner la variable en Date pour la requête, dans ma base le champ "Date_Fab" est paramétré en date/Heure
alors pourquoi avec cette requête en "DELETE" il faut une variable de type String en sachant que pour mes autres requêtes en "SELECT" le format Date fonctionne :?

@+...
06/06/2017, 18h42
LULUCI

Supprimer un enregistrement avec EXCEL VBA

Bonsoir Galoir, le Forum,

merci encore une fois, j'ai pu résoudre tous mes soucis avec les requêtes Date et écart de Date, j'avance dans mon projet...

@+ :D
06/06/2017, 20h58
Invité

Concernant les dates dans une clause WHERE, le format date accepté par access est le format US (par défaut) soit m/d/yyyy ou bien encore yyyy/m/d

Donc si on alimente une clause WHERE avec un format d/m/yyyy, Access va considérer les jours comme des mois et les mois comme des jours lorsque l'inversion est possible soit entre le 1er et le 12 de chaque mois. D'où 12 mois x 11 erreurs = 132 erreurs potentielles sur une année de 365 jours (et 232 dates ok !).
Seulement 11 erreurs par mois au lieu de 12 car l'inversion est sans effet néfaste pour le 1/1, le 2/2, ... le 12/12
Pour les autres jours de chaque mois (> au 12ème jours), Access assume que le format est d/m/yyyy et non m/d/yyyy

Bref il faut forcer le format des dates passées en argument d'une clause WHERE en m/d/yyyy ou yyyy/m/d
07/06/2017, 12h59
Invité

1 pièce(s) jointe(s)

bonjour,
pour information sur MySql!

Code:

Affaires_Details.Date_Fab='" & Format(LaDate,"yyyy-mm-dd") & "')

Pièce jointe 283235
07/06/2017, 18h34
LULUCI

Bonjour à tous,

merci pour vos réponses et j'en prends bonne note.
@dysorthographie :
mysql query browser a l'air d'être un bon outils, pensez-vous qu'il me soit utile pour parfaire mes connaissances en SQL?
Quelle version choisir?

Merci Galoir, vous avez été très clair.
@+
07/06/2017, 19h09
Invité

Ma version est un peut vieille et je ne sais pas si elle est d'actualité avec les dernières versions mysql mais tu peux tester!

https://mon-partage.fr/f/tgyHgmIr/
08/06/2017, 06h33
LULUCI

bonjour à tous

Merci beaucoup, fichier téléchargé, je vois cela rapidement.

@++ excel-lente journée :D