When the application starts up, it refreshes link to backend like:
Expand|Select|Wrap|Line Numbers
- ConnectStr = "ODBC;dsn=rd_venteliste;UID=xxx;PWD=yyy;DATABASE=Venteliste"
- For Each t In CurrentDb.TableDefs
- If t.SourceTableName <> "" Then
- t.Connect = ConnectStr
- t.RefreshLink
- End If
- Next
Expand|Select|Wrap|Line Numbers
- dim rs as dao.recordset
- strSql = "SELECT * FROM Elev WHERE ElevID = " & OpenArgs
- Set rs = CurrentDb.OpenRecordset(strSql, dbOpenSnapshot, dbSeeChanges)
- Me.ElevID = rs.Fields!ElevID
- Me.FamilyID = rs.Fields!FamilyID
- .....
- Me.AfgivendeSkole = rs.Fields!AfgivendeSkole
- Me.Bemarkning = rs.Fields!Bemarkning
- rs.Close
Expand|Select|Wrap|Line Numbers
- CurrentDb.Execute ("INSERT INTO Family " & _
- " (Far, Mor) " & _
- " VALUES('" & Me.Far & _
- "', '" & Me.Mor & "')")
Expand|Select|Wrap|Line Numbers
- currentdb.update ("UPDATE Elev" & _
- " SET FamilyID = '" & Me.FamilyID & _
- "', ElevFornavn = '" & Me.ElevFornavn & _
- "', ElevEfternavn = '" & Me.ElevEfternavn & _
- ...
- "', Bemarkning = '" & Me.Bemarkning & _
- "', Status = '" & Me.Status & _
- "' WHERE ElevID = '" & Me.ElevID & "'")
"You must use option dbSeeChanges with OpenRecordSet at access to a SQL-Server-table, which has an Identity-Column"
When I try something like this:
Expand|Select|Wrap|Line Numbers
- currentdb.update ("UPDATE Elev" & _
- " SET FamilyID = '" & Me.FamilyID & _
- "', ElevFornavn = '" & Me.ElevFornavn & _
- "', ElevEfternavn = '" & Me.ElevEfternavn & _
- ...
- "', Bemarkning = '" & Me.Bemarkning & _
- "', Status = '" & Me.Status & _
- "' WHERE ElevID = '" & Me.ElevID & "'", dbSeeChanges)
Can anyone explain - please ?
ravno