Na konci máte "1")", čo znamená pre kompilátor, že pred 1 sa končí reťazec, a potom neexistujúce kľúčové slovo 1 a tak ďalší reťazec. Skúste toto:
Sub delete()
CurrentDb.Execute "DELETE * FROM[NazevTabulky]
WHERE [NazevTabulky] <> InStr (1, [Function], ""1"")"
End Sub
Zdvojené úvodzovky uprostred reťazca znamenajú úvodzovky, normálne úvodzovky(nezdvojené) koniec reťazca.
|