strange issue with Run-time error "3188"

[Jingru]

Dear all,



I am using access 2013 and windows 10. I have a strange issue with Run-time error "3188". I have check me.dirty=false.
you can find the code follwoing(bug part is marked with amber):


Private Sub bSave_Click()
Dim dbsCurrent As DAO.Database
Dim rstATS As DAO.recordset
Dim strQuery As String
Dim CurrentID As Integer
Dim CAcurrent As String

CurrentID = Me.OpenArgs
Set dbsCurrent = CurrentDb
strQuery = "SELECT * " & _
"FROM [Technical Logbook] " & _
"WHERE ID = " & CurrentID
Set rstATS = dbsCurrent.OpenRecordset(strQuery)


If Not IsNull(rstATS![Corrective Action]) Then
CAcurrent = rstATS![Corrective Action]
If Me.CANew <> "" Then
rstATS.Edit
rstATS![Corrective Action] = CAcurrent & _
"<div> </div>" & _
"<div>" & Me.CANew.Value & "</div>" & _
"<div>" & "/*" & UserNameWindows() & " - " & Now() & "*/" & "</div>"
rstATS.Update

DoCmd.Close
Else
MsgBox "Please enter a new corrective action"
End If
Else
If Me.CANew <> "" Then
rstATS.Edit
rstATS![Corrective Action] = "<div>" & Me.CANew.Value & "</div>" & _
"<div>" & "/*" & UserNameWindows() & " - " & Now() & "*/" & "</div>"
rstATS.Update
DoCmd.Close
Else
MsgBox "Please enter a new corrective action"
End If
End If
End Sub

it's really strange that clleagues using window 8 have not this issue. could any one please help me?
Thanks a lot in advance!

Best,
Jingru

[ranman256]

Instead of code,can’t you just run an update query?

[Welshgasman]

And 3188 is?

[Gicu]

Is the form unbound? You use OpenArgs so it looks like it is some sort of popup edit form that you open from another, is the first form bound to [Technical Logbook] and dirty?
I revised your code a bit:

Private Sub bSave_Click()
Dim dbsCurrent As DAO.Database
Dim rstATS As DAO.recordset
Dim strQuery As String
Dim CurrentID As Integer
Dim CAcurrent As String


CurrentID = Me.OpenArgs
Set dbsCurrent = CurrentDb
strQuery = "SELECT * " & _
			"FROM [Technical Logbook] " & _
			"WHERE ID = " & CurrentID
			
Set rstATS = dbsCurrent.OpenRecordset(strQuery)




If Not IsNull(rstATS![Corrective Action]) Then
	CAcurrent = Nz(rstATS![Corrective Action])
		If Me.CANew <> "" Then
			rstATS.Edit
			rstATS![Corrective Action] = CAcurrent & _
										"<div> </div>" & _
										"<div>" & Me.CANew & "</div>" & _
										"<div>" & "/*" & UserNameWindows() & " - " & Now() & "*/" & "</div>"
			rstATS.Update
			DoCmd.Close
		Else
			MsgBox "Please enter a new corrective action"
		End If
'Else
		'If Me.CANew <> "" Then
			'rstATS.Edit
			'rstATS![Corrective Action] = "<div>" & Me.CANew & "</div>" & _
											"<div>" & "/*" & UserNameWindows() & " - " & Now() & "*/" & "</div>"
			'rstATS.Update
			'DoCmd.Close
		'Else
			'MsgBox "Please enter a new corrective action"
		'End If
End If
End Sub

[Jingru]

Instead of code,can’t you just run an update query?

thanks a lot for the reply. I will try this

[Jingru]

Runtime error 3188. Could not update; currently locked by another session on this machine. I think there is something to do with the lenth of string. I will open a new post to disscuss it. thanks a lot.

[Jingru]

Is the form unbound? You use OpenArgs so it looks like it is some sort of popup edit form that you open from another, is the first form bound to [Technical Logbook] and dirty?
I revised your code a bit:

Private Sub bSave_Click()
Dim dbsCurrent As DAO.Database
Dim rstATS As DAO.recordset
Dim strQuery As String
Dim CurrentID As Integer
Dim CAcurrent As String


CurrentID = Me.OpenArgs
Set dbsCurrent = CurrentDb
strQuery = "SELECT * " & _
            "FROM [Technical Logbook] " & _
            "WHERE ID = " & CurrentID
            
Set rstATS = dbsCurrent.OpenRecordset(strQuery)




If Not IsNull(rstATS![Corrective Action]) Then
    CAcurrent = Nz(rstATS![Corrective Action])
        If Me.CANew <> "" Then
            rstATS.Edit
            rstATS![Corrective Action] = CAcurrent & _
                                        "<div> </div>" & _
                                        "<div>" & Me.CANew & "</div>" & _
                                        "<div>" & "/*" & UserNameWindows() & " - " & Now() & "*/" & "</div>"
            rstATS.Update
            DoCmd.Close
        Else
            MsgBox "Please enter a new corrective action"
        End If
'Else
        'If Me.CANew <> "" Then
            'rstATS.Edit
            'rstATS![Corrective Action] = "<div>" & Me.CANew & "</div>" & _
                                            "<div>" & "/*" & UserNameWindows() & " - " & Now() & "*/" & "</div>"
            'rstATS.Update
            'DoCmd.Close
        'Else
            'MsgBox "Please enter a new corrective action"
        'End If
End If
End Sub

Thanks a lot. I tired it but doenot work. I think there is something to do with the lenth of string.

[Jingru]

The strange thing is 1.my colleages using window 8 don't have this issue; 2.this issue comes up when the length of string is more than 2200. So I am thinking there is something to do with the buffer size of different windows version.
And you can find what happend in the following picture: