Solved How do I move to a new record automatically in a subform

bmaccess said:
Hi there all. Thank you for all the feedback. My apologies if you feel that I did not give you proper feedback on why the code did not work.
All of your code work if the Add New Record is inside the subform. When the Add New Record button is outside the subform unfortunately the code provided did not work or there were some error somewhere. Once again thanks to all for the comments and feedback.
I would like to thank GPGeorge for post #6. I used that post to solve the problem.
Click to expand...
Not true! Plenty examples provided where code is launched from main form. Mine for example.
 
MajP said:
Not true! Plenty examples provided where code is launched from main form. Mine for example.
Click to expand...
Hi there. I liked you example. The adding of new records worked nicely. I will try again your example and see if it can work with my original application. I will let you know if I manage to get it going. Your code was the easiest and really liked it. All I need is to just get the new records populated correctly. Thanks
 
Last edited:
Hi MajP. Your code work nicely, But it overwrites my current record. Any suggestions. I will happy if it works. Thanks

Private Sub cmdAddRecord_Click()
frmStudentBooksSubform.SetFocus
With Me.frmStudentBooksSubform.Form.Recordset
.AddNew
.Update
End With
frmStudentBooksSubform.SetFocus
With Me.frmStudentBooksSubform.Form
.BookTitle = Me.cmbBookNoTitle.Column(1)
.StudentBookIssue_ID = Me.cmbBookNoTitle.Column(0)
End With
 
bmaccess said:
Hi MajP. Your code work nicely, But it overwrites my current record. Any suggestions. I will happy if it works. Thanks

Private Sub cmdAddRecord_Click()
frmStudentBooksSubform.SetFocus
With Me.frmStudentBooksSubform.Form.Recordset
.AddNew
.Update
End With
frmStudentBooksSubform.SetFocus
With Me.frmStudentBooksSubform.Form
.BookTitle = Me.cmbBookNoTitle.Column(1)
.StudentBookIssue_ID = Me.cmbBookNoTitle.Column(0)
End With
Click to expand...
Where did you get this code?
 
Code: 
With Me.frmStudentBooksSubform.Form.Recordset
   .AddNew
   .Update
 End With
Click to expand...
That's pretty much nonsense.
An empty record is created (=> hot air) and at best a auto value is burned. How long did you have to think about it to write something like that?
 
I tested this code
ebs17 said:
That's pretty much nonsense.
An empty record is created (=> hot air) and at best a auto value is burned. How long did you have to think about it to write something like that?
Click to expand...
Oops my fault. In the beginning of this thread we were simply trying to prove that you can do an add new and move to the last record. Along with demonstrating other things. After demoing that I should have fixed the code.

How about?
Code: 
Private Sub cmdAddRecord_Click()
  dim rs as dao.recordset
  set rs = me.frmStudentBooksSubform.Form.Recordset
 rs.AddNew
    rs!BookTitle = Me.cmbBookNoTitle.Column(1)
    rs!StudentBookIssue_ID = Me.cmbBookNoTitle.Column(0)
  rs.update
end sub
 
Last edited:
@MajP, looks like there is an errant 'With' in your adjusted code (Or a missing 'End With' and a few surplus 'rs's).
 
Last edited:
Hello guys. Thanks to you all. I have solve my original problem. I do not even need a button to add a new record. Once I added a record I just scroll down when I need to add another record.
1699310610067.png
 
Well, I for one am completely lost in this thread. No clue whatsoever.
 
bmaccess said:
Hello guys. Thanks to you all. I have solve my original problem. I do not even need a button to add a new record. Once I added a record I just scroll down when I need to add another record.
View attachment 110818
Click to expand...
Which, of course, is the opposite of what you said you wanted in Post #1. So all this time we gave you solutions you didn't even want or need. Well done bmaccess.
 
I am almost thinking the whole thing was a prank and we all got played. If so well done.
 
Hello guys. This was no prank. I am not here to waste your time and my time on pranks. To a certain degree the problem is solved when I am not using a scanner I can click in the combo box. When I tried using the scanning it looks like my problem not completely solve. I have notice on this forum and other forums that other people are asking the exact same thing that I am asking and nobody are able to solve it. I am still going to try and find a solution. Thanks
 
LarryE said:
Which, of course, is the opposite of what you said you wanted in Post #1. So all this time we gave you solutions you didn't even want or need. Well done bmaccess.
Click to expand...
Testing using a scanner my problem is not solve. So I need to find code to solve my original problem again. But I am looking at all of your code to see what works and don't. I am greateful for all your input. Thanks
 
If all fails the user must just click on the asterisk(*) to add a new new. MajP your Add new works, but the new record is not selected or have a blue bar on it to accept data immediately. That is what I want, when you say add new, a new record must be added and the whole record must be selected which means it must have the blue bar or selected at the same time. This is what i have been asking from the very start. Those interested in still helping me are most welcome. I try out all code people is suggesting.
 
addnew.png


For the LOVE OF GOD, someone please explain to me how the added record is not selected in any of the three versions of code. I click on the button to add Stephen Lai and Steven Lai is added. Stephen Lai is selected with a blue bar and editable.
Its ADDED
Its SELECTED
Its BLUE BLUE BLUE BLUE....
hat is what I want, when you say add new, a new record must be added and the whole record must be selected which means it must have the blue bar or selected at the same time.
Click to expand...
 

Solved - How do I move to a new record automatically in a subform

This is the code I used just add new record. Private Sub cmdAddRecord_Click() With Me.frmStudentBooksSubform.Form.Recordset .AddNew .Update End With
www.access-programmers.co.uk

Solved - How do I move to a new record automatically in a subform

This ranks up to the absolutely stupidest thread I have ever participated in! I have never seen an OP unable to look at suggestions and provide comments and be unable to explain why it does not meet their needs or further explain their requirements. @Gasman and @LarryE I am tapping out and...
www.access-programmers.co.uk
When the Add New Record button is outside the subform unfortunately the code provided did not work or there were some error somewhere. Once again thanks to all for the comments and feedback.
Click to expand...
Never ever in the example file shown, and there the button is outside the subform.

some error somewhere
Click to expand...
Not in the example. But probably in your work. You should separate them linguistically, and you should know and name exactly where you do something.

Alternatively, you could also contact the developer of your database, because with the "skills" shown here, I don't think you've created anything that works yourself. What you are doing here seems like a confused wandering around in an unfamiliar environment.
 
MajP said:
View attachment 110855

For the LOVE OF GOD, someone please explain to me how the added record is not selected in any of the three versions of code. I click on the button to add Stephen Lai and Steven Lai is added. Stephen Lai is selected with a blue bar and editable.
Its ADDED
Its SELECTED
Its BLUE BLUE BLUE BLUE....
Click to expand...
Yes, the record is Stephen Lai is BLUE. Write me code to give me a BLANK NEW RECORD under Stephen Lai and make it BLUE with no data in it thats what I am asking for.
 
T
bmaccess said:
Yes, the record is Stephen Lai is BLUE. Write me code to give me a BLANK NEW RECORD under Stephen Lai and make it BLUE with no data in it thats what I am asking for.
Click to expand...
That has been demonstrated 10 thousand times and every time you say that is not what you want. I think that was demoed in post 3 or 4. It was demoed using a recordset add new and using the docmd.
Code: 
  Dim frm As Access.Form
  Set frm = Me.subFrmStudents.Form
  Me.subFrmStudents.SetFocus
  DoCmd.RunCommand acCmdRecordsGoToNew
  'or
  'Dim frm As Access.Form
  'Dim rs As DAO.Recordset
  'Set frm = Me.subFrmStudents.Form
  'Set rs = frm.Recordset
  'frm.Recordset.AddNew

Now this whole thing seems stupid. You said you wanted to populate the records from a combobox outside the subform. So why would you do this we will never know. The normal person would assume you select an item from the combobox and it creates a new record.

new.jpg


So now there is a new record
It is selected

SO HOW IS THIS NOT WHAT YOU WANT?
 
You must log in or register to reply here.

Similar threads

A
Including a sub-form in a form triples the number of records - why?
Replies
8
Views
101
akedm
A
D
Solved I use VBA to adjust the height of a continuous subform based on # of records, but my subform only adjusts to show up to 3 at a time w/ scrollbar
2
Replies
24
Views
891
Mark_
M
J
Solved subform remains blank after new record saved
Replies
3
Views
582
Jaks
J
Papa_Bear1
How do I allow a new record to be created (by button push) on a form, while requiring the user change one value from its default?
Replies
16
Views
539
Pat Hartman
P
M
Solved Query: Unable to Add New Records to Subform Related to the Main Form Through Another Table
Replies
9
Views
357
mike60smart
mike60smart

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top Bottom