SQL spørgsmål

Hej Eksperter

Nedestående kode tilføjer et felt i en database. Hvis nu jeg har et eksisternde felt text og vil rette det til et memo felt.

Kan det lade sig gøre?


Private Sub Command43_Click()
Dim dbs As Database

On Error GoTo Err_msg

Set dbs = OpenDatabase("c:\company shared folders\ShipToolDATA.mdb")


dbs.Execute "Alter table [Garanti Claim] add  AttachedList text"
dbs.Execute "Alter table [Off-On Hire Statement] add  ReasonForOfOnHire text"


Sub_exit:
    On Error Resume Next
   
    Set dbs = Nothing

MsgBox "New field added to ShipTool. After update open ShipTool and go to the setup form and fill in missing data.", vbInformation, "Update of ShipToolDATA completed "


    Exit Sub
   
Err_msg:

    If Err.Number = 3380 Then
        'MsgBox "The field already exists, please press OK until you see 'Update of ShipToolDATA completed box' "
        Resume Next

    End If
   

End Sub