Create well-organized and polished visualizations of your virtual and backup environments when planning VMware vSphere, Microsoft Hyper-V or Veeam deployments. It helps you to gain better visibility and valuable business insights.
Private Function ProjectPositions(ByVal iEst As Long, iDiscID As Long, iProjectid As Long, lngCMFno As Long) As Variant Dim EstIDTemp As Long Dim varPositions As Variant Dim rs As DAO.Recordset Dim strSql As String Dim lngcmfPram As Long Const strcProcName As String = "ProjectPositions" on error GoTo ErrorHandler ReDim varPositions(0) If iCMFno = 0 Then lngcmfpram = Null <<<<<<<<<<< This fails as you cannot assign a null value to a long Else lngcmfPram = iCMFno End If strSql = "SELECT DISTINCT effort.position " & _ "FROM (tasks INNER JOIN tblProjects ON tasks.project_id = tblProjects.fldprojectindexno) " & _ "INNER JOIN effort ON tasks.task_id = effort.task_id " & _ "WHERE tasks.estimate_id=" & iEst & _ " AND tasks.discipline_code=" & iDiscID & _ " AND tasks.project_id=" & iProjectid & _ " AND effort.change_index=" & lngcmfPram & _ '<<<< need option to make lnfcmfPram = null " union select sposition as position " & _ "FROM tbl_defaultpositions " & _ "WHERE idiscipline = " & iDiscID
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.