I have a function in Access 2000 that keeps giving me an "Operation must be an updateable query" error every time I try and tab from the field. I am only trying to update a field linked SQL table (autonumber). I can run a query in the SQL analyzer and the update works fine, but for some reason, this doesn't want to work in Access. Any help would be appreciated.
Private Sub QTM_QuoteID_Exit(Cancel As Integer)
Dim NextNumber As Integer
DoCmd.SetWarnings False
If IsNull(Me![QTM_QuoteID]) Then
Me![QTM_QuoteID] = DLookup("[AutoNumber_NextID]", "AutoNumber", "[AutoNumber_Setting] = 'QCT_NN_NextQQuoteNbr'"
NextNumber = Format(Me![QTM_QuoteID], "##0"
Me!TextNextNumber = NextNumber + 1
'DoCmd.OpenQuery "qryUpdateNextNumber"
'CSmith 10/3/01 - Updated to DoCmd.RunSQL; Autonumber wasn't allowing for update when tabbing from field.
DoCmd.RunSQL "update autonumber set AutoNumber_NextID = AutoNumber_NextID+1 where AutoNumber.AutoNumber_Setting ='QCT_NN_NextQQuoteNbr';"
End If
Me![TabCtl27].Visible = True
DoCmd.SetWarnings True
End Sub
Private Sub QTM_QuoteID_Exit(Cancel As Integer)
Dim NextNumber As Integer
DoCmd.SetWarnings False
If IsNull(Me![QTM_QuoteID]) Then
Me![QTM_QuoteID] = DLookup("[AutoNumber_NextID]", "AutoNumber", "[AutoNumber_Setting] = 'QCT_NN_NextQQuoteNbr'"
NextNumber = Format(Me![QTM_QuoteID], "##0"
Me!TextNextNumber = NextNumber + 1
'DoCmd.OpenQuery "qryUpdateNextNumber"
'CSmith 10/3/01 - Updated to DoCmd.RunSQL; Autonumber wasn't allowing for update when tabbing from field.
DoCmd.RunSQL "update autonumber set AutoNumber_NextID = AutoNumber_NextID+1 where AutoNumber.AutoNumber_Setting ='QCT_NN_NextQQuoteNbr';"
End If
Me![TabCtl27].Visible = True
DoCmd.SetWarnings True
End Sub