Hi there.
I have browsed through a lot of the information contained in these forums, and I have a question. I am running an Access 97 Database on a network (mind you I dont have much network experience), with a "shell" program wirtten in Visual Basic 6.0. A little background on the program. There are 3 screens that information must be entered in. When you finish with one screen, and click the button to go to the next screen, that is where the save scrip is located, and then it goes to the next screen where blank field should follow because you are currently entering all the information with regards to that record.
I am currently running into the problem where the users recieve the runtime error 3260 "Couldn't Update; currently locked by user <name> on machine <name>. This occurs when they use the save record script that I have managed to piece together.
I have gone into Access options and set page locks to none, and shared. Below is the code that I use to save and move on, please help if at all possible in fixing this problem.
If you have any suggestion in saving the records in a different manner (using DAO methods) or adding a few lines to the code below to fix the problem please let me know!
Thanks in advance.
Richard Hendricks
===BEGIN CODE BELOW===
Dim search
Form8.WindowState = 2
pregistration = Text11.Text
afname = Text1.Text
alname = Text2.Text
first.Caption = Text1.Text
last.Caption = Text3.Text
Label20.Caption = ID.Caption
Data1.Recordset.LockEdits = False
'Data2.Recordset.LockEdits = False
'BEGIN STORE INFO CODE'
Dim afirst, alast
Data1.Refresh
'search info for applicant'
search = "afirst LIKE '" & first.Caption & "' AND alast LIKE '" & last.Caption & "' and ID like '" & Label20.Caption & "'"
Data1.Recordset.FindFirst search
'END STORE INFO CODE'
'HIDDEN FOR TEST - REMOVE HIDDEN FROM HERE DOWN'
Form10.Data1.Refresh
'form8 applicant search'
'search = "afirst LIKE '" & first & "'AND alast LIKE '" & last.Caption & "' and id like '" & Label20.Caption & "'"
Form10.Data1.Recordset.FindFirst search
'REMOVE HIDDEN FROM HERE UP'
Form8.Visible = False
Form10.WindowState = 2
Form10.Visible = True
I have browsed through a lot of the information contained in these forums, and I have a question. I am running an Access 97 Database on a network (mind you I dont have much network experience), with a "shell" program wirtten in Visual Basic 6.0. A little background on the program. There are 3 screens that information must be entered in. When you finish with one screen, and click the button to go to the next screen, that is where the save scrip is located, and then it goes to the next screen where blank field should follow because you are currently entering all the information with regards to that record.
I am currently running into the problem where the users recieve the runtime error 3260 "Couldn't Update; currently locked by user <name> on machine <name>. This occurs when they use the save record script that I have managed to piece together.
I have gone into Access options and set page locks to none, and shared. Below is the code that I use to save and move on, please help if at all possible in fixing this problem.
If you have any suggestion in saving the records in a different manner (using DAO methods) or adding a few lines to the code below to fix the problem please let me know!
Thanks in advance.
Richard Hendricks
===BEGIN CODE BELOW===
Dim search
Form8.WindowState = 2
pregistration = Text11.Text
afname = Text1.Text
alname = Text2.Text
first.Caption = Text1.Text
last.Caption = Text3.Text
Label20.Caption = ID.Caption
Data1.Recordset.LockEdits = False
'Data2.Recordset.LockEdits = False
'BEGIN STORE INFO CODE'
Dim afirst, alast
Data1.Refresh
'search info for applicant'
search = "afirst LIKE '" & first.Caption & "' AND alast LIKE '" & last.Caption & "' and ID like '" & Label20.Caption & "'"
Data1.Recordset.FindFirst search
'END STORE INFO CODE'
'HIDDEN FOR TEST - REMOVE HIDDEN FROM HERE DOWN'
Form10.Data1.Refresh
'form8 applicant search'
'search = "afirst LIKE '" & first & "'AND alast LIKE '" & last.Caption & "' and id like '" & Label20.Caption & "'"
Form10.Data1.Recordset.FindFirst search
'REMOVE HIDDEN FROM HERE UP'
Form8.Visible = False
Form10.WindowState = 2
Form10.Visible = True
