Verifier la présence d'un champs (vba) Fermé

Question

Bonjour,   

J'aimerai vérifier la présence d'un champ Date_vis de la table année qui est unique,  
si il existe je passe a la procédure suivante sinon il faut que j'ajoute la date à la table,  
ce code me donne une erreur sur la ligne  
 "Set rsa = db.OpenRecordset(SQL)" il est dit type de donnée incompatible dans l'expression du critère, j'ai beau chercher , je ne trouve pas ce qui cloche, sauriez vous m'aider ? merci   

ci-dessous un bout de mon code :   

    Set rsdata = db.OpenRecordset("annee")  
      
Dim SQL As String  
Dim rsa As Recordset  
SQL = "SELECT * FROM Annee WHERE Date_vis='" & Me.calendrier & "';"  
Set rsa = db.OpenRecordset(SQL)  
If (rsa.EOF) Then  
   'ajouter mes donnée  

 rsdata.AddNew  
 rsdata!Date_vis = Forms!MENUVISITE!calendrier  
 rsdata.Update  
 rsdata.Close  

Else  
   'rien faire  
End If  
     


Configuration: Windows 7 / Safari 535.7

moiced59 · Answer

Bonjour

l'erreur est ici :

SQL = "SELECT * FROM Annee WHERE Date_vis='" & Me.calendrier & "';" 

en


SQL = "SELECT * FROM Annee WHERE Date_vis=#" & Me.calendrier & "#;"

blux · Answer

Salut,

plutôt que de lancer une requête pour ça, tu peux utiliser la fonction dlookup. Elle est bien plus rapide.

max59850 · Answer

Merci moiced59 pour la solution et d'avoir pris le temps de voir l'erreur, cela dit je ne connais pas cette histoire de dièses ^^   

blux, je suis en Bac+2 et notre prof nous laisse un peut nous dépatouiller si j'ose dire donc je ne connaissait pas cette fonction, c'est sympa, peut-être elle me servira plus tard ;)

Verifier la présence d'un champs (vba)

3 réponses

Discussions similaires