Based on your initial situation, I'd change:
toselect case rs!response_count
case is = 9
if scalelabel = "-" then
'start word using template 1
end if
case is = 10
if scalelabel = "--" then
'start word using template 2
end if
end select
NateVB Code:
Select Case rs!Response_Count Case is = 9 If Scale_Label = "--" Then 'start word using template 1 Else 'start word using template 2 End If Case Else MsgBox "No option defined for this Response_Count value" End Select




Reply With Quote