G
Guest
I inherited a form with vba behind it that worked fine. I added tabs and
now, the vba is getting bugged.
I am not sure what the code is supposed to be doing, but here is the first
part:
Private Sub Form_Close()
Dim dbs As Database, rst As Recordset
Dim strSQL As String
Dim strInput As String
Dim LoopCntr As Long
Dim RecCntr As Long
Dim AllValues As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'THIS IS WHERE THE DEBUGGER HIGHLIGHTS
DoCmd.SetWarnings False
Set dbs = CurrentDb
AllValues = " "
RecCntr = DCount("[ORPS Designator]", "[ISM]", "[ORPS Designator] =
Forms![ORPS Data]![ORPS Designator]")
If RecCntr > 0 Then
strSQL = "SELECT * FROM [ISM] WHERE [ORPS Designator] = " & "'" &
Forms![ORPS Data]![ORPS Designator] & "'"
.. . . and on.
Any ideas?
TIA
now, the vba is getting bugged.
I am not sure what the code is supposed to be doing, but here is the first
part:
Private Sub Form_Close()
Dim dbs As Database, rst As Recordset
Dim strSQL As String
Dim strInput As String
Dim LoopCntr As Long
Dim RecCntr As Long
Dim AllValues As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'THIS IS WHERE THE DEBUGGER HIGHLIGHTS
DoCmd.SetWarnings False
Set dbs = CurrentDb
AllValues = " "
RecCntr = DCount("[ORPS Designator]", "[ISM]", "[ORPS Designator] =
Forms![ORPS Data]![ORPS Designator]")
If RecCntr > 0 Then
strSQL = "SELECT * FROM [ISM] WHERE [ORPS Designator] = " & "'" &
Forms![ORPS Data]![ORPS Designator] & "'"
.. . . and on.
Any ideas?
TIA