VBA-add neuen Datensatz in die Tabelle in Access

Ich habe eine (verknüpfte) Tabelle, die [Verkehr] mit einem Feld namens [Log]

Ich habe eine variable IO, die "ich" - oder "O".

Der einzige Zweck dieser Funktion ist es, einen neuen Datensatz hinzufügen/Zeile in Tabelle [Verkehr] in der Spalte [Log], die mit einer Zeichenfolge: einen Datumsstempel, kombiniert mit einem "I" oder ein "O" jedes mal, wenn ein Formular geladen/entladen.

Ich versuche eine Funktion erstellen, die in Ms Access 2010-ohne Erfolg (Fehlermeldung: "Objekt Erforderlich").

Jede Hilfe wird sehr geschätzt.

Public Function AppendTxt(IO As String)
Dim sText As String
Dim sTableName As String
Dim col As Integer
Dim lLastRow As Long
Dim iHeader As Integer

sTableName = "Traffic"
sText = Format$(Now, "yyyy\-mm\-dd hhnn") & IO
col = 0

 With ActiveSheet.ListObjects(sTableName)
    'find the last row of the list
    lLastRow = ActiveSheet.ListObjects(sTableName).ListRows.Count
    'shift from an extra row if list has header
    If .Sort.Header = xlYes Then
        iHeader = 1
    Else
        iHeader = 0
    End If
End With
'add the data a row after the end of the list
ActiveSheet.Cells(lLastRow + 1 + iHeader, col).Value = sText

End Function
  • Sie haben gepostet-code von EXCEL, nicht ACCESS
  • An welchem Punkt ist das hinzufügen von Daten zu Zugreifen?? Ich kann nicht erkennen, dass.
InformationsquelleAutor Xavier | 2014-08-28
Schreibe einen Kommentar