Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
objcon.Open CurrentProject.Connection objrst.Open "Users", objcon, adOpenKeyset, adLockOptimistic With objrst Do Until .EOF = True lonCurrID = !UserID strSQL2 = "SELECT UserID, StartDate, EndDate, GroupID, TypeID from Membership where UserID = lonCurrID" objrst2.Open strSQL2, objcon, adOpenKeyset, adLockOptimistic With objrst2 Do Until .EOF = True select case <do various tests> end select .MoveNext Loop End With objrst2.Close .MoveNext Loop End With objrst.Close objcon.Close
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.