Legen Sie voreingestellte Werte in einer Spalte (access-db)

Wie kann ich für das einfügen eines Standard-Wert in eine Spalte einer Tabelle in Access?
Ich benutze diese Anleitung:

ALTER TABLE Tabella ADD Campo Double DEFAULT 0
ALTER TABLE Tabella ADD Campo Double DEFAULT (0)
ALTER TABLE Tabella ADD Campo DEFAULT 0
ALTER TABLE Tabella ADD Campo DEFAULT (0)
ALTER TABLE Tabella ADD Campo SET DEFAULT 0
ALTER TABLE Tabella ADD Campo SET DEFAULT (0)

aber alle diese Fehler verursachen. Wie kann ich das machen, es auch zu tun?

Was ist der Fehler???

InformationsquelleAutor | 2008-12-09

  1. 2

    Vom MSDN:

    Die DEFAULT-Anweisung ausgeführt werden kann
    nur über den Access-OLE DB
    provider und ADO. Zurück
    Fehlermeldung, wenn die durch den
    Zugriff auf SQL-Ansicht der Benutzeroberfläche.

    Sooo... erzählen Sie uns mehr über das, was Sie tun und wie Sie bei der Ausführung Ihrer SQL?

    Und warum bist du nicht mit den Tabellen-designer?

    InformationsquelleAutor Kieveli

  3. 0

    Du nicht einfügen einen neuen Standardwert, Sie müssen alter das vorhandene.

    Schalten Sie zunächst den Zugang zu einer vernünftigen SQL-Geschmack, wie in der Antwort oben verlinkten, dann kann man sagen:

    alter table Tabella alter column Campo Double DEFAULT 0

    InformationsquelleAutor Tiberiu Ana

  4. 0

    Habe ich diese typischen Access-Funktion, um neue Felder hinzuzufügen, + default-Werte für den Zugriff auf Tabellen:. Das Feld Hinzugefügt wird, wenn es nicht bereits in der Tabelle existiert.

    Public Function addNewField( _
    m_tableName as string, _
    m_fieldName As String, _
    m_fieldType As Long, _      'check syntax of .createField method for values'
    m_fieldLength As Long, _    'check syntax of .createField method for values'
    Optional m_defaultValue As Variant = Null)

Dim myTable As DAO.TableDef
Dim myField As DAO.Field

On Error GoTo addNewField_error

Set myTable = currentDb.TableDefs(m_tableName)
Set myField = myTable.CreateField(m_fieldName, m_fieldType, m_fieldLength)

If Not IsNull(m_defaultValue) Then
    myField.DefaultValue = m_defaultValue
End If

myTable.Fields.Append myField

Set myTable = Nothing
Set myField = Nothing

Exit Function

addNewField_error:
If Err.Number = 3191 Or Err.Number = 3211 Then
    'The field already exists or the table is opened'
    'nothing to do but exit the function'
Else
    debug.print Err.Number & " - " & Error$
End If

End Function

    InformationsquelleAutor Philippe Grondier

Schreibe einen Kommentar