[AccessD] Open a form and find a record

Susan,

Try something like:

(air code)

	Dim stDocName As String
	Dim stLinkCriteria As String

	If Nz(Dlookup("[ProjectID]","tblProjects","[QAFName]='" &
Me![UsersName] & "'"),"NotFound") = "NotFound" Then
		MsgBox "You are not the QA on any projects."
	Else
		stDocName = "frmProjects"	
		stLinkCriteria = "[QAFName]=" & "'" & Me![UsersName] &
"'"
		DoCmd.Close 'Closes the menu form.
		DoCmd.OpenForm stDocName, , , stLinkCriteria
	End If

Just substitute your actual field and table names in the dlookup
function.

HTH,

Don McGillivray