Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
auto numbering
I am using a function that does autonumbering for a invoice using a *.txt file.
My problem is although i have spesified a default path for the txt file it still safes it in the "my documents" folder and not the default path as spesified in the code. I am using vista business and office 2007 pro. here is the code Public Function NextSeqNumberInv(Optional sFileNameInv As String, Optional nSeqNumberInv As Long = -1) As Long 'invoice autonumbering Const sDEFAULT_PATH As String = "C:\seqnum" Const sDEFAULT_FNAME As String = "DefaultSeqInv.txt" Dim nFileNumberInv As Long nFileNumberInv = FreeFile If sFileNameInv = "" Then sFileNameInv = sDEFAULT_FNAME If InStr(sFileNameInv, Application.PathSeparator) = 0 Then _ sFileName = sDEFAULT_PATH & Application.PathSeparator & sFileNameInv If nSeqNumberInv = -1& Then If Dir(sFileNameInv) < "" Then Open sFileNameInv For Input As nFileNumberInv Input #nFileNumberInv, nSeqNumberInv nSeqNumberInv = nSeqNumberInv + 1& Close nFileNumberInv Else nSeqNumberInv = 1& End If End If On Error GoTo PathError Open sFileNameInv For Output As nFileNumberInv On Error GoTo 0 Print #nFileNumberInv, nSeqNumberInv Close nFileNumberInv NextSeqNumberInv = nSeqNumberInv Exit Function PathError: NextSeqNumberInv = -1& End Function Pls help I don't know where am i goign wrong with this |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
auto numbering
use the CHDRIVE and CHDIR to repoint the system,
Const sDEFAULT_PATH As String = "C:\seqnum" Const sDEFAULT_FNAME As String = "DefaultSeqInv.txt" Dim nFileNumberInv As Long CHDRIVE LEFT(sDEFAULT_PATH,2) CHDIR sDEFAULT_PATH "Oakleaf tech" wrote: I am using a function that does autonumbering for a invoice using a *.txt file. My problem is although i have spesified a default path for the txt file it still safes it in the "my documents" folder and not the default path as spesified in the code. I am using vista business and office 2007 pro. here is the code Public Function NextSeqNumberInv(Optional sFileNameInv As String, Optional nSeqNumberInv As Long = -1) As Long 'invoice autonumbering Const sDEFAULT_PATH As String = "C:\seqnum" Const sDEFAULT_FNAME As String = "DefaultSeqInv.txt" Dim nFileNumberInv As Long nFileNumberInv = FreeFile If sFileNameInv = "" Then sFileNameInv = sDEFAULT_FNAME If InStr(sFileNameInv, Application.PathSeparator) = 0 Then _ sFileName = sDEFAULT_PATH & Application.PathSeparator & sFileNameInv If nSeqNumberInv = -1& Then If Dir(sFileNameInv) < "" Then Open sFileNameInv For Input As nFileNumberInv Input #nFileNumberInv, nSeqNumberInv nSeqNumberInv = nSeqNumberInv + 1& Close nFileNumberInv Else nSeqNumberInv = 1& End If End If On Error GoTo PathError Open sFileNameInv For Output As nFileNumberInv On Error GoTo 0 Print #nFileNumberInv, nSeqNumberInv Close nFileNumberInv NextSeqNumberInv = nSeqNumberInv Exit Function PathError: NextSeqNumberInv = -1& End Function Pls help I don't know where am i goign wrong with this |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
auto numbering
That did the job
THx a million!!! "Patrick Molloy" wrote: use the CHDRIVE and CHDIR to repoint the system, Const sDEFAULT_PATH As String = "C:\seqnum" Const sDEFAULT_FNAME As String = "DefaultSeqInv.txt" Dim nFileNumberInv As Long CHDRIVE LEFT(sDEFAULT_PATH,2) CHDIR sDEFAULT_PATH "Oakleaf tech" wrote: I am using a function that does autonumbering for a invoice using a *.txt file. My problem is although i have spesified a default path for the txt file it still safes it in the "my documents" folder and not the default path as spesified in the code. I am using vista business and office 2007 pro. here is the code Public Function NextSeqNumberInv(Optional sFileNameInv As String, Optional nSeqNumberInv As Long = -1) As Long 'invoice autonumbering Const sDEFAULT_PATH As String = "C:\seqnum" Const sDEFAULT_FNAME As String = "DefaultSeqInv.txt" Dim nFileNumberInv As Long nFileNumberInv = FreeFile If sFileNameInv = "" Then sFileNameInv = sDEFAULT_FNAME If InStr(sFileNameInv, Application.PathSeparator) = 0 Then _ sFileName = sDEFAULT_PATH & Application.PathSeparator & sFileNameInv If nSeqNumberInv = -1& Then If Dir(sFileNameInv) < "" Then Open sFileNameInv For Input As nFileNumberInv Input #nFileNumberInv, nSeqNumberInv nSeqNumberInv = nSeqNumberInv + 1& Close nFileNumberInv Else nSeqNumberInv = 1& End If End If On Error GoTo PathError Open sFileNameInv For Output As nFileNumberInv On Error GoTo 0 Print #nFileNumberInv, nSeqNumberInv Close nFileNumberInv NextSeqNumberInv = nSeqNumberInv Exit Function PathError: NextSeqNumberInv = -1& End Function Pls help I don't know where am i goign wrong with this |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto numbering | Excel Programming | |||
aUTO nUMBERING | New Users to Excel | |||
Auto Numbering | Excel Discussion (Misc queries) | |||
Auto Numbering | Excel Worksheet Functions | |||
Auto numbering | Excel Programming |