REPEATING DATA ENTRYA 2

[athai]

Hi All,

another question....I am pulling my hair out for this one!!!
Currently I have a data entry form that input responses to 15 questions. The questions are in a combo box, and the following fields:
1. JobCode
2. Department
3. IntervieweeName
4. IntervieweeTitle

These fields are the same for all questions 1-15, but changes with different users entering the data.

At the moment, the users have been trained to click on the next record arrow at the bottom, and press Ctrl and ' key to repeat the data from previous record for the above fields. this is time consuming.

I was wondering whether I can create a command button that will on click
1. once question 1 has been entered, go to a new form to enter data: and
2. populate the above fields from the previous first record.

Thanks..i know it's long post...but appreciate any insights!!!

 

[RickSpr]

I'm not sure how you can have 15 questions in a combo box, but maybe I don't need to understand it. You want something like this:

    Private Sub cmdNextRecord_Click()
        Dim varJobCode As Variant
        Dim varDepartment As Variant
        Dim varIntervieweeName As Variant
        Dim varIntervieweeTitle As Variant
        
        If IsNull(Me!Question1) Then
            Beep
        Else
            varJobCode = Me!Jobcode
            varDepartment = Me!Department
            varIntervieweeName = Me!IntervieweeName
            varIntervieweeTitle = Me!IntervieweeTitle
            Me.NewRecord
            Me!Jobcode = varJobCode
            Me!Department = varDepartment
            Me!IntervieweeName = varIntervieweeName
            Me!IntervieweeTitle = varIntervieweeTitle
        End If
    End Sub

 

[athai]

RickSpr,

Thank you so much for you help!!! IT WORKED!!!

cheers..

 

[Glad2000]

Thanks RickSpr for this clue. It resolved my problem.