My program is working fine now. If any has any suggestion on how I could possible improve the code I would appreciated.
Thank You,
rjoshi2
Code:
Public Function EditRecordMacro()
If IsFormOpened("frmCommitRegMain"

Then
If Forms("frmCommitRegMain"

.Form!frmSubCommitRegDataSheet.Form.Visible = True Then
Forms("frmCommitRegMain"

.Form.AllowEdits = True
Forms("frmCommitRegMain"

.Form.CmdDeleteRecord.Enabled = True
Forms("frmCommitRegMain"

.Form.CmdUpdate.Enabled = True
Forms("frmCommitRegMain"

.Form!frmSubCommitRegDataSheet.Form.AllowEdits = True
Forms("frmCommitRegMain"

.Form!frmSubCommitRegDataSheet.Form.AllowDeletions = True
Forms("frmCommitRegMain"

.Form!frmSubCommitRegDataSheet.Form.AllowAdditions = True
Else
Forms("frmCommitRegMain"

.Form.AllowEdits = True
Forms("frmCommitRegMain"

.Form.CmdDeleteRecord.Enabled = True
Forms("frmCommitRegMain"

.Form.CmdUpdate.Enabled = True
End If
End If
If IsFormOpened("frmCommitRegDataSheet"

Then
Forms("frmCommitRegDataSheet"

.Form!frmSubCommitRegDataSheet.Form.AllowEdits = True
Forms("frmCommitRegDataSheet"

.Form!frmSubCommitRegDataSheet.Form.AllowDeletions = True
Forms("frmCommitRegDataSheet"

.Form!frmSubCommitRegDataSheet.Form.AllowAdditions = True
End If
End Function
Public Function IsFormOpened(strFrm As String) As Boolean
Dim i As Integer
For i = 0 To Forms.Count - 1
If Forms(i).Name = strFrm Then
IsFormOpened = True
Exit Function
End If
Next i
IsFormOpened = False
End Function