How to update data in one table w/ multiple forms

  • Thread starter Thread starter Roel
  • Start date Start date
R

Roel

Hi all,

I have 1 table w/ many data elements in it. I also created
2 forms (Interviewer & Interviewee).. 1 form where a user
gets to enter their LastName, FirstName, Middle, Email,
Phone, and ID.

Another form is where they enter in the people they
interviewed and their responses: InterviewLastName,
InterviewFirstName, InterviewMiddle, InterviewEmail, &
InterviewPhone. I want to tie this two forms w/ the ID so
that I know who interview who. The problem I'm getting is
that when I enter in the data on the first form
(Interviewer) and I click the button to open the
INterviewee form, after I enter the data on the Interviewee
form and look at the table, I don't see the Interviewer
data. I only see the Interviewee information. Please help.

Thanks.
(e-mail address removed)
 
Just wanted to add that these are the codes behind the
button that closes the form:

Interviewer form (where interviewer's data is inputted)
Private Sub Command12_Click()
On Error GoTo Err_Command12_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_Main"

stLinkCriteria = "[EmployeeID]=" & "'" &
Me![EmployeeID] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "frm_Company", acSaveRecord

Exit_Command12_Click:
Exit Sub

Err_Command12_Click:
MsgBox Err.Description
Resume Exit_Command12_Click

End Sub

Interviewee form:
Private Sub Command42_Click()
On Error GoTo Err_Command42_Click

Dim stLinkCriteria As String

stLinkCriteria = "[EmployeeID]=" & "'" &
Me![EmployeeID] & "'"

DoCmd.Close acForm, "frm_Main", acSaveYes

Exit_Command42_Click:
Exit Sub

Err_Command42_Click:
MsgBox Err.Description
Resume Exit_Command42_Click

End Sub
 
Back
Top