Dlookup when yes/no box clicked

[whojstall11]

I have a table (Current Meds) nested on my form that has a yes/no box (discontinue) clicked in every data entry. When i click on the yes/no box (discontinue) I want to copy all the data in that row and add it to a different nested table (tblNotesCurrentMeds) on that same form. I cant get it to work can anybody help my code so far.

Private Sub Discontinue_AfterUpdate()
If Discontinue = -1 Then
Initial = DLookup("Initial", "Current Meds", "IDCurrentMeds = '" & [IDCurrentMeds] & "'")
Else
End If
End Sub

[uncletreetrunk]

DLookup will return what set it out to look for not the entire row. You may want to change the name of the variable you set DLookup so it doesn't match the field name.

As for being able to "copy" and "paste" rows with VBA you'll have to wait for someone who is more skilled with access to help you.

Short read on DLookup: http://www.techonthenet.com/access/f...in/dlookup.php

[whojstall11]

yea i know it not going to return the entire row if i get the first one working it is the same for the rest of them so it should look something like

Initial = DLookup("Initial", "Current Meds", "IDCurrentMeds = '" & [IDCurrentMeds] & "'")
date = DLookup("date", "Current Meds", "IDCurrentMeds = '" & [IDCurrentMeds] & "'")
nest = DLookup("nest", "Current Meds", "IDCurrentMeds = '" & [IDCurrentMeds] & "'")

but ill try changing up the fields.