Your code is wrong. The target of the 'Commit Table As' cannot be
file_name = FileSaveAsDlg(MIDrive,thisfile,"tab","Save as new")

That doesn't evaluate to a string as it would in C, for example. 

You need to get the value for file_name first, then use that as the target 
for the commit. Try this instead:

Sub SaveScenAs
  thisfile = ""
  MIDrive = "C:\RedistDB\MB Tools\tabcall"
  file_name = FileSaveAsDlg(MIDrive,thisfile,"tab","Save As New")
  Commit Table log as file_name
End Sub


On Thu, 19 May 2005, Alan Gunn wrote:

> Sub SaveScenAs
>          thisfile = ""
>          MIDrive = "C:\RedistDB\MB Tools\tabcall"
>               Commit Table log as
>               file_name = FileSaveAsDlg(MIDrive,thisfile,"tab","Save
> As New") 
>               note file_name
> End Sub
> 
> That is when I get the error message "Expression does not evaluate to a
> character string."


---------------------------------------------------------------------
List hosting provided by Directions Magazine | www.directionsmag.com |
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Message number: 16536

Reply via email to