Accéder à la comparaison de chaînes de jeu d'enregistrements VBA ne fonctionne pas avec des caractères génériques

Question

J'ai beaucoup d'expérience avec VBA dans Excel mais très peu d'expérience avec VBA dans Access 2010. J'essaie de supprimer des enregistrements d'un jeu d'enregistrements où l'un des champs se termine par "_X ". Lorsque j'utilise un caractère générique, la comparaison échoue. Lorsque j'utilise une chaîne spécifique, la comparaison fonctionne comme prévu. Voici le code que j'utilise.

Dim db As Database: Set db = CurrentDb 
Dim tbl As Recordset: Set tbl = db.OpenRecordset("WRITEON") 
With tbl 
    Do Until .EOF 
     If ![ACOD] = "*_X" Then '"$ICP_X" works 
      Debug.Print ![ACOD] 'For testing 
      '.Delete 
     End If 
    .MoveNext 
    Loop 
End With 
tbl.Close 

Answer 1

Utilisation Like au lieu de = lorsque vous comparez une valeur de texte à un modèle.

If ![ACOD] Like "*_X" Then 
    Debug.Print ![ACOD] 
End If 

Cela devrait faire ce que vous voulez, mais je ne suis pas sûr d'évaluer chaque enregistrement dans un jeu d'enregistrements pour supprimer les matches est la meilleure façon. Vous pouvez obtenir le même résultat en exécutant une requête DELETE qui utilise le même modèle pour identifier les lignes à supprimer.

DELETE FROM WRITEON 
WHERE [ACOD] Like "*_X";