Hi
I have got a problem recording macros in Accpac 5.4A. I capture a Purchase order , and then this is all the macro consists of .
recording is started before the purchase order entry screen is opened, and then stopped just before the screen is closed.
Sub MainSub()
'
' ACCPAC Macro file: C:\Program Files\Sage Software\Sage Accpac\Macros\MACRO03.AVB
' Recorded at: Wed Jul 16 09:16:43 2008
'
On Error GoTo ACCPACErrorHandler
Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkCmpRW = OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
Dim mDBLinkSysRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkSysRW = OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READWRITE)
Dim temp As Boolean
Exit Sub
ACCPACErrorHandler:
Dim lCount As Long
Dim lIndex As Long
If Errors Is Nothing Then
MsgBox Err.Description
Else
lCount = Errors.Count
If lCount = 0 Then
MsgBox Err.Description
Else
For lIndex = 0 To lCount - 1
MsgBox Errors.Item(lIndex)
Next
Errors.Clear
End If
Resume Next
End If
End Sub
Thanks in advance..
V3nd3tta
I have got a problem recording macros in Accpac 5.4A. I capture a Purchase order , and then this is all the macro consists of .
recording is started before the purchase order entry screen is opened, and then stopped just before the screen is closed.
Sub MainSub()
'
' ACCPAC Macro file: C:\Program Files\Sage Software\Sage Accpac\Macros\MACRO03.AVB
' Recorded at: Wed Jul 16 09:16:43 2008
'
On Error GoTo ACCPACErrorHandler
Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkCmpRW = OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
Dim mDBLinkSysRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkSysRW = OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READWRITE)
Dim temp As Boolean
Exit Sub
ACCPACErrorHandler:
Dim lCount As Long
Dim lIndex As Long
If Errors Is Nothing Then
MsgBox Err.Description
Else
lCount = Errors.Count
If lCount = 0 Then
MsgBox Err.Description
Else
For lIndex = 0 To lCount - 1
MsgBox Errors.Item(lIndex)
Next
Errors.Clear
End If
Resume Next
End If
End Sub
Thanks in advance..
V3nd3tta