I have one other question. There seems to be some other code which possibly should reflect the new DAO code. the following does not allow forms to open any longer and files were not moved. I believe the issue is showing the additional string path and view
Expand|Select|Wrap|Line Numbers
- Private Sub cmdDETAIL_Click()
- If IsNull([prmEmpNo]) Then
- MsgBox ("No employee selected.")
- [prmEmpNo].SetFocus
- Exit Sub
- End If
- ProjectCount = NoOfProjects
- If ProjectCount <> 0 Then
- Forms![fPREPROJECT]![fProjectData].SetFocus
- ProjectCount = NoOfProjects
- Else
- MsgBox ("Selection has no records.")
- Exit Sub
- End If
- Select Case prmProjectGroup
- Case "Complaints"
- If ProjectCount <> 0 Then DoCmd.OpenForm "fComplain01", acNormal, , , acFormEdit
- Case "Lab"
- If ProjectCount <> 0 Then DoCmd.OpenForm "fComplain01", acNormal, , , acFormEdit
- Case "ASBESTOS-INSP"
- If ProjectCount <> 0 Then DoCmd.OpenForm "fAsbInsp01", acNormal, , , acFormEdit
- Case "Inspect-PERM"
- If ProjectCount <> 0 Then DoCmd.OpenForm "fFacInsp01", acNormal, , , acFormEdit
- Case "Enforcement Cases"
- If ProjectCount <> 0 Then DoCmd.OpenForm "fEnforce01", acNormal, , , acFormEdit
- Case "Projects"
- If ProjectCount <> 0 Then DoCmd.OpenForm "fProject01", acNormal, , , acFormEdit
- Case "Permits"
- If ProjectCount <> 0 Then DoCmd.OpenForm "fPermRev01", acNormal, , , acFormEdit
- Case "Training"
- If ProjectCount <> 0 Then DoCmd.OpenForm "fTraining01", acNormal, , , acFormEdit
- Case Else
- MsgBox ("Type of Project selected does not have detail records.")
- Exit Sub
- End Select
- End Sub
- Private Sub cmdExit_Click()
- DoCmd.Echo False
- Me.Visible = False
- If (SysCmd(acSysCmdGetObjectState, A_FORM, "fAQSplashForm") = 0) Then
- DoCmd.OpenForm "fAQSplashForm"
- End If
- DoCmd.Echo True
- End Sub
- Private Sub cmdHELP_Click()
- Call NavigHelp
- End Sub
- Private Sub cmdMemo_Click()
- If [Forms]![fPREPROJECT]![fProjectData].Form.CurrentRecord <> 0 Then
- glbProjID = [Forms]![fPREPROJECT]![fProjectData].Form![ipProjID]
- [Forms]![fPREPROJECT]![FormLink1] = [Forms]![fPREPROJECT]![fProjectData].Form![ipProjID]
- DoCmd.OpenForm "fProjMemoPopup"
- End If
- End Sub
- Private Sub Form_Activate()
- 'Me![fProjectData].SetFocus
- 'Me![fProjectData].Form![ipProjID].SetFocus
- ' .SelStart = intWhere - 1
- ' .SelLength = Len(strSearch
- End Sub
- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
- If KeyCode <> vbKeyF6 Then Exit Sub
- KeyCode = 0
- If (SysCmd(acSysCmdGetObjectState, A_FORM, "fAsbFac01") <> 0) Then
- Forms![fAsbFac01].SetFocus
- ElseIf (SysCmd(acSysCmdGetObjectState, A_FORM, "fFacDetail01") <> 0) Then
- Forms![fFacDetail01].SetFocus
- End If
- End Sub
- Private Sub Form_Open(Cancel As Integer)
- Dim db As DAO.Database
- Set db = CurrentDb()
- 'load the Rowsource for [prmEmpNo]
- 'code below performs a query and loads information
- 'from the EMPLOYEE table into the Rowsource
- Dim EmpInfo As DAO.Recordset
- Dim i As Integer
- Dim qte
- qte = Chr(34)
- Dim prm As Parameter
- Dim QD As DAO.QueryDef
- Set QD = db.QueryDefs("qCmbEmpInfo2")
- For i = 0 To QD.Parameters.Count - 1
- Set prm = QD.Parameters(i)
- prm.Value = Eval(prm.Name)
- Next i
- Set EmpInfo = QD.OpenRecordset(dbOpenDynaset)
- EmpInfo.MoveFirst
- Do Until EmpInfo.EOF
- [prmEmpNo].RowSource = [prmEmpNo].RowSource & qte & EmpInfo![EmpInfo] & qte & ";" & qte & EmpInfo![Empl_No] & qte & ";"
- EmpInfo.MoveNext
- Loop
- EmpInfo.Close
- 'this adds an additional entriy at the beginning of Rowsource
- [prmEmpNo].RowSource = qte & "AllActive" & qte & ";" & qte & "Actv" & qte & ";" & [prmEmpNo].RowSource
- 'this adds additional entries to the end of Rowsource
- [prmEmpNo].RowSource = [prmEmpNo].RowSource & qte & "TOXICS" & qte & ";" & qte & "tox" & qte & ";"
- [prmEmpNo].RowSource = [prmEmpNo].RowSource & qte & "STATIONARY SOURCE" & qte & ";" & qte & "cmp" & qte & ";"
- [prmEmpNo].RowSource = [prmEmpNo].RowSource & qte & "AllEmployees" & qte & ";" & qte & "AllEmployees" & qte & ";"
- 'sets values of startup parameter fields
- Forms![fPREPROJECT]![prmProjectGroup] = "AllProjects"
- Forms![fPREPROJECT]![prmOpenClosed] = 2
- Forms![fPREPROJECT]![prmEmpNo] = "Actv"
- DoCmd.Maximize
- Me![fProjectData].SetFocus
- End Sub
- Private Sub grpOpenClosed_Click()
- Call ResetParms
- End Sub
- Public Function NoOfProjects()
- NoOfProjects = DCount("*", "qProjectData")
- End Function
- Private Sub Opt1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Call RedoSort(1)
- 'ME: added September 10, 2008
- Call RedoSort(1)
- End Sub
- Private Function RedoSort(OptNo As Integer)
- If Me.[grpOpenClosed] = OptNo Then
- Forms![fPREPROJECT]![fProjectData].Form.OrderBy = "[SortDate], [Due Date], [Project Description]"
- End If
- 'ME: 09/03/2008: added the following for the Plan Date sorting-this is a test
- If OptNo = 5 Then
- Forms![fPREPROJECT]![fProjectData].Form.OrderBy = "[SortDate], [Plan Date], [Project Description]"
- End If
- End Function
- Private Sub Opt2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Call RedoSort(2)
- 'ME: added September 10, 2008
- Call RedoSort(2)
- End Sub
- Private Sub Opt3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Call RedoSort(3)
- 'ME: added September 10, 2008
- Call RedoSort(3)
- End Sub
- Private Sub Opt4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Call RedoSort(4)
- 'ME: added September 10, 2008
- Call RedoSort(4)
- End Sub
- Public Function ResetParms()
- Call qProjectDataGen(Forms![fPREPROJECT], Forms![fPREPROJECT]![fProjectData].Form)
- [Forms]![fPREPROJECT]![fProjectData].Requery
- If [Forms]![fPREPROJECT]![fProjectData].[Form].[CurrentRecord] <> 0 Then
- Me![fProjectData].SetFocus
- Me![fProjectData].Form![ipProjID].SetFocus
- End If
- End Function
- Private Sub Opt5_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
- Call RedoSort(5)
- 'ME: added September 10, 2008
- Call RedoSort(5)
- End Sub
- Private Sub prmEmpNo_Click()
- Call ResetParms
- End Sub
- Private Sub prmProjectGroup_Click()
- Call ResetParms
- End Sub
(Related thread: Macros/VBA created in Access 2003 not working in Access 2013 )