Recordset et Opendatabse

Recordset et Opendatabse - VB/VBA/VBS - Programmation

Marsh Posté le 10-08-2005 à 12:54:17    

Bonjour,
 
je vous explique mon problème.  
J'ai deux bases de données BD1 et BD2.  
Dans BD1, j'ai la table ACTIVITE, ENREGISTREMENT QUALITE et ENREGISTREMENT DEFAUT.
Dans BD2, j'ai la table ORDRE FABRICATION.
 
J'ai ce code dans BD1 :  
 

Code :
  1. Set rstBDD = CurrentDb.OpenRecordset("SELECT [ACTIVITE].[CHEMIN BDD ACTIVITE] FROM [ACTIVITE] Where [ACTIVITE].[ACTIVITE] =     '" & Me.TYPE_ACTIVITE_1 & "' " )
  2.                
  3.                 Set rstNouveauRQ = CurrentDb.OpenRecordset("SELECT * FROM [ENREGISTREMENT QUALITE] INNER JOIN [ENREGISTREMENT DEFAUT] ON [ENREGISTREMENT QUALITE].[N° ENREGISTREMENT] = [ENREGISTREMENT DEFAUT].[ID ENREGISTREMENT QUALITE]" )
  4.          
  5.                 Set Db = OpenDatabase(rstBDD("CHEMIN BDD ACTIVITE" ))
  6.                
  7.                 Set rstEssai = Db.OpenRecordset("SELECT * FROM [ENREGISTREMENT QUALITE] INNER JOIN [ORDRE_FABRICATION]ON [ENREGISTREMENT QUALITE].[PNI]=[ORDRE_FABRICATION].[PNI] Where[ORDRE_FABRICATION].[PNI]= '" & Me.PNI & "'" )


 
J'ai une erreur pour rstEssai "Microsoft Jet ne reconnait pas ENREGISTREMENT QUALITE".  
Ce qui semble logique car il regarde dans la base rstBDD. Mais comment lui dire que ENREGISTREMENT QUALITE se trouve dans la base courante????

Reply

Marsh Posté le 10-08-2005 à 12:54:17   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed