Field to autofill based on value in another form

[AussieGal]

Hi,

I bleieve this is a simple fix, but I can't work out how to write the code.

I have a review pop up form (frmReview) where a user selects their Name (StaffID), the type of check they are doing (QuailtyType), and the client they want to do it on (clientID). When they press on the 'do review' command button from this form another form opens (frmReviewDetails) which shows the client they selected from the frmReview form as well as a its subform which shows all the sessions that have been entered for this client along with some fields that have not been complted yet regarding review data. I am trying to have it so when they check the 'review check box' in this subform that today date auto populates in the Review date field (this is currently working). I also want it to auto enter the staffID that they selected on the the initial frmReview form.

This is my currunt code:
Private Sub Rev_AfterUpdate()
If Me.Rev = -1 Then
Me.[RevDate] = Now
Else: Me.RevDate = Null
End If


End Sub

I hope someone can help me work this out. I really don't want a staff to have to enter their name each and every time they check the review box. Not all box's are going to be checked, so it needs to be on a record to record basis.

Thanks in advance!

[AussieGal]

Sometimes I need to poist to answer my own questions...Murphys law!

I got it with the code:

Private Sub Rev_AfterUpdate()
If Me.Rev = -1 Then
Me.[RevDate] = Now
Else: Me.RevDate = Null
End If

If Me.Rev = -1 Then
Me.RevStaff = Forms!frmReview!RevStaff
Else: Me.RevDate = Null
End If
End Sub

Thanks anyway!

[ssanfu]

You can condense the code:

Private Sub Rev_AfterUpdate()

    If Me.Rev = True Then
        Me.[RevDate] = Now
        Me.RevStaff = Forms!frmReview!RevStaff
    Else
        Me.RevDate = Null
    End If

End Sub

Be aware that NOW is the date AND time, whereas DATE is just the date....