troubleshooting Question

document link on server

Avatar of pratigan
pratiganFlag for United States of America asked on
Lotus IBM
17 Comments1 Solution468 ViewsLast Modified:
I have a script that when selected from the navigator, it takes you to the lan server and accesses either a word doc or excel spreadsheet schedule.  It works great... the problem I am now encountering is people not being able to open the documents at different times and able to other times.  I'm thinking it has to do with the document being locked by someone updating it at that time.  
There is only a select group of individuals that have update authority and read only for others.
here is the script .
Do you see any other way to do this to ensure everyone can read the link spreadsheets no matter what, and only the select group update by the server security.
Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim rc  As Integer
     Dim Tranlink As Variant
     
     Dim tempList(4) As String
     tempList(0) = "eMedNY Inbound"
     tempList(1) = "eMedNY Outbound"
     templist(2) = "MMIS Inbound"
     templist(3) = "MMIS Outbound"
     templist(4) = "eMedNY 24-7 Interface Timeline"
     
     Tranlink  = workspace.Prompt( PROMPT_OKCANCELLIST,"Interfaces", "Please Select an Interface Type from the list below or cancel ", "", tempList )
     
     If Tranlink = "eMedNY Inbound" Then
          'Msgbox "cmd/C  ""\\20.20.128.39\CSC\SDG DOC Repository\"& X &"\GIST0008 - Xcom File Transfers.xls"" ",,"Please Note path:"
          rc = Shell ("cmd /C  ""\\20.20.128.39\CSC\teams\implementation\deployment\estar link\eMedNYin.xls"" ")
     Else    
          If Tranlink = "eMedNY Outbound" Then
               rc = Shell ("cmd /C  ""\\20.20.128.39\CSC\teams\implementation\deployment\estar link\eMedNYout.xls"" ")
          'rc = Shell ("cmd /C  ""\\20.20.128.39\CSC\teams\implementation\claims\scheduling\flowcharts\getreceive.bat"" ")
          Else
               If Tranlink = "MMIS Inbound" Then
                    rc = Shell ("cmd /C  ""\\20.20.128.39\CSC\teams\implementation\deployment\estar link\MMISin.xls"" ")          
          'rc = Shell ("cmd /C  ""\\20.20.128.39\CSC\teams\implementation\claims\scheduling\flowcharts\gettransmit.bat"" ")
               Else    
                    If Tranlink = "MMIS Outbound" Then
                         rc = Shell ("cmd /C  ""\\20.20.128.39\CSC\teams\implementation\deployment\estar link\MMISout.xls"" ")
          'rc = Shell ("cmd /C  ""\\20.20.128.39\CSC\teams\implementation\claims\scheduling\flowcharts\getreceive.bat"" ")
                    Else
                         If Tranlink = "eMedNY 24-7 Interface Timeline" Then
                              rc = Shell ("cmd /C  ""\\20.20.128.39\CSC\teams\implementation\deployment\estar link\247time.xls"" ")
          'rc = Shell ("cmd /C  ""\\20.20.128.39\CSC\teams\implementation\claims\scheduling\flowcharts\getreceive.bat"" ")
                         End If
                    End If                        
               End If                    
          End If              
     End If          
End Sub
ASKER CERTIFIED SOLUTION
zvonko

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 17 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 17 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros