D
DJ McNeill via AccessMonster.com
Help... this so frustrating...
I have searched for answer to this problem but haven't found the solution.
I get a run-time error '3734' The database has been placed in a state by
user 'Admin' on machine X that prevents it from being opened or locked.
I have a simple form that is going to get more complicated if I can get the
basics to work. Currently I have a blank form with 2 unbound controls. I
bound the one control (combo drop down) to some sql that grabs data from a
query. Then on the event after update I want it to populate the text box
with some other data in the lookup query for reference. I couldn't figure
out how to do it automatically so I coded as follows:
Private Sub niceloc_combo_Change()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim myquery As String
Dim mylistquery As Recordset
Dim DB As Database
If IsNull(niceloc_combo.Value) Then
Response = MsgBox(Msg, Style, Title, "", "")
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If
End If
myquery = "SELECT [Nice Locations].AFE FROM [Nice Locations] WHERE [Nice
Locations].[Nice Location] = '" & niceloc_combo.Value & "'; "
'Set DB = OpenDatabase("O:\bits\as\chap\Capital Equipment Tracking\CETSDB.
mdb")
'Set mylistquery = DB.OpenRecordset(myquery, dbOpenSnapshot)
'This was a second attempt the one above gave the same error.
Set mylistquery = CurrentDb.OpenRecordset(myquery, dbOpenSnapshot)
mylistquery.MoveLast
If mylistquery.RecordCount > 0 Then
Afe_text.Value = mylistquery.Fields("AFE")
End If
mylistquery.Close
End Sub
Please someone enlighten me.
Thanks,
DJ McNeill
I have searched for answer to this problem but haven't found the solution.
I get a run-time error '3734' The database has been placed in a state by
user 'Admin' on machine X that prevents it from being opened or locked.
I have a simple form that is going to get more complicated if I can get the
basics to work. Currently I have a blank form with 2 unbound controls. I
bound the one control (combo drop down) to some sql that grabs data from a
query. Then on the event after update I want it to populate the text box
with some other data in the lookup query for reference. I couldn't figure
out how to do it automatically so I coded as follows:
Private Sub niceloc_combo_Change()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim myquery As String
Dim mylistquery As Recordset
Dim DB As Database
If IsNull(niceloc_combo.Value) Then
Response = MsgBox(Msg, Style, Title, "", "")
If Response = vbYes Then ' User chose Yes.
MyString = "Yes" ' Perform some action.
Else ' User chose No.
MyString = "No" ' Perform some action.
End If
End If
myquery = "SELECT [Nice Locations].AFE FROM [Nice Locations] WHERE [Nice
Locations].[Nice Location] = '" & niceloc_combo.Value & "'; "
'Set DB = OpenDatabase("O:\bits\as\chap\Capital Equipment Tracking\CETSDB.
mdb")
'Set mylistquery = DB.OpenRecordset(myquery, dbOpenSnapshot)
'This was a second attempt the one above gave the same error.
Set mylistquery = CurrentDb.OpenRecordset(myquery, dbOpenSnapshot)
mylistquery.MoveLast
If mylistquery.RecordCount > 0 Then
Afe_text.Value = mylistquery.Fields("AFE")
End If
mylistquery.Close
End Sub
Please someone enlighten me.
Thanks,
DJ McNeill