Hi Orange,,
There are no errors, it just does the first part (show the query results), no opening the form and fill in the user name :-(
this is the code for the button to do it all in one:
Code:
Private Sub btn_next_check_Click()
Dim stDocName As String
Dim sSQL4 As String
Dim varUserLock
Dim stLinkCriteria As String
Dim User As String
User = Environ("username")
On Error GoTo errr
sSQL4 = "SELECT TOP 1 ID FROM qry_next_case"
Me.frm_Reviews_subform.Form.RecordSource = sSQL4
Me.frm_Reviews_subform.Form.RecordSource = Me.frm_Reviews_subform.Form.RecordSource
Exit Sub
errr:
MsgBox Err.Description
stDocName = "frm_Edit_Reviews"
DoCmd.OpenForm stDocName, , , , , acWindowNormal
Forms![frm_Edit_Reviews]![Checker_name].Value = User
End Sub
Myabe there is a silly thing in it that prevents it :-(
Greetings