Results 1 to 2 of 2
  1. #1
    Join Date
    Feb 2012
    Posts
    1

    Unanswered: Missing Access function not installed? But what is it?

    We have a data input form with an Update Table function that sends the entered form data to the database table. Worked fine for a long time then all of a sudden we are getting an error message when slecteing the update table function:

    "You tried to perform an operation involving a function that was not installed in this version of Microsoft Access"

    SCREENSHOT
    http://www.emermed.net/staging/forums/access.png

    We have Office 2010 and I checked the installation and it appears that we installed everything during install. Additionally, it opens fine on some other Windows 7 Office 2010 computers installed using the same disc image.

    In the VB it doesnt show any missing references. the VB code is below if anything looks unusually deprecated.

    Any ideas?

    Many thanks!

    >>>>>>>>>>>>>>>
    Anything deprecated in this code?

    Option Compare Database
    Private Sub cmdByAcuity_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd.OutputTo acOutputQuery, "qryByAcuity", acFormatXLS, , True

    Case 2
    DoCmd.OpenReport "rptByAccuity", acViewPreview
    End Select
    End Sub
    Private Sub cmdByArrlDt_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd.OutputTo acOutputQuery, "qryByArr", acFormatXLS, , True

    Case 2
    DoCmd.OpenReport "rptArrival_Dt", acViewPreview
    End Select

    End Sub
    Private Sub cmdByArrlMode_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd.OutputTo acOutputQuery, "qryByArrlMode", acFormatXLS, , True

    Case 2
    DoCmd.OpenReport "rptByArrMode", acViewPreview
    End Select
    End Sub

    Private Sub cmdByDispCode_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd.OutputTo acOutputQuery, "qryByDispCode", acFormatXLS, , True

    Case 2
    DoCmd.OpenReport "rptByDispCode", acViewPreview
    End Select
    End Sub
    Private Sub cmdByEDLoc_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd.OutputTo acOutputQuery, "qryByEDLoc", acFormatXLS, , True

    Case 2
    DoCmd.OpenReport "rptByEDLoc", acViewPreview
    End Select
    End Sub
    Private Sub cmdByEDProv_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd.OutputTo acOutputQuery, "qryByEDProv", acFormatXLS, , True

    Case 2
    DoCmd.OpenReport "rptByEDProv", acViewPreview
    End Select
    End Sub
    Private Sub cmdByTreatArea_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd.OutputTo acOutputQuery, "qryByTreatArea", acFormatXLS, , True

    Case 2
    DoCmd.OpenReport "rptByTreatArea", acViewPreview
    End Select
    End Sub
    Private Sub cmdDataExt_Click()
    DoCmd.OutputTo acOutputQuery, "qryMainFileExport", acFormatXLS, , True
    End Sub
    Private Sub cmdDtTotals_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd.OutputTo acOutputQuery, "qryTotals_for_Date_Range", acFormatXLS, , True

    Case 2
    DoCmd.OpenReport "rptTotals", acViewPreview
    End Select
    End Sub
    Private Sub cmdEDProvTreat_Click()
    Select Case txtRptFormat
    Case 1
    If Me![txtEndDt] <> "" Then
    DoCmd.OutputTo acOutputQuery, "qryByEDProv_Treatment", acFormatXLS, , True
    Else
    MsgBox "You must fill in a Start and End Date to continue!", vbInformation, "ED Provider by Treatment"
    End If

    Case 2
    If Me![txtEndDt] <> "" Then
    DoCmd.OpenReport "rptByEDProv_Treatment", acViewPreview
    Else
    MsgBox "You must fill in a Start and End Date to continue!", vbInformation, "ED Provider by Treatment"
    End If

    End Select
    End Sub
    Private Sub cmdTimelineAvg_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd****nMacro "mcrDeleteTimelineData1"
    DoCmd****nMacro "mcrGenerateMainTimeline2"
    DoCmd****nMacro "mcrCreateTimeline3"
    DoCmd****nMacro "mcrCountWeekdays"
    DoCmd.OutputTo acOutputQuery, "AverageTimeline_Crosstab", acFormatXLS, , True

    Case 2
    DoCmd****nMacro "mcrDeleteTimelineData1"
    DoCmd****nMacro "mcrGenerateMainTimeline2"
    DoCmd****nMacro "mcrCreateTimeline3"
    DoCmd****nMacro "mcrCountWeekdays"
    DoCmd.OpenReport "rptTimeline_Average", acViewPreview
    End Select
    End Sub
    Private Sub cmdTimelineCount_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd****nMacro "mcrDeleteTimelineData1"
    DoCmd****nMacro "mcrGenerateMainTimeline2"
    DoCmd****nMacro "mcrCreateTimeline3"
    DoCmd****nMacro "mcrCountWeekdays"
    DoCmd.OutputTo acOutputQuery, "Timeline_Crosstab", acFormatXLS, , True

    Case 2
    DoCmd****nMacro "mcrDeleteTimelineData1"
    DoCmd****nMacro "mcrGenerateMainTimeline2"
    DoCmd****nMacro "mcrCreateTimeline3"
    DoCmd****nMacro "mcrCountWeekdays"
    DoCmd.OpenReport "rptTimeline", acViewPreview
    End Select
    End Sub
    Private Sub Command11_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd.OutputTo acOutputQuery, "qryByDispCode_Acuity", acFormatXLS, , True

    Case 2
    DoCmd.OpenReport "rptByDispCode_Acuity", acViewPreview
    End Select
    End Sub
    Private Sub optExcel_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    txtRptFormat.Value = optExcel.OptionValue
    Box13.Visible = True
    Label32.Visible = True
    Label3.Visible = True
    txtStartDt.Visible = True
    Label31.Visible = True
    Label5.Visible = True
    txtEndDt.Visible = True
    Label66.Visible = True
    txtStartTm.Visible = True
    Label67.Visible = True
    txtEndTm.Visible = True
    End Sub
    Private Sub optRpt_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    txtRptFormat.Value = optRpt.OptionValue
    Box13.Visible = True
    Label32.Visible = True
    Label3.Visible = True
    txtStartDt.Visible = True
    Label31.Visible = True
    Label5.Visible = True
    txtEndDt.Visible = True
    Label66.Visible = True
    txtStartTm.Visible = True
    Label67.Visible = True
    txtEndTm.Visible = True
    End Sub

    Private Sub cmdQuitApp_Click()
    On Error GoTo Err_cmdQuitApp_Click

    DoCmd.Quit
    Exit_cmdQuitApp_Click:
    Exit Sub
    Err_cmdQuitApp_Click:
    MsgBox Err.Description
    Resume Exit_cmdQuitApp_Click

    End Sub
    Private Sub cmdByAttending_Click()
    Select Case txtRptFormat
    Case 1
    DoCmd.OutputTo acOutputQuery, "qryByAttending", acFormatXLS, , True

    Case 2
    DoCmd.OpenReport "rptByAttending", acViewPreview
    End Select
    End Sub
    Private Sub txtEndDt_AfterUpdate()
    Text70.Value = Format((([txtEndDt] - [txtStartDt]) + 1) \ 7, "#.###")
    Text78.Value = (([txtEndDt] - [txtStartDt]) + 1) Mod 7
    Text82.Value = Format([txtStartDt], "w")
    Text85.Value = (([Text82] + [Text78]) - 1)
    End Sub
    Private Sub txtEndDt_KeyUp(KeyCode As Integer, Shift As Integer)
    Label34.Visible = True
    Box33.Visible = True
    cmdByArrlDt.Visible = True
    cmdByEDLoc.Visible = True
    cmdByEDProv.Visible = True
    Command11.Visible = True
    cmdByTreatArea.Visible = True
    cmdByAcuity.Visible = True
    cmdByArrlMode.Visible = True
    cmdByAttending.Visible = True
    cmdByDispCode.Visible = True
    cmdDtTotals.Visible = True
    cmdEDProvTreat.Visible = True
    Label99.Visible = True
    cmdTimelineAvg.Visible = True
    cmdTimelineCount.Visible = True
    End Sub
    Private Sub txtEndDt_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label34.Visible = True
    Box33.Visible = True
    cmdByArrlDt.Visible = True
    cmdByEDLoc.Visible = True
    cmdByEDProv.Visible = True
    Command11.Visible = True
    cmdByTreatArea.Visible = True
    cmdByAcuity.Visible = True
    cmdByArrlMode.Visible = True
    cmdByAttending.Visible = True
    cmdByDispCode.Visible = True
    cmdDtTotals.Visible = True
    cmdEDProvTreat.Visible = True
    Label99.Visible = True
    cmdTimelineAvg.Visible = True
    cmdTimelineCount.Visible = True
    End Sub

    Private Sub txtEndTm_KeyDown(KeyCode As Integer, Shift As Integer)
    Label34.Visible = True
    Box33.Visible = True
    cmdByArrlDt.Visible = True
    cmdByEDLoc.Visible = True
    cmdByEDProv.Visible = True
    Command11.Visible = True
    cmdByTreatArea.Visible = True
    cmdByAcuity.Visible = True
    cmdByArrlMode.Visible = True
    cmdByDispCode.Visible = True
    cmdDtTotals.Visible = True
    Label99.Visible = True
    cmdTimelineAvg.Visible = True
    cmdTimelineCount.Visible = True
    End Sub

  2. #2
    Join Date
    Mar 2009
    Posts
    5,442
    Provided Answers: 14
    Did you try to compile the project?
    Have a nice day!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •