AccessFE bei mir geht - mit meiner MSSQL_DB
gleiche AccessFE bei mir geht nicht - mit Kunden MSSQL_DB
gleiche AccessFE Decompeliert geht - mit meiner MSSQL_DB - aber immer noch nicht mit Kunden MSSQL_DB
AccessFE in neue AccessFE Importiert geht nicht mehr - mit meiner MSSQL_DB
obwohl jetzt nach vielem testen funktioniert das LastModified bei "einfachem tun"
Dim RSN As DAO.Recordset
Set RSN = CurrentDb.OpenRecordset("tblArtikel", dbOpenDynaset, dbSeeChanges)
RSN.AddNew
RSN!Zeile1 = "test"
RSN.Update
RSN.Bookmark = RSN.LastModified
MsgBox RSN!ArtikelNummer
RSN.Close
Set RSN = Nothing
nachfolgend geht nicht mehr - aber nicht nur der sondern anderen funktionen mit anderen tabellen auch nicht
Dim fld As DAO.Field
Dim SDA As DAO.Recordset
Dim RSN As DAO.Recordset
Dim NeueArtikelNummer As Long
Set SDA = CurrentDB.OpenRecordset("SELECT tblArtikel.* FROM tblArtikel WHERE tblArtikel.ArtikelNummer= " & ArtikelNummer, dbOpenSnapshot)
Set RSN = CurrentDB.OpenRecordset("tblArtikel", dbOpenDynaset, dbSeeChanges)
If Not SDA.EOF Then
RSN.AddNew
For Each fld In SDA.Fields
If fld.Name <> "ArtikelNummer" And fld.Name <> "CSRTimestamp" Then RSN(fld.Name) = fld.Value
Next
RSN.Update
End If
RSN.Bookmark = RSN.LastModified
NeueArtikelNummer = RSN!ArtikelNummer
SDA.Close
RSN.Close
Set SDA = Nothing
Set RSN = Nothing
