chrisjames25
Registered User.
- Local time
- Today, 17:00
- Joined
- Dec 1, 2014
- Messages
- 401
Hi.
I am trynig to open a editform by clicking a cmd button within a subform of an Addform.
When it opens i need to transfer various data and then close the Addform. Achieved it all other than the close form. Any help would be great
Cheers
I am trynig to open a editform by clicking a cmd button within a subform of an Addform.
When it opens i need to transfer various data and then close the Addform. Achieved it all other than the close form. Any help would be great
Code:
Private Sub Cmd_EditCategory_Click()
DoCmd.OpenForm "Frm_genusEdit"
Forms.frm_genusedit!Cbo_Category.Value = Me.Category_ID
Forms.frm_genusedit!Cbo_Genus.Enabled = True
Forms.frm_genusedit!Cbo_Genus.Value = Me.Genus_ID
Forms.frm_genusedit.Form.Requery
'Forms.frm_genusedit.Cmd_EditGenus.Enabled = False
Forms.frm_genusedit.Chk_GenusActive.Value = Forms.frm_genusedit.Chk_GenusActiveBound
Forms.frm_genusedit.Cmd_EditGenus.Enabled = False
Forms.frm_genusedit.Chk_GenusActive.Enabled = True
Forms.frm_genusedit.Cbo_Genus.Enabled = False
Forms.frm_genusedit.Cbo_Category.Enabled = False
Forms.frm_genusedit.Cmd_CloseForm.Enabled = False
Forms.frm_genusedit.Cmd_EditGenusName.Enabled = True
Forms.frm_genusedit.Cmd_EditGenusName.SetFocus
Forms.frm_genusedit.Cmd_ChangeGenus.Enabled = True
Forms.frm_genusedit.Cmd_Reset.Enabled = True
End Sub
Cheers