Thanks so much, works perfectly!!!
Private Sub Command3_Click()
If DCount("[projectid]", "tblProjectDetails", "[projectid]=" & Me!projectid) > 0 Then
strWhere = " (tblProjectDetails.projectid) = " & Me.projectid
DoCmd.OpenForm "Projects", , , strWhere
Else
MsgBox "Item doesn't exist"
End If...