Discussion :

[noob_vba]

Bonjour j'ai une petite procedure stockée mais celle ci ne fonctionne pas et je ne sais pas d'ou cela vient j'ai essayer d'analyser les parties une par une comme le create table tous sa fonction mais le soucis a mon avis vient du IF EXISTcar si la table existe il ne me la supprime pas

Si vous avez une idée je suis partant.

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DROP PROCEDURE CREATION_TRAIT_MODULE_REMARQUES_LOCALE
 
 
CREATE PROCEDURE CREATION_TRAIT_MODULE_REMARQUES_LOCALE
AS
If exists (select * from TRAIT_Module_Remarques_locale)
begin
DROP TABLE TRAIT_Module_Remarques_locale
ELSE
CREATE TABLE [TRAIT_Module_Remarques_locale] (
	[Id_Module] [int] PRIMARY KEY NOT NULL ,
	[pos_module] [int] NOT NULL ,
	[nom_module] [varchar] (100) NOT NULL ,
	[Description_Module] [varchar] (255) NOT NULL ,
	[Module_lance] [varchar] (100) NULL ,
	[valeur_module] [int] NULL)

[noob_vba]

Oui mon Problème vient bien du

If exists (select * from TRAIT_Module_Remarques_locale)
begin
DROP TABLE TRAIT_Module_Remarques_locale

Je voudrait lui dire que si la table existe il la supprime mais voila cela ne fonctionne pas je suppose que mon code n'est pas bon.

Merci

[ben_skywalker]

en effet j'ai essayer chez moi le if exsits mais il me dit que sa n'existe pas tu travail avec quel version d'access?

ajoute toute en haut de ta page vba

option explicit pour avoir quelque message d'erreur bien pratique...

[ben_skywalker]

essayes en VBA

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim Rs as recordset
Dim Sql As String
Dim db as database
 
Set Db = CurrentDb
 
SQL = "Select * from TRAIT_Module_Remarques_locale"
 
Set Rs = Db.OpenRecordset(SQL)
 
IF not(RS.EOF) then
 
docmd.runsql(DROP TABLE TRAIT_Module_Remarques_locale)
docmd.runsql(CREATE TABLE [TRAIT_Module_Remarques_locale] (
	[Id_Module] [int] PRIMARY KEY NOT NULL ,
	[pos_module] [int] NOT NULL ,
	[nom_module] [varchar] (100) NOT NULL ,
	[Description_Module] [varchar] (255) NOT NULL ,
	[Module_lance] [varchar] (100) NULL ,
	[valeur_module] [int] NULL))

pas sur que sa marche mais je pense que sa vaut le coup

si c en SQL serveur tu pouras pitètre pas alors

[stéphane_ais2]

Bonjour,

Je préfère utiliser VBA pour tester l'existence d'un objet...

Sans compter que comme le dit ben_skywalker la méthode Exists ne s'applique pas dans ce contexte...

SE

[noob_vba]

JE travail pas dans access mais dans SQL SERVEUR Pardon

[noob_vba]

Voici la Solution

Comme ma table etait vide il ne la trouvais pas
j'ai pris SQl entreprise manager et jai generer un script juste pour le DROP et cela ma donnée cela :

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[TRAIT_Module_Remarques_locale]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[TRAIT_Module_Remarques_locale]
GO

Voila Merci a toi
@ ++ Post RESOLU