La suppression des données d'Accès avec VBA

Je suis en train de supprimer tous les enregistrements de ma base de données Access en VBA où OTP = txtOTP.value et VARIABLE = {NomAdminContrats,TelAdminContrats,TelecAdminContrats, [...]}

Voici mon code:

Dim query As Recordset 
Set query = CurrentDb.Execute("DELETE * FROM tb_SOMMAIRE WHERE OTP = '" & txtOTP.value & "' AND (VARIABLE = 'NomAdminContrats' or VARIABLE = 'TitreAdminContrats' or VARIABLE = 'UnitAdminContrats' or VARIABLE = 'AdrAdminContrats' or  VARIABLE = 'VilleAdminContrats' or VARIABLE = 'TelAdminContrats' or VARIABLE = 'TelecAdminContrats' or VARIABLE = 'CourrielAdminContrats')")

J'ai eu une erreur 3219 Opération non Valide lorsque vous essayez avec OpenRecordset ou la fonction Prévue lorsque vous essayez à Exécuter. J'en ai essayé beaucoup de choses mais je n'ai pas réussi encore à obtenir cette requête travail. J'ai aussi l'intégralité de la table dans un jeu d'enregistrements, serait-il plus facile/rapide à faire avec myRecordset.Les supprimer? Si oui, comment pourrais-je le faire?

MODIFIER

Maintenant essayer avec CurrentDb.Exécuter au lieu de CurrentDb.OpenRecordset. L'erreur est maintenant Fonction devrait au lieu de Opération non Valide.

  • Ne devrait-elle pas être CurrentDb.Execute, pour un DELETE déclaration?...
  • Il ne fonctionne pas non plus avec la parenthèse (CurrentDb.Execute()) j'obtiens une erreur "Fonction attendue" et sans la parenthèse j'obtiens une erreur de syntaxe.
  • Enfin réussi à le faire fonctionner, je vous remercie. Je vais poster la version finale du code ci-dessous.
InformationsquelleAutor dnLL | 2012-10-09
  1. 3

    Vous n'étiez pas censé utiliser des parenthèses pour le recordset.execute fonction, sauf si vous voulez envoyer le execute fonction options, ainsi que votre requête. 

    currentDB.Execute ("SQL EXECUTABLE QUERY", Options)

    options est une option constante que vous pouvez inclure dans la fonction, comme dbDenyWrite, ou dbFailOnError. lorsque vous n'incluez pas options dans votre fonction execute, Microsoft utilise la valeur par défaut dbInconsistent, et vous ne devriez pas utiliser des parenthèses. 

    Set query = CurrentDb.Execute "DELETE * FROM tb_SOMMAIRE..."

    La raison que votre code a travaillé lorsque vous avez utilisé la variable sql est parce que vous n'avez pas utiliser la parenthèse lorsque vous avez utilisé la variable.

    • Depuis cette réponse est plus précise que ma solution, je vais définir ce que l'on a accepté la réponse. Cependant, à ce stade, le titre est un peu trompeur car ce n'est pas un problème avec une fonction spécifique dans VBA, mais plus d'un problème de syntaxe de ma part. N'importe qui peut se sentir libre de modifier. Merci, même si c'est plus de 3 ans lol.
    InformationsquelleAutor MJH
  2. 3

    Vous avez déjà résolu le problème. Félicitations. Voir si une approche différente pour votre WHERE clause est plus facile de travailler avec.

    La WHERE clause vérifie si VARIABLE correspond à une liste de valeurs. Au lieu d'utiliser plusieurs OR conditions à comparer VARIABLE avec chaque membre de la liste, vous pouvez simplement demander le moteur db si VARIABLE est présent IN la liste de valeurs.

    AND
    (
        [VARIABLE] IN
            (
                'NomAdminContrats',
                'TitreAdminContrats',
                'UnitAdminContrats',
                'AdrAdminContrats',
                'VilleAdminContrats',
                'TelAdminContrats',
                'TelecAdminContrats',
                'CourrielAdminContrats'
            )
    )
    • Merci beaucoup, il va l'aider.
    InformationsquelleAutor HansUp
  3. 0

    Enfin réussi à le faire fonctionner. Dû déclarer une autre var de la requête pour une raison quelconque.

    Dim sql as String
sql = "DELETE * FROM tb_SOMMAIRE WHERE OTP = '" & txtOTP.value & "' AND (VARIABLE = 'NomAdminContrats' or VARIABLE = 'TitreAdminContrats' or VARIABLE = 'UnitAdminContrats' or VARIABLE = 'AdrAdminContrats' or  VARIABLE = 'VilleAdminContrats' or VARIABLE = 'TelAdminContrats' or VARIABLE = 'TelecAdminContrats' or VARIABLE = 'CourrielAdminContrats')"
CurrentDb.Execute sql
    InformationsquelleAutor dnLL