Missing Access function not installed? But what is it?

[a_gunslinger]

We have Office 2010 and I checked the installation and it appears that we installed everything during install. 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"

[see screenshot below]

Under add /remove programs > Office 2010 > Change everything is set to be installed directly to computer.

Any ideas?

Many thanks!

[RuralGuy]

Try *importing* your db into a fresh, new db and see if the issue follows: http://www.btabdevelopment.com/ts/impnew

[a_gunslinger]

Thanks for the reply! Unfortunately the import to new Db did not resolve the issue.

[orange]

I don't have Acc2010, but can you put a breakpoint in the code behind your form, and then step through the code (F8) to see exactly where the error is coming form? Just a suggestion that might be useful..

[a_gunslinger]

Orange, thanks for the reply! I will try this, although Im not quite sure how to insert a breakpoint.

[RuralGuy]

Breakpoints are set while viewing the code and then LeftClick outside the margin. Are you showing any MISSING References?

[a_gunslinger]

Not showing any missing references. Strangely, it may be computer specific. The error does not occur when run on another system.

[a_gunslinger]

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.RunMacro "mcrDeleteTimelineData1"
DoCmd.RunMacro "mcrGenerateMainTimeline2"
DoCmd.RunMacro "mcrCreateTimeline3"
DoCmd.RunMacro "mcrCountWeekdays"
DoCmd.OutputTo acOutputQuery, "AverageTimeline_Crosstab", acFormatXLS, , True

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

Case 2
DoCmd.RunMacro "mcrDeleteTimelineData1"
DoCmd.RunMacro "mcrGenerateMainTimeline2"
DoCmd.RunMacro "mcrCreateTimeline3"
DoCmd.RunMacro "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