MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Abrir Formulario em Modo Edicao

    Compartilhe

    Claudemir P
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 170
    Registrado : 27/06/2013

    [Resolvido]Abrir Formulario em Modo Edicao

    Mensagem  Claudemir P em Seg 29 Fev 2016, 11:44

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9543
    Registrado : 04/11/2009

    Re: [Resolvido]Abrir Formulario em Modo Edicao

    Mensagem  JPaulo em Seg 29 Fev 2016, 13:49

    Assim;

    Código:
    Me.SubForm_Prod_Estoque.Form.AllowAdditions = True


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Claudemir P
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 170
    Registrado : 27/06/2013

    Re: [Resolvido]Abrir Formulario em Modo Edicao

    Mensagem  Claudemir P em Seg 29 Fev 2016, 17:00

    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

    Claudemir P
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 170
    Registrado : 27/06/2013

    Re: [Resolvido]Abrir Formulario em Modo Edicao

    Mensagem  Claudemir P em Ter 01 Mar 2016, 04:37

    Obrigado

      Data/hora atual: Qua 20 Set 2017, 21:05