Copy value from one form to another

[CrosScottish]

I use the following code in a database I have to copy the course title text box from one form box to another form.

Private Sub CourseTitle_AfterUpdate()
Dim cTitle As String
    cTitle = Me.CourseTitle.Column(0)
    DoCmd.OpenForm "frmCourseStudentRecord", acNormal, , _
    "strCourseTitle='" & cTitle & "'"
    DoCmd.Close acForm, Me.Name
End Sub

This works great but what I can't seem to solve and need some help with is rather than copy the course title to the other form I would like to copy the venue, which is in the same table, linked to this course title but not shown in the form. I would then automatically populate the frmCourse with this. The Row Source for the CourseTitle is a Query based on tblCourslist, which has the venue included in this table.

[rpeare]

does the starting form have a primary key or some other unique identifier in the data source that you can use to look up the value you want?

If so you can use the dlookup function to find the value you want to pass to the new form.

[CrosScottish]

The first form simply searches the course title through a drop down box, but this is linked to the tblCoursetitle, which does have a primary key CourseID.

How do i use the dlookup function in this case.

Thanks for your help.

[rpeare]

forms!newform!newformfieldname = dlookup("[Venue]", "tblCourseList", "[CourseID] = " & forms!currentform!currentformfieldname & ")

where newform is the name of the form you're opening
newformfieldname is the name of the field where you want to put the venue

currentform is the form you're opening the new form from
currentformfieldname is the name of the field that contains the classID

this assumes of course your unique identifier on tblCourseList is named COURSEID and the venue is VENUE.

[CrosScottish]

How do I ammend my code to incorporate the above. Sorry, I am quite new to this.

[rpeare]

There a number of ways to implement it. You could run the command in the ON OPEN event of your secondary form or in the ON CLICK event if your first form button that opens the second form.

[CrosScottish]

If I wanted to keep it as in the original code above on the AfterUpdate in my first form, where do I insert the code you have given me and what would I need to remove?

[rpeare]

Can you post a sample database?

[CrosScottish]

I seem to have solved it. Gone back to an old database I had and worked back with the code.

[alex_raju]

hi,

if i in u r way pls try it.

double click on data source location of main form ( here SrchBarcode)
destination location of subform or other form (here Forms![Invoice]![barcode])



Private Sub srchBarcode_DblClick()
dim BC as string
BC = me![srchBarcode]
Forms![Invoice]![barcode] = BC
end Sub