I am new at Access and using 2016. I am creating a database and have a form that I created a second page to. When my End Users click on the button to Page 2, it comes up blank.
What I want is for Page 2 of this form to automatically pull in the UniqueID, FullNme and ClientID. The rest of Page 2 is manually filled in. This would complete the form itself. The code that I have for the initial page is as follows:
Code:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo err_Form_Open
DoCmd.MoveSize , , , 14500
DoCmd.GoToRecord , , acNewRec
Dim Master As String
Master = "frm_Main_ADDP"
Com_Apply_for.SetFocus
DoCmd.Close acForm, Master, acSaveYes
Lab_final.Visible = False
Com_UnderRev.Visible = True
Lab_Final_Rev.Visible = False
Text_Final_Rev.Visible = False
Text_Pay_Month_Main.Visible = False
Lab_Pay_Month_main.Visible = False
Com_Next_Gender.Visible = False
Pag_Gen_Race.Visible = False
Fra_Spouse.Visible = False
Lab_Spouse.Visible = False
Text_Fam_Nme.Visible = False
Lab_Spouse_HIV.Visible = False
Fra_Spouse_HIV.Visible = False
Text_Spouse_HIV.Visible = False
Line_HIV_one.Visible = False
Line_HIV_two.Visible = False
Line_HIV.Visible = False
Com_Pos_Sp.Visible = False
Lab_HIV.Visible = False
Com_Close_Alt.Visible = True
Fra_Veteran = 2
Text_Vet = "NO"
Fra_Citizen = 1
Text_Cit = "YES"
exit_Form_Open:
Exit Sub
err_Form_Open:
MsgBox Err.Description
Resume exit_Form_Open
End Sub
I am at a loss as to what to change to get page 2 to populate correctly. Any suggestions or assistance will be greatly appreciated.
MrsNLynah
