[VBA] (ACCESS) "erreur de compilation - attendu Then ou goto " ...

"erreur de compilation - attendu Then ou goto " ... [VBA] (ACCESS) - VB/VBA/VBS - Programmation

Marsh Posté le 04-09-2003 à 09:45:06    

salut :hello:  
je vois pas pourquoi y prend pas ca ...  :??:  
 
if docmd.CopyObject "suivi_production_sav" , acTable, "suivi_production" = false then
DoCmd.CopyObject , "suivi_production", acTable, "suivi_production_sav"
 
il me di "erreur de compilation - attendu Then ou goto " et surligne ce qui est en gras (et bleu) sinon je suis pas sur du false mais cette erreur vien pas de la ... (je pense :sweat: )  
 
Merci d'avance pour votre aide... :jap:


Message édité par doudouche le 08-09-2003 à 11:17:11
Reply

Marsh Posté le 04-09-2003 à 09:45:06   

Reply

Marsh Posté le 04-09-2003 à 10:01:12    

Change le titre de ton topic stp, il est pas très explicite.
Quant à ton problème, depuis quand CopyObject est sensé renvoyer un booléen ?


---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Marsh Posté le 04-09-2003 à 10:09:40    

:sweat: desole je suis plutot nul en vba et je me disais simplement que lorsque la copie se faisait correctement il renvoyait '0' et sinon '-1' enfin voila desole
 
Toi qui a l air de bien metriser :sarcastic: tu ne saurais pas comment tester si une table existe sous Access??

Reply

Marsh Posté le 04-09-2003 à 10:19:24    

- Tu ouvres ta base avec OpenDatabase, et tu récupères un objet db
- Dans cet objet db, tu testes si ta table appartient à la collection de tables de ton objet db
 
Exemple :
 

Code :
  1. Dim Test as String
  3. On Error Resume Next
  5. ' on ouvre la base "test.mdb"
  6. Set Db = DBEngine.Workspaces(0).OpenDatabase("test.mdb" )
  8. ' on teste la présence de la table "maTable" dans la base
  9. Test = Db.TableDefs("maTable" ).Name
  11. ' si erreur 3265, alors objet non présent dans la collection, donc pas de table
  12. If Err = 3265 Then
  13.    MsgBox "Table non trouvée"
  14. Else
  15.    MsgBox "Table trouvée"
  16. EndIf
  18. Err = 0
  19. db.Close


 
edit: oubli du endif


Message édité par Harkonnen le 04-09-2003 à 10:23:32

---------------
J'ai un string dans l'array (Paris Hilton)
Reply

Sujets relatifs:

Leave a Replay

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