[anestaki]

Καλησπέρα σε όλους
Συνεχίζω να κανό λάθος
Ενώ διαγράφω από των πινάκα δεν μπορώ από το ερώτημα.

Dim del As String
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
    Set dbs = CurrentDb
    Set qdf = dbs.QueryDefs("MenuNodesQuery")
    strSQL = qdf.Fields.Delete(Me.txtInt2)
  DoCmd.RunSQL strSQL
  del = "ALTER TABLE [MenuNodes] DROP COLUMN [" & Me.txtInt2 & "]"
  DoCmd.RunSQL del