Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1429 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°507032
doudouche
Posté le 04-09-2003 à 09:45:06  profilanswer
 

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
mood
Publicité
Posté le 04-09-2003 à 09:45:06  profilanswer
 

n°507047
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 04-09-2003 à 10:01:12  profilanswer
 

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)
n°507065
doudouche
Posté le 04-09-2003 à 10:09:40  profilanswer
 

: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??

n°507073
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 04-09-2003 à 10:19:24  profilanswer
 

- 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
  2. On Error Resume Next
  3. ' on ouvre la base "test.mdb"
  4. Set Db = DBEngine.Workspaces(0).OpenDatabase("test.mdb" )
  5. ' on teste la présence de la table "maTable" dans la base
  6. Test = Db.TableDefs("maTable" ).Name
  7. ' si erreur 3265, alors objet non présent dans la collection, donc pas de table
  8. If Err = 3265 Then
  9.    MsgBox "Table non trouvée"
  10. Else
  11.    MsgBox "Table trouvée"
  12. EndIf
  13. Err = 0
  14. 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)

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Envoi d'un mail avec VBA sous Excel[VBA] Tester si une table existe ...
Erreur : Too many connections[WML] Probleme sur mon site wap Erreur de balise
insertion... erreur contrainte....[Access - VBA] - Question à la con avec la '
[PHP] C quoi cette erreur ? [RESOL][VBA - Access] - Demande d'un petit avis
Plus de sujets relatifs à : [VBA] (ACCESS) "erreur de compilation - attendu Then ou goto " ...


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR