jimandersson91
Member
Private Sub DataLink70_Click()
'The Comments below have been added automatically.
'Any changes could cause adverse effects to the functionality
'of the Script Authoring Experts.
'WizardName=DataEntry
Dim vntLow As Variant
Dim vntHigh As Variant
Dim intReturn As Integer
Dim blnFetch As Boolean
On Error GoTo ErrorHandler
If blnDataEntryFrmFlag = True Then
Exit Sub
End If
GetFormNumeric
FetchLimits "Fix32.FAST2.701_5_LA01_ST52_BV_MAX.F_CV", vntHigh, vntLow, intReturn
Numeric.GetTheLimits H:=vntHigh, L:=vntLow
blnFetch = True
Numeric.IsAlpha A:=False
Numeric.GetTheVars A:=1, B:="Fix32.FAST2.701_5_LA01_ST52_BV_MAX.F_CV"
Numeric.Show
Exit Sub
ErrorHandler:
HandleError
The bolded and red text is the Datalink Source of a tag which the user is able to write to, but is there a way to make the Datalink Source be like vntDataSource or something like that, so you only have to change the datalink source outside of the VBA and dont have to change in the VBA script?
'The Comments below have been added automatically.
'Any changes could cause adverse effects to the functionality
'of the Script Authoring Experts.
'WizardName=DataEntry
Dim vntLow As Variant
Dim vntHigh As Variant
Dim intReturn As Integer
Dim blnFetch As Boolean
On Error GoTo ErrorHandler
If blnDataEntryFrmFlag = True Then
Exit Sub
End If
GetFormNumeric
FetchLimits "Fix32.FAST2.701_5_LA01_ST52_BV_MAX.F_CV", vntHigh, vntLow, intReturn
Numeric.GetTheLimits H:=vntHigh, L:=vntLow
blnFetch = True
Numeric.IsAlpha A:=False
Numeric.GetTheVars A:=1, B:="Fix32.FAST2.701_5_LA01_ST52_BV_MAX.F_CV"
Numeric.Show
Exit Sub
ErrorHandler:
HandleError
The bolded and red text is the Datalink Source of a tag which the user is able to write to, but is there a way to make the Datalink Source be like vntDataSource or something like that, so you only have to change the datalink source outside of the VBA and dont have to change in the VBA script?