Bonjour a tous developpeur(ze)s,

Je suis actuellement débutant de mon état en Vbscript , pour tout vous dire c'est même mon premier script !!
Bien évidemment j'apprends pas à pas comment ça fonctionne, et je viens de tomber sur une erreur qui a priori est minime mais je suis incapable de la résoudre et d'ailleurs je ne vois pas en quoi c'est une erreur ...
Si quelqu'un peut m'aider voici le script

====>

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 Private Sub access_url ()
 
	Dim check as Boolean
	Dim db as Database
	Public sql as String    
   	Dim enregistrements as Recordset    
 
 
	Set db = OpenDatabase(App.Path & "\ma base.mdb")
 
 
                    Set enregistrements = db.OpenRecordset(sql, dbOpenSnapshot)
		     sql="Create trigger A-url
			 After insert ON settings_current
			 For each Row
			 Begin
			 Alter table settings_current 
			 (ADD access_url int(10) unsigned);
			 commit;
			 end;
			 "
 
 
	   End
 
 
	   Private Sub access_url_changeable()
 
 
			Set db = OpenDatabase(App.Path & "\ma base.mdb")
 
 
                    Set enregistrements = db.OpenRecordset(sql, dbOpenSnapshot)
		     sql="Create trigger A-url
			 After insert ON settings_current
			 For each Row
			 Begin
			 Alter table settings_current 
			 (ADD access_url_changeable int(10) unsigned);
			 commit;
			 end;
			 "
 
 
	   End
PS : Le problème est que j'ai une fenêtre qui s'affiche à l'exe avec marqué : " fin d'instruction inattendue" , qui concerne la ligne où j'ai déclarer le booléen , si quelqu'un peut m'help...

Merci d'avance a tout le monde