[AC-2000] Probleme de syntaxe et erreur 3021 [Résolu]

[Tydher]

Re bonjour à tous,

Dans mon code VBA, j'effectue plusieurs requetes SQL :

Code :

1
2
3
IdEqTrouve = ("SELECT PPHistory.PPDate FROM PPHistory, MLS, LinkEqptBatchPPMLS, EquipmentBatch, Equipment where Equipment.IDEQUIPMENT = EquipmentBatch.IDEQUIPMENT and EquipmentBatch.IDEQUIPMENTBATCH = LinkEqptBatchPDPMLS.IDEQUIPMENTBATCH and LinkEqptBatchPDPMLS.IDMLS = MLS.IDMLS and MLS.PP = PPHistory.IDPPHISTORY and Equipment.IDEQUIPMENT = '" & IdEq & "'")
Set IdETrouve = CurrentDb.OpenRecordset(IdEqTrouve)
PDPDateTrouve = IdETrouve.Fields("PDPDate").Value

Dans ce premier morceau, j'ai une erreur sur la derniere ligne :
Aucun enregistrement en cours, alors que j'ai bien in IdEq valide


Ensuite lors de requete de mise à jour :

Code :

1
2
3
MAJDate = ("Update PPHistory Set PPDate = '" & Cells(i, PPDate) & "' from ((((Equipment INNER JOIN EquipmentBatch ON Equipment.IDEQUIPMENT = EquipmentBatch.IDEQUIPMENT) INNER JOIN LinkEqptBatchPDPMLS ON EquipmentBatch.IDEQUIPMENTBATCH = LinkEqptBatchPDPMLS.IDEQUIMENTBATCH) INNER JOIN MLS ON LinkEqptBatchPDPMLS.IDMLS = MLS.IDMLS) INNER JOIN PPHistory ON MLS.PDP = PPHistory.IDPPHistory) where Equipment.IDEQUIPMENT = '" & IdEq & "'")
 
DoCmd.RunSQL (MAJDate)

J'ai une erreur de syntaxe avec un opérateur absent. Je ne vois pas où est le probleme.
Le champ à mettre à jour et du type texte et ma cellule contient bien une valeur

Merci d'avance !

[Tydher]

J'ai réussi à résoudre le premier probleme. Aucun enregistrement correspondait donc forcement j'avais cette erreur.
J'ai rajouté une condition If avant la requete.

Cependant j'ai toujours une erreur de syntaxe pour la deuxieme requete !

[Tydher]

Bon beh je me suis débrouillé autrement

Code :

1
2
3
4
5
6
7
Set IdETrouve = CurrentDb.OpenRecordset(IdEqTrouve)
PPDateTrouve = IdETrouve.Fields("PPDate").Value
IDPPDateTrouve = IdETrouve.Fields("IDPPHISTORY").Value
IDMLSTrouve = IdETrouve.Fields("IDMLS").Value
If PPDateTrouve <> Cells(i, PPDate) Then
MAJDate = ("Update PPHistory Set PPDate = '" & Cells(i, PPDate) & "' where IDPPHISTORY = " & IDPPDateTrouve & "")
DoCmd.RunSQL (MAJDate)