The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!
Public Sub ImportEDI(ctl As IRibbonControl) 'Get current user gstrUser = WinUserName Source_Path = "M:\m2mdata\data01\EDI\Acclimate\142 Documents" Destn_Path = "M:\m2mdata\data01\EDI\Acclimate\142 Documents\Archive\" Set fsoSysObj = New Scripting.FileSystemObject Set fdrNew = fsoSysObj.GetFolder(Source_Path) 'Loop through Acclimate directory to process all pending files For Each f In fdrNew.Files ClearVariables SourceFile = Source_Path & "\" & f.Name Open SourceFile For Input As #1 Len = 100 'Determine Trading Partner Identification Do While Not EOF(1) Line Input #1, TextLine varFields = Split(TextLine, "~", -1, vbTextCompare) Select Case varFields(0) Case "ISA" strEDIID = Trim$(varFields(6)) Case "GS" strGroupID = Trim$(varFields(2)) End Select Loop 'This is where I need to move back to the first line of the input file 'Call Procedure Based on ISA and Group ID Next 'DoCmd.Hourglass False DoCmd.Echo True End Sub
Join the community of 500,000 technology professionals and ask your questions.