(Check the "Optimize" property.) To do so, you have to use a Client-side cursor, though, and they are not directly updatable. (Last one had to do with a less-than-complete understanding of how cursortype and cursorlocation interact, as I recall.) You have an impressive range of expertise and people listen to you.
Text & "'" ' Open the Northwind Customers table. Open "Simply Basic Weighbridge Control System" Set rs = New ADODB. Open "Access", Con, ad Open Forward Only, , ad Cmd Table ' Find the first record matching the criteria. Find str Criteria, 1, ad Search Forward ' Provide a response to the user. EOF Then Set rs = Nothing Else Msg Box "User Number already exists" Exit Sub End If If txt User Name. ", vb Exclamation, "Input Error" Else Set rs = New ADODB. Open "Access", Con, ad Open Dynamic, ad Lock Optimistic, ad Cmd Table rs. There is a way to dynamically index a recordset to improve the performance of the Find and Sort methods. I don't mean to embarrass you, Andrew, but you should probably check your answers more carefully before you make them, in particular with ADO since this isn't the first howler you've made in your ADO answers.
It's ten years old, and some changes have been made with later versions of ADO (notably the Keyset Cursor Type doesn't need you to do a Move Last before you get an accurate record count anymore), but it lays out the different types pretty well.
I am trying to up date a record but get the following error. This may be a limitation of the provider, or of the selected locktype. EOF then 'Add hidden fields to be inserted into database Budgetedtotal = Request. Form("Budgetedtotal") 'Add hidden fields to be inserted into database rs("Budgetedtotal") = Budgetedtotal rs("Budgeteddress") = Budgetedtotal * .15 rs("Budgeted Musicians") = Budgetedtotal * .15 rs("Budgeted Flowers") = Budgetedtotal * .15 rs("Budgetedofficiant") = Budgetedtotal * .10 rs("Budgetedreceptionhall") = Budgetedtotal * .10 rs("Budgeteddinner") = Budgetedtotal * .30 rs("Budgetedcake") = Budgetedtotal * .10 rs.update Thanks again for all your help.
Since you could improve the quality of the help you give if you go to a little more trouble to verify your answers, I would think that you would consider it your responsibility to do so, given that you want to be as helpful as you are able.
As for the term howler, I didn't say it to give offense.
A dynamic cursor is not only updatable, it updates itself with all the additions and changes of other users.
Text ' Saves the customer ID to the database rs. str Criteria = "reference = " & "'" & txt User Number. Text = "" Then Msg Box "Some fields are still empty! Obviously, this can complicate a back end migration from Access to SQL Server or Oracle, so it becomes a potential scalability risk. Move Last End Sub Three guesses which line errors out with "Rowset does not support fetching backward"?
Update ' Handle the data Private Sub btn Add_Click() Dim str Criteria As String Dim lng Cur Record As Long ' Trap the user's search entry. An important point about the Seek method is that it only works with "native JET databases" meaning Access and nothing else.
Filter doesn't actually alter contents of the recordset, it just changes the "logical size" of the recordset by reducing the number of records that can be viewed. Feel free to correct me if I make any mistakes, but I will continue to post if I feel I have something useful to offer to the OP. Here's my view: since this is the second time that you have given out incorrect information like this, I felt it was my responsibility as a forum leader to say something.
I've found I get great performance for low overhead by using a combination of select queries, filters, and update queries to get what I want. I can tell you that unless I'm quite sure that I know the answer, yes, I do check it. Sometimes I'm sure I know the answer and I'm wrong, too.