[access]wat is er fout

Pagina: 1
Acties:

Acties:
  • 0 Henk 'm!

Anoniem: 64011

Topicstarter
Hallo

Ik heb om een variabel tabel te verwijderen met een formulier de volgende code :
code:
1
2
3
4
5
6
7
8
9
10
Private Sub Knop_Click()
Dim strTabel As String
strTabel = vak.Value

Const DELTABLE_SQL = "DROP TABLE " & strTabel & ";"
Dim DB As DAO.Database
Set DB = Application.CurrentDb
DB.Execute DELTABLE_SQL

End Sub

Maar deze werkt niet, en ik snap niet wat ik fout doe, als je een variabele tabel gebruikt geef je dat toch op deze manier aan.

Acties:
  • 0 Henk 'm!

  • Crazy D
  • Registratie: Augustus 2000
  • Laatst online: 08-07 19:25

Crazy D

I think we should take a look.

"werkt niet". Geeft het beestje nog een errormelding?
Overigens is een const een constante, en die kun je dus niet dynamisch opbouwen, dat is nl. niet constant :)
Even aanpassen naar
Dim DELTABLE_SQL as String
DELTABLE_SQL = "drop table...."

Exact expert nodig?


Acties:
  • 0 Henk 'm!

Anoniem: 64011

Topicstarter
Crazy_D schreef op 27 september 2002 @ 10:23:
"werkt niet". Geeft het beestje nog een errormelding?
Overigens is een const een constante, en die kun je dus niet dynamisch opbouwen, dat is nl. niet constant :)
Even aanpassen naar
Dim DELTABLE_SQL as String
DELTABLE_SQL = "drop table...."
Ik ben er ook achtergekomen waar in zat en ook achtergekomen dat de code :
code:
1
CurrentDb.Execute "DROP TABLE " & vak.Value & ";"

het wel doet