Search results

Not sure, but you may not have delimited the search criteria properly. Can't promise this will work, but you could try replacing Rst.Open "SELECT CompanyName FROM Customers WHERE CustomerID = " & _ chr(39) & Document.All.Item("CustomerID").Value & chr(39), Con with Rst.Open "SELECT...

Try adding the following to a standard module: Public Function CountUsers() As Short Dim wrk As DAO.Workspace Set wrk = DBEngine(0) CountUsers = wrk.Users.Count End Function From your code you can now get the number of users simply by calling the function above as...

Thanks for the replies. I have solved the problem. I was updating the upgrade banding AFTER trying to adjust recordset instead of before, effectively using the old value. I've moved this to the start of the sub and the code now works fine. Once again thanks for all your posts. Stoooo :-)

Hi llkhoutx, Thanks for the reply, but I am trying to change the recordset of the subform rather than update the underlying table directly, as the form(s) could be based upon different tables in different situations. As I'm adjusting the form's recordset there is no need to reference the...

Any help with the following problem is gratefully received. I have a combo box on a parent form that causes updates to a commission field in a subform. It is a continuous subform hence the need to scroll through each record in its recordset and apply the update as necessary. The problem is...