Hi,
if you get this error message - the record is found. The problem that while
editing one record you trying to update it once again via code. You have to
save it first.
--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com
"Fluit" <(E-Mail Removed)> wrote in message
news:0d5ef637-ff92-4a64-ab97-(E-Mail Removed)...
I tried so, but no succes.
I don't understand why the record can't been found, no changes are
made?
On 9 jul, 17:57, "Alex Dybenko" <alex...@PLEASE.cemi.NO.rssi.SPAM.ru>
wrote:
> Hi,
> Try to save record before running this code:
> me.dirty=false
>
> --
> Best regards,
> ___________
> Alex Dybenko (MVP)http://accessblog.nethttp://www.PointLtd.com
>
> "Fluit" <PDr...@gmail.com> wrote in message
>
> news:918db09d-3aad-4898-9ba9-(E-Mail Removed)...
>
> > After updating a the textbox I want to seach a value of fldOpmerkingeN
> > in the recordset. Therefore I use the following code:
>
> > Private Sub txtOpmNotulen_AfterUpdate()
>
> > Const strToevoegsel As String = "_(F)"
>
> > Dim strLinkCriteria As String
>
> > If Taalkeuze = "N" Then
> > strLinkCriteria = "fldOpmerkingenN like " & """" &
> > Me.txtOpmNotulen & """" & " AND Not (fldOpmerkingenF like " & """" &
> > "*" & strToevoegsel & """" & ")"
> > With Me.RecordsetClone
> > .FindFirst strLinkCriteria
> > If .NoMatch Then
> > Exit Sub
> > Else
> > If Not ((!fldOpmerkingF = Me.fldOpmerkingenF) And ((!
> > fldOpmerkingF Like "") Or IsNull(!fldOpmerkingF))) Then
> > Me.fldOpmerkingenF = !fldOpmerkingenF
> > Else
> > Me.fldOpmerkingenF = !fldOpmerkingenN & strToevoegsel
> > End If
> > End If
> > End With
> > Else
> > End If
> > End Sub
>
> > At .FindFirst a message appears
> > "The Microsoft Jet database engine stopped the process because you and
> > another user are tempting to change the same data at the same time."
>
> > I thought that using recordsetclone these problems are avoided?
>
> > Someone a solution?
Similar Threads
