Search results

Wayne Glad you find thread interesting. Did not really follow what you are saying. Have now looked at your attachment. Can understand the concept. The Autonumbers seem to rise very quickly with my messing around. On my original table I didn't want to use autonumbers because of the very reason of...

You're a very patient man Bob. Two words on single line and I couldn't get that right. Maybe coding isn't for me. Better to stop at "Hello World". Did Try Me.Requery higher up. However have inserted it in correct place and as soon as I click on Update Special numbers Button I get a compilation...

Code is the same. Set afterupdate on form which initially does not show reordered numbers but moving back or forwards does. At least I do not have to close and reopen form. Am I on right track? Tried. But this didn't work Private Sub Form_Afterupdate() Me![Specials].Requery End Sub.

Okay. then I am getting it to work. Only other thing is also must close form and reopen for to show renumber entries also most move manually to next record after line 6 of your earlier notes( change 3 to). This could be a little inconvenient when you have several changes to make in the list

Have not gone through new code line for lies as yet. Obvious differences are option Explicit and the Field1_ AfterUpdate at the end. Had to Change "Field1" to Special (my field name) to get Code to work. Other thing after changing #3 to #9 have move to another record

I am missing something. Trying, using your numbers moving 3 to 8. First step okay - renumbering successful. Retrieve #3 (on my Form using navigation buttons) and change to #9. At this point I have no #3 to Delete (now #9). Tried going back to table to see what had happened and get message...

Success at last, am now creating space and renumbering. Scrolled up and down code and got it to run right through. Adding new records okay but as said in first post some are removed completely or moved from one position to another as previously mentioned with respect of National Body moving...

Had noticed and corrected the Special spelling at the time of mentioning the error TOF but didn't mention in my post. Had wondered if I was being tested. Will go back again to inspect code to see if I can find anything else. While I have been working through this I can see it working as I would...

Placed ">" in line 17 column 28. Have been working with debugging several times as you suggested. Entered #4 in first input box. Watching as I scroll down every thing works okay, worked through loop 4 times. Go back to Table and see that the records after 4 (Only 8 in List). Back to Visual Basic...

Appreciate advice above you sent. Working with No Duplicates code. Picked up a couple of typing errors. Line 17 FROM Prizes Should have read FROM Specials. (Major error from me as I should have had field name as SpecialNbr but renamed the field to Work with code. Too confusing With Field Special...

Bob. Thanks for all your help so far. Must be frustrating helping non techies like myself. Will try latest code later this afternoon. Couple of questions. 1. can you recommend a staring point for learning more about code, and secondly before I started down this track I was looking at other code...

Yes I have indexed the Special field. I do want sequential numbers they could without duplicates. I have only used duplicates allowed to be able to place the entries where I want them to be. To explain what I am doing. The whole file is to do with a Bird Show. Receiving entries Placing winning...

Hope fishing was okay. Still struggling with what I have, seem to be going backwards. Looked a Gemma's code looks a lot simpler, but not sure how and where to apply. She did mention about Duplicates which I need to "insert" new Special. Get lost with the terms error handler and resume...

Thanks for your reply. The principle you have set out is correct. I have the field set to have Duplicates because when I add a new "Special" I have to add it at the bottom of the file and I can do that by entering the field with a decimal point. Suppose the new record must be placed after the...

The Special number is not an autonumber field. Have included the single quote and the error line is (shows line 21 on my screen) Set Lrs = db.Openrecordset(LSQL). Did make 2 other changes in lines 17 and 25. Changed the word DATA to Prizes which is the name of the Table.

Thanks for reply tried removing brackets but got same result. did not mention I do get first message box asking for start number. Could you please explain more 'On Error GoTo Err_Execute' as I mentioned I do not know a lot about code.

I have a situation where I need to renumber a field occasionally. It is a prize list for awards which needs added to and occasionally items deleted from. I do not have a good understanding of code but managed to find the below code and have adapted it to suit the Field I am trying to renumber. I...