[Tasos]

Αγαπητέ Γιάννη Σιγουρέψου ότι μπορείς να ανοίξεις και να δημιουργήσεις νέα εγγραφή στον συνδεμένο πίνακα "tböLogs".

Αν δεν μπορείς να προσθέσεις εγγραφή τότε θα πρέπει να τροποποιήσεις τον πίνακα σου στον Server σύμφωνα με το παρακάτω ερώτημα SQL :

USE [ms-office.gr] /*Προσάρμοσε το όνομα της βάσης*/
GO

SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TABLE [user].[tblLog](
	[logID] [int] IDENTITY(1,1) NOT NULL,
	[CloseDateTime] [datetime2](0) NULL,
	[OpenDateTime] [datetime2](0) NULL,
	[DocName] [nvarchar](50) NULL,
	[ComputerName] [nvarchar](50) NULL,
	[WinUser] [nvarchar](50) NULL,
	[AppUser] [nvarchar](50) NULL,
 CONSTRAINT [tblLog$PrimaryKey] PRIMARY KEY CLUSTERED 
(
	[logID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, 
ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO

Κατόπιν δοκίμασε τον παρακάτω κώδικα:

Function LogAction(obj As Object, Optional LastID As Long)
    With CurrentDb.OpenRecordset("tblLog", dbOpenDynaset, dbSeeChanges)
        If LastID Then
            LastID = IIf(obj.Tag <> vbNullString, obj.Tag, -1)
            obj.Tag = vbNullString
            .MoveFirst
            .FindFirst "LogID = " & LastID
            If Not .NoMatch Then
                .Edit
                .Fields("CloseDateTime") = Format(Now, "yyyy-MM-dd hh:mm:ss")
            End If
        Else
            .AddNew
            LastID = Nz(.Fields("LogID"), 0)
            obj.Tag = LastID
            .Fields("OpenDateTime") = Format(Now, "yyyy-MM-dd hh:mm:ss")
            .Fields("DocName") = obj.Name
            .Fields("ComputerName") = Environ("COMPUTERNAME")
            .Fields("WinUser") = Environ("USERNAME")
            .Fields("AppUser") = App_User
        End If
        .Update
        .Close
    End With
End Function

Καλή συνέχεια!

Τάσος