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

[bmaccess]

Hi there.
This was all I ask.
I would like to know if there are code which I can put in a button outside a subform to select the new record on a subform. I do not want my user to click on the asterisk(*) to add data. Adding a new blank record
I made a video if this was unclear to all.

 

[cheekybuddha]

In your button code you can do:

Private Sub cmdSubformNewRecord_Click()

  Forms.YourFormName.SubformContainerName.Form.txtSomeTextboxName.SetFocus
  DoCmd.GoToRecord , , acNewRec

End Sub

Substitute the actual names for the form, subform container control (this may be different from the name of the subform used as its SourceObject, and the name of a textbox on the subform.

If the button is on the main form then you can use:

Private Sub cmdSubformNewRecord_Click()

  Me.SubformContainerName.Form.txtSomeTextboxName.SetFocus
  DoCmd.GoToRecord , , acNewRec

End Sub

 

[ebs17]

I will look at the db.

You probably haven't gotten around to it yet because you're pondering problems and having to make videos.
You can't allow yourself to be distracted, and problems are there for you to have, not for you to solve.

I would be curious to find out how you approach real tasks when you're dancing in circles for a week because of something trivial.

 

[cheekybuddha]

Actually, it's even simpler:

Private Sub cmdSubformNewRecord_Click()

  Me.SubformContainerName.SetFocus
  DoCmd.GoToRecord , , acNewRec

End Sub

 

[cheekybuddha]

You probably haven't gotten around to it yet because you're pondering problems and having to make videos.
You can't allow yourself to be distracted, and problems are there for you to have, not for you to solve.

I would be curious to find out how you approach real tasks when you're dancing in circles for a week because of something trivial.

How is this constructive?

Does it make you feel clever?

 

[LarryE]

In your button code you can do:

Private Sub cmdSubformNewRecord_Click()

  Forms.YourFormName.SubformContainerName.Form.txtSomeTextboxName.SetFocus
  DoCmd.GoToRecord , , acNewRec

End Sub

Substitute the actual names for the form, subform container control (this may be different from the name of the subform used as its SourceObject, and the name of a textbox on the subform.

If the button is on the main form then you can use:

Private Sub cmdSubformNewRecord_Click()

  Me.SubformContainerName.Form.txtSomeTextboxName.SetFocus
  DoCmd.GoToRecord , , acNewRec

End Sub

DoCmd.GoToRecord , , acNewRec will produce an error. Use:
DoCmd.RunCommand acCmdRecordsGoNew instead.

 

[bob fitz]

I thought maybe there was a glimmer of hope. We will see.

I think everybody should be able to see now. Remember the saying, "Abandon hope all ye who enter here".

 

[cheekybuddha]

DoCmd.GoToRecord , , acNewRec will produce an error. Use:
DoCmd.RunCommand acCmdRecordsGoNew instead.

That's funny!

DoCmd.RunCommand acCmdRecordsGoToNew
'                              ^^

The above produced an error for me:
Run-time error '2046':

The command or action 'RecordsGoToNew' isn't available now.

 

[ebs17]

I don't like this DoCmd stuff. This always has a certain randomness because it is applied where the application believes it is current.
SetFocus is just a crutch.
If an object has a name, I can address it directly with that name. I don't have to put my finger on it to reach an understanding about who is meant.
This is a question of style.
When I talk to people, I don't have to tap them with my finger.

 

[cheekybuddha]

If an object has a name, I can address it directly with that name. I don't have to put my finger on it to reach an understanding about who is meant.
This is a question of style.

I completely agree.

I have just seen your example in Post #59, and it is a much better solution than relying on SetFocus and DoCmd.

 

[LarryE]

That's funny!

DoCmd.RunCommand acCmdRecordsGoToNew
'                              ^^

The above produced an error for me:
Run-time error '2046':

The command or action 'RecordsGoToNew' isn't available now.

I get no error at all after setting the focus to a sub-form from a parent form.

 

[mike60smart]

Hi there.
This was all I ask.
I would like to know if there are code which I can put in a button outside a subform to select the new record on a subform. I do not want my user to click on the asterisk(*) to add data. Adding a new blank record
I made a video if this was unclear to all.

It would appear that you are not willing to take note of the advice given by most of the recognised experts on the Forum.

It would be easier if you can upload a copy of the database with no confidential data.

 

[MajP]

I would like to know if there are code which I can put in a button outside a subform to select the new record on a subform. I do not want my user to click on the asterisk(*) to add data. Adding a new blank record

There has been 50+ threads that explain how to do exactly that with multiple techniques with demos too! Not a single example or code had the user click on the new record. All kinds of different ways. Append queries, recordset manipulation, and even the application methods Docmd. Yet, no one here can figure out why these solutions do not meet your needs, because you refuse to answer any simple questions.

 

[LarryE]

I checked out when the OP refused to fix the schema. Having names for the student and book as the PK is just wrong.

I was just going to say that. All of this doesn't matter anyway because looking at the design, I don't know how any of this can work.
I'm going to join the others in the bar for Re-Tox....

 

[bmaccess]

I was just going to say that. All of this doesn't matter anyway because looking at the design, I don't know how any of this can work.
I'm going to join the others in the bar for Re-Tox....

Hi there. This program has been has been working for the last 3 years with no problems. All I would like to do now is an upgrade to the application so that a barcode scanner can be used to scan the books out on issues and scan in on return.

 

[bmaccess]

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.

 

[MajP]

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.

Not true! Plenty examples provided where code is launched from main form. Mine for example.

 

[bmaccess]

Not true! Plenty examples provided where code is launched from main form. Mine for example.

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

 

[bmaccess]

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

 

[LarryE]

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

Where did you get this code?