Private Sub Form_Current()
Me.ItemsFK.RowSource = "SELECT ItemsPK, ItemsListName FROM tblItems ORDER BY ItemsPK;"
End Sub
Private Sub ItemsFK_GotFocus()
Me.ItemsFK.RowSource = "SELECT tblItems.ItemsPK, tblItems.ItemsListName, tblItems.IsActive, tblEntities.EntityPK FROM (tblCategories INNER JOIN tblItems ON tblCategories.CategoryPK = tblItems.CategoryFK) INNER JOIN tblEntities ON tblCategories.EntityFK = tblEntities.EntityPK WHERE (((tblItems.IsActive) = True) And ((tblEntities.EntityPK) = [Forms]![frmTransactionsMain]![MainWarehouseFK])) ORDER BY tblItems.ItemsPK;"
End Sub