Rx_
Nothing In Moderation
- Local time
- Yesterday, 19:55
- Joined
- Oct 22, 2009
- Messages
- 2,803
Our Citrix ADO object isn't up to date with an auto update for our development PC ADO object, among some other issues today.
I need to unselect my Tools Reference to ADO to fix some issues today in the short term. This code references ADO. Does anyone have the equal for DAO handy? See line 30 - Thanks
I need to unselect my Tools Reference to ADO to fix some issues today in the short term. This code references ADO. Does anyone have the equal for DAO handy? See line 30 - Thanks
Code:
Public Sub ChangeSeedAutocounter(strTableName As String _
, strFieldName As String _
, lngStartAt As Long _
, intIncrementBy As Integer)
' 6/30/2015 This is the OLD Rule Engine - removing
' will not work on linked tables
Dim strSQL As String
'Build the SQL statement
On Error GoTo errorTRap
10 strSQL = "ALTER TABLE " & strTableName & _
" ALTER COLUMN " & strFieldName & _
" COUNTER (" & lngStartAt & "," & intIncrementBy & ")"
'Execute the SQL statement
30 CurrentProject.Connection.Execute strSQL, , adCmdText
Exit Sub
errorTRap:
Debug.Print "Sub ChangeSeedAutocounter in Rule engine" & Err.Description
Err.Clear
End Sub