Creazione campo testo lungo

Question

Caso: da FE aggiungo un campo ad una tabella del BE con il codice:

Dim strSql As String

Dim dbs    As DAO.Database

strSql = "alter table Anime add column SEGRETO text;"

Set dbs = DBEngine(0).OpenDatabase(Name:=CurrentProject.Path & "\Dati.accdb", options:=-1, ReadOnly:=0)

With dbs

.Execute Query:=strSql, options:=&H80

VBA.MsgBox prompt:="Ho aggiunto il campo SEGRETO nella tabella Anagrafica", Buttons:=vbInformation, Title:="Info"

.Close

End With

il campo creato è BREVE. Posso crearlo direttamente LUNGOo devo modificarlo successivamente?

Se devo modificarlo successivamente, uso il codice:

DB.Execute "ALTER TABLE Anagrafica ALTER COLUMN SEGRETO TEXT(LONG)"  ???

Grazie, Francesco

Answer 1

strSql = "alter table tblTurno add column prova longtext;"