[Resolvido]Abrir Formulario em Modo Edicao

Ao abrir o formulário com o seguinte código gera erro na linha que permite adicionar novos registros:

Código:

Private Sub BtEdit_Click()
Dim X As String
Dim Y As String
Dim CodProd As Integer

           CodProd = [CodProdDescricao]
           X = InputBox("Digite o seu Usuário...") 'inputbox texto
           Y = InputBoxDK("Digite a sua Senha...") 'inputbox com mascara de password
       
       If X = DLookup("User", "TbColaborador", "User='" & X & "' And senha = '" & Y & "'") Then
       Z = DLookup("CodColaborador", "TbColaborador", "User='" & X & "'")
           Me.Form.AllowEdits = True
'            Me.Form.SubForm_Prod_Estoque.AllowAdditions = True
           SelCodColaborador = Z
           Me.SubForm_Prod_Estoque.AllowAdditions = True
           Exit Sub
       Else
       MsgBox "Senha incorreta, tente novamente...", vbCritical
       DoCmd.CancelEvent
       End If
End Sub


e Se eu fechar e abrir o formulário, permite adicionar porém da erro na linha que permite editar:

Código:


Private Sub BtEdit_Click()
Dim X As String
Dim Y As String
Dim CodProd As Integer


           CodProd = [CodProdDescricao]
           X = InputBox("Digite o seu Usuário...") 'inputbox texto
           Y = InputBoxDK("Digite a sua Senha...") 'inputbox com mascara de password
DoCmd.Close        
       If X = DLookup("User", "TbColaborador", "User='" & X & "' And senha = '" & Y & "'") Then
       Z = DLookup("CodColaborador", "TbColaborador", "User='" & X & "'")
           DoCmd.OpenForm "Form_ProdutoDescricaoDet", , , "CodProdDescricao=" & CodProd, acFormEdit
           SelCodColaborador = Z          
           Exit Sub
       Else
       MsgBox "Senha incorreta, tente novamente...", vbCritical
       DoCmd.CancelEvent
       End If
CodProd = 0
End Sub


Assim;

Código:

Me.SubForm_Prod_Estoque.Form.AllowAdditions = True

Olá JPaulo, alterei a linha, porém gerou erro na linha recomendado.

Após varias tentativas, funcionou assim:

Código:


DoCmd.OpenForm "Form_ProdutoDescricaoDet", , , "CodProdDescricao=" & CodProd, acFormEdit
Form_Form_ProdutoDescricaoDet.SelCodColaborador = Z
            Form_Form_ProdutoDescricaoDet.SubForm_Prod_Estoque.Form.AllowEdits = True
            Form_Form_ProdutoDescricaoDet.SubForm_Prod_Estoque.Form.AllowAdditions = True


Muito Obrigado

Obrigado