I designed a tool using vba with few buttons (Get claim, Save, Hold and Clear). Work allocation is at separate file within same shared drive from which claim will come to handlers one by one. (Process first then ll be able to get next one)
Managing 100 people on this seems difficult, when multiple people click on Save or Hold button at same time. Because data should get save at its original position (row/column in which it was allocated)
i am able to do this with single user but if more than one user clicks at same time then it create issue. Either it shows debug error or allocation file gets open. How to handle multiple people at same time.
My code is something like this:
Sub test()
Const sCONN As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Allocation.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
Dim sSQL As String
Dim objRS As Object 'Make the SQL sSQL = Join$(Array("UPDATE [Hire$]", _ "SET TaskStatus = 'Complete'", _ "WHERE TaskName = 'alpha' AND EmpID = 2"), vbCr)
Set objRS = CreateObject("ADODB.Recordset")
objRS.Open sSQL, sCONN
Set objRS = Nothing
End Sub
Managing 100 people on this seems difficult, when multiple people click on Save or Hold button at same time. Because data should get save at its original position (row/column in which it was allocated)
i am able to do this with single user but if more than one user clicks at same time then it create issue. Either it shows debug error or allocation file gets open. How to handle multiple people at same time.
My code is something like this:
Sub test()
Const sCONN As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Allocation.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
Dim sSQL As String
Dim objRS As Object 'Make the SQL sSQL = Join$(Array("UPDATE [Hire$]", _ "SET TaskStatus = 'Complete'", _ "WHERE TaskName = 'alpha' AND EmpID = 2"), vbCr)
Set objRS = CreateObject("ADODB.Recordset")
objRS.Open sSQL, sCONN
Set objRS = Nothing
End Sub
