• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2652
  • Last Modified:

Access code to copy field from one form to another form

In Access 2010 I have a form named frmTimeOff.  In the form I have the following fields.

EmpInit  |  DateOff  |  Hours  |  Comments

I also have a table name Calendar which is a link to a SharePoint Calendar.  From this table I created a form named frmCalendar.

The frmCalendar has the following fields.

Title  |  Start Time  

I placed a Command button in the frmTimeOff form so when clicked it copies the record from the frmTimeOff form to a record in the frmCalendar.  Note the frmTimeOff form is a Continuous form so I have a button next to each record.

I've tried different variations of the following code, but can't get anything to work.  Note I'm only showing copying one field for this example.

Private Sub cmdUpdate_Click()
  Dim intCopyNum As Variant
    intCopyNum = Me.DateOff.Value
      DoCmd.Close
        Forms!frmCalendar.Form.Start_Time.Value = intCopyNum
End Sub

Can anyone help me with this?

Thanks in advance!
0
Senniger1
Asked:
Senniger1
  • 3
  • 2
1 Solution
 
IrogSintaCommented:
Try closing the form after you assign instead of before.
Forms!frmCalendar.Form.Start_Time.Value =intCopyNum
DoCmd.Close

Open in new window

0
 
IrogSintaCommented:
Also, have you tried this?
Forms!frmCalendar.Form.Start_Time.Value = Me.DateOff.Value
0
 
Senniger1Author Commented:
I tried both of your suggestions assuming you wanted me to add the line you gave to the rest of my code.  Neither worked.  
Dim intCopyNum As Variant
intCopyNum = Me.DateOff.Value
Forms!frmCalendar.Form.Start_Time.Value = intCopyNum
DoCmd.Close

Dim intCopyNum As Variant
intCopyNum = Me.DateOff.Value
Forms!frmCalendar.Form.Start_Time.Value = Me.DateOff.Value
DoCmd.Close

I get the same time of error as all the variations I've tried.  The error is a runtime errors...
Run-time error '2450' - Employee Time Card cannot find the referenced form 'frmCalendar'.

The form is there and I've checked the spelling and everything is correct.

Any other ideas?  Thanks!
0
What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

 
IrogSintaCommented:
I just noticed an error in your syntax. Try this:
Private Sub cmdUpdate_Click()
    Forms!frmCalendar.Start_Time.Value = Me.DateOff.Value
    DoCmd.Close
End Sub

Open in new window

0
 
Helen FeddemaCommented:
What are the data types of the fields?
0
 
Senniger1Author Commented:
Turns out it wasn't the code causing the issue.  Looking up the runtime error of 2450 showed I needed to have the frmCalendar open before running the code.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get 10% Off Your First Squarespace Website

Ready to showcase your work, publish content or promote your business online? With Squarespace’s award-winning templates and 24/7 customer service, getting started is simple. Head to Squarespace.com and use offer code ‘EXPERTS’ to get 10% off your first purchase.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now