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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] (ACCESS) "erreur de compilation - attendu Then ou goto " ...

doudouche

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

Publicité

Harkonnen

Modérateur
Un modo pour les bannir tous

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)

doudouche

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

Harkonnen

Modérateur
Un modo pour les bannir tous

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

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

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 " ...

Page générée en 0.036 secondes