fastEddied
Programmer
Fast Eddied Not so fast on this one!"
My Access Data base and all it's forms work great as a local DB. I upsized one of my tables to sql and link to it.
When exec a form i get a---
Run-Time error "3622':
You must use the dbSeeChanges option with OpenRecordset When accessing a SQL Server table that has an IDENTITY column.
But when adding the dbSeechanges option i get a Expect array! Why i don't have a clue
Can one of you more advance programmers help me thru this?
This is my code:
Dim lngClear As Long
lngClear = 6
If checkRecordSaved = False And (OperatorText <> "" Or cmbSta1Tech <> "N/A") Then
lngClear = MsgBox("This record has not been saved. Do you want to continue?", vbYesNo)
End If
Select Case lngClear
Case 6
Reset_Fields
SOListBox.Requery
strSQL = "SELECT * FROM tbl_SchedTopQuery_for_SOListBox " & "WHERE Order_No = '" & _
Get_ShopOrder & "'"
Set rs = Application.CurrentDb.OpenRecordset(strSQL)
varSO = rs!Order_No
strSO = rs!Order_No
strCheckInProc = "SELECT * FROM TesterLog where ShopOrder = '" & strSO & "' AND In_Process_Flag = True"
Set rsCheck = Application.CurrentDb.OpenRecordset(strCheckInProc)
Set_SO = strSO
Show_ShopOrder rs, rsCheck, strSO, False
rs.Close
rsCheck.Close
Set rs = Nothing
Set rsCheck = Nothing
Case Else
Exit Sub
End Select
thanks FastEddied
My Access Data base and all it's forms work great as a local DB. I upsized one of my tables to sql and link to it.
When exec a form i get a---
Run-Time error "3622':
You must use the dbSeeChanges option with OpenRecordset When accessing a SQL Server table that has an IDENTITY column.
But when adding the dbSeechanges option i get a Expect array! Why i don't have a clue
Can one of you more advance programmers help me thru this?
This is my code:
Dim lngClear As Long
lngClear = 6
If checkRecordSaved = False And (OperatorText <> "" Or cmbSta1Tech <> "N/A") Then
lngClear = MsgBox("This record has not been saved. Do you want to continue?", vbYesNo)
End If
Select Case lngClear
Case 6
Reset_Fields
SOListBox.Requery
strSQL = "SELECT * FROM tbl_SchedTopQuery_for_SOListBox " & "WHERE Order_No = '" & _
Get_ShopOrder & "'"
Set rs = Application.CurrentDb.OpenRecordset(strSQL)
varSO = rs!Order_No
strSO = rs!Order_No
strCheckInProc = "SELECT * FROM TesterLog where ShopOrder = '" & strSO & "' AND In_Process_Flag = True"
Set rsCheck = Application.CurrentDb.OpenRecordset(strCheckInProc)
Set_SO = strSO
Show_ShopOrder rs, rsCheck, strSO, False
rs.Close
rsCheck.Close
Set rs = Nothing
Set rsCheck = Nothing
Case Else
Exit Sub
End Select
thanks FastEddied