Я открываю форму с помощью следующей команды:
DoCmd.OpenForm strOpenForm, , , "project = '" & gr_nr & "'", datamode:=acFormEdit
Форма открывается и показывает данные.Когда я изменяю данные и пытаюсь сохранить, я получаю конфликт записи о том, что запись была изменена другим пользователем.Когда я добавляю новую запись, у меня нет проблем с добавлением этой записи.
Функция в форме, которая открывает другую форму:
Private Function KlantClick()
Dim strVeld As String
Select Case VBA.Environ("USERNAME")
Case "Zaag1"
strOpenForm = "Zaag1"
Case "Zaag2"
strOpenForm = "Zaag2"
Case "anne.vanwesepoel"
strOpenForm = "Zaag1"
Case Else
MsgBox "Schermen enkel toegankelijk voor de zaagmachines"
End Select
If Not IsNull(DLookup("project", "dbo_afwerk", "Project = '" & gr_nr & "'")) Then
DoCmd.OpenForm strOpenForm, , , "project = '" & gr_nr & "' and volgnr = 1 and locatie = 'Zaag1'", datamode:=acFormEdit
Else
DoCmd.OpenForm strOpenForm, datamode:=acFormAdd
End If
End Function
Мне нужно иметь возможность изменять данныеформа.