472,952 Members | 2,075 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 472,952 software developers and data experts.

Error 3218 or Error 3246 problem

From time to time, I randomly receive "Can't updated, Currently
locked" error 3218 or 3246 from the following code in one of my form
with pessimistic lock for 70 users environment. Any problem with the
code?
Private Sub Save_Record_Click()
Dim stSQL As String
Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
stSQL = "select * from [Openers DB] where [SRF#]= '" & Me![SRF#] &
"' AND [Opening Date Start]= #" & Me![Opening Date Start] & "# AND
[Opening Time Start]= #" & Me![Opening Time Start] & "#"
rs.Open stSQL, Application.CurrentProject.Connection

If Not (rs.EOF) Then
rs.Close
Set rs = Nothing
MsgBox "Can't save record, duplicate Opening Time" & Chr(13) &
"Please click Mail button for time correction", , "Warning"
Exit Sub
Else
rs.Close
Set rs = Nothing
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO [Openers DB] ([Client Name], [SRF#],
[Product Code], [AM#], [Resp Transit], [Existing Amount], [Amount
Request], PSOA, [Gate Date], [Gate Time], [Opening Date Start],
[Opening Time Start], [Opening Date Finish], [Opening Time Finish],
[Opener Initial], [Opener Comment], Pushback) SELECT [Client Name],
[SRF#], [Product Code], [AM#], [Resp Transit], [Existing Amount],
[Amount Request], PSOA, [Gate Date], [Gate Time], [Opening Date
Start], [Opening Time Start], [Opening Date Finish], [Opening Time
Finish], [Opener Initial], [Opener Comment], Pushback FROM SBCD where
[SRF#] = '" & Me![SRF#] & "'"
DoCmd.SetWarnings True
DoCmd.Close acForm, "OPENING TEAM"
End If

End If

End Sub
Nov 12 '05 #1
0 2146

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

5
by: Tony Wright | last post by:
Hi, I am having a problem installing an msi for a web site. The error message I am getting is: "The specified path 'http://mipdev05/features/Fas2' is unavailable. The Internet Information...
1
by: Doug Ly | last post by:
Hi , connect to Blah user blah using blah ------------------------------------------------------------------------ Database Connection Information Database server = DB2/6000 7.2.3...
0
by: Thompson Yip | last post by:
From time to time, I randomly receive "Can't updated, Currently locked" error 3218 or 3246 from the following code in one of my form with pessimistic lock for 70 users environment. Any problem with...
7
by: p | last post by:
WE had a Crystal 8 WebApp using vs 2002 which we upgraded to VS2003. I also have Crystal 9 pro on my development machine. The web app runs fine on my dev machine but am having problems deploying....
16
by: | last post by:
Hi all, I have a website running on beta 2.0 on server 2003 web sp1 and I keep getting the following error:- Error In:...
0
by: Gustavo Curve | last post by:
Hi, i got a stage problem. A Customer runs his "server" under Win98. His Client he works on runs under win2000 SP3. My new programm requires JET 4.0 SP8 with DAO 3.6. The old programm uses...
4
by: Egyd Csaba | last post by:
Hi, the restoration of a dump stops at the line above. The dump was created with pgsql 7.3.2 and I need to pump it into a 7.4.3 one. Should anybody tell me what the problem can be and how I can...
6
by: stuart | last post by:
I have 2 users who ran into a problem with a data entry program (written in Access 2003). One user was keying into one of the forms when she got the message "ACCESS Error Number: 3218 Could not...
5
by: prakashwadhwani | last post by:
The Delete Event/Proc & "Save_Fields_In_Form_Header" Event/Proc in my form were working perfectly. However, after I added a call to the "Save_Fields_In_Form_Header" Event/Proc in the...
3
by: kasinisak | last post by:
I have created a Sub to export a query to a text file in the following steps: 1. Before the text file can be generated, certain checks must be made to ensure the correct result. 2. Generate a text...
0
by: lllomh | last post by:
Define the method first this.state = { buttonBackgroundColor: 'green', isBlinking: false, // A new status is added to identify whether the button is blinking or not } autoStart=()=>{
0
tracyyun
by: tracyyun | last post by:
Hello everyone, I have a question and would like some advice on network connectivity. I have one computer connected to my router via WiFi, but I have two other computers that I want to be able to...
2
by: giovanniandrean | last post by:
The energy model is structured as follows and uses excel sheets to give input data: 1-Utility.py contains all the functions needed to calculate the variables and other minor things (mentions...
4
NeoPa
by: NeoPa | last post by:
Hello everyone. I find myself stuck trying to find the VBA way to get Access to create a PDF of the currently-selected (and open) object (Form or Report). I know it can be done by selecting :...
1
by: Teri B | last post by:
Hi, I have created a sub-form Roles. In my course form the user selects the roles assigned to the course. 0ne-to-many. One course many roles. Then I created a report based on the Course form and...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 1 Nov 2023 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM) Please note that the UK and Europe revert to winter time on...
3
by: nia12 | last post by:
Hi there, I am very new to Access so apologies if any of this is obvious/not clear. I am creating a data collection tool for health care employees to complete. It consists of a number of...
0
NeoPa
by: NeoPa | last post by:
Introduction For this article I'll be focusing on the Report (clsReport) class. This simply handles making the calling Form invisible until all of the Reports opened by it have been closed, when it...
0
isladogs
by: isladogs | last post by:
The next online meeting of the Access Europe User Group will be on Wednesday 6 Dec 2023 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, Mike...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.