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]SubFormulário de Compras Bloqueado

    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]SubFormulário de Compras Bloqueado Empty [Resolvido]SubFormulário de Compras Bloqueado

    Mensagem  Samuel Ribeiro em 8/1/2019, 15:08

    Boa tarde

    Depois de muito tempo retornei abrindo um tópico neste respeitável Fórum.
    Este erro que vou postar ja havia ocorrido comigo uma vez, mas não me lembro como resolvi, quando abro o formulário de registro de compras seleciono o fornecedor normalmente e preencho os campos que precisam se preenchidos, mas quando vou acrescentar produtos no sub Formulário ele esta bloqueado e não deixa ser acrecentado registros
    Segue imagem e código do formulário:
    Código:
    Option Compare Database

    Private Sub Ref1_AfterUpdate()
    Prod.Requery

    End Sub
    Private Sub Comando21_Click()
    On Error GoTo Err_Comando21_Click


        DoCmd.GoToRecord , , acNewRec

    Exit_Comando21_Click:
        Exit Sub

    Err_Comando21_Click:
        MsgBox Err.Description
        Resume Exit_Comando21_Click
        
    End Sub
    Private Sub Comando22_Click()
    On Error GoTo Err_Comando22_Click


        DoCmd.GoToRecord , , acPrevious

    Exit_Comando22_Click:
        Exit Sub

    Err_Comando22_Click:
        MsgBox Err.Description
        Resume Exit_Comando22_Click
        
    End Sub
    Private Sub Comando23_Click()
    On Error GoTo Err_Comando23_Click


        DoCmd.GoToRecord , , acNext

    Exit_Comando23_Click:
        Exit Sub

    Err_Comando23_Click:
        MsgBox Err.Description
        Resume Exit_Comando23_Click
        
    End Sub
    Private Sub Comando24_Click()
    On Error GoTo Err_Comando24_Click


        DoCmd.Close

    Exit_Comando24_Click:
        Exit Sub

    Err_Comando24_Click:
        MsgBox Err.Description
        Resume Exit_Comando24_Click
        
    End Sub
    Private Sub Comando25_Click()
    On Error GoTo Err_Comando25_Click


        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

    Exit_Comando25_Click:
        Exit Sub

    Err_Comando25_Click:
        MsgBox Err.Description
        Resume Exit_Comando25_Click
        
    End Sub
    Private Sub btnRelatorioDeCompras_Click()
    Dim strDocName As String
    Dim strFilter As String

    strDocName = "rltCompras"
    strFilter = "id = Forms!Compras!id"
    DoCmd.OpenReport strDocName, acViewPreview, , strFilter
        
    End Sub


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3811
    Registrado : 06/11/2009

    [Resolvido]SubFormulário de Compras Bloqueado Empty Re: [Resolvido]SubFormulário de Compras Bloqueado

    Mensagem  Assis em 8/1/2019, 15:30

    Samuel

    O melhor será postar a BD, e indicar o nome do formulário que tem o subformulário bloqueado.


    .................................................................................
    *** Só sei que nada sei ***
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]SubFormulário de Compras Bloqueado Empty Re: [Resolvido]SubFormulário de Compras Bloqueado

    Mensagem  Samuel Ribeiro em 8/1/2019, 17:04

    Boa Tarde Assis
    Este sistema eu copiei da Internet e estou tentando adaptar para usar ele na loja em que trabalho segue bo BD.  
    Anexos
    [Resolvido]SubFormulário de Compras Bloqueado AttachmentVendas.zip
    O nome dos Forms são compras e comprasSub
    Você não tem permissão para fazer download dos arquivos anexados.
    (452 Kb) Baixado 6 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3811
    Registrado : 06/11/2009

    [Resolvido]SubFormulário de Compras Bloqueado Empty Re: [Resolvido]SubFormulário de Compras Bloqueado

    Mensagem  Assis em 8/1/2019, 18:53

    Samuel
    Faltam as tabelas.

    Aguardo


    .................................................................................
    *** Só sei que nada sei ***
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]SubFormulário de Compras Bloqueado Empty Re: [Resolvido]SubFormulário de Compras Bloqueado

    Mensagem  Samuel Ribeiro em 9/1/2019, 13:05

    Bom dia Assis

    Consegui resolver este erro aqui, era o campo filho que estava errado.
    Obrigado pela ajuda.


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro

      Data/hora atual: 26/4/2019, 01:23