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]Aplicar AllowAdditions em SubFormulário

    avatar
    wesley
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 08/11/2011

    [Resolvido]Aplicar AllowAdditions em SubFormulário Empty [Resolvido]Aplicar AllowAdditions em SubFormulário

    Mensagem  wesley em 31/7/2019, 23:15

    Amigos,

    Fiz algumas buscas aqui no Fórum e li alguns exemplos para tentar implementar a função AllowAdditions em um subformulário que tenho aqui.

    A instrução abaixo, do amigo JPaulo, foi a que mais se aproximou com facilidade do subform que estou tentando finalizar.

    Código:
    Private Sub Form_Current()
    'By JPaulo :registered: Maximo Access
    Dim R As Object
    Set R = Me.Recordset
    Cancel = (R.RecordCount >= 1)
    If Cancel Then
        MsgBox "Não é possível gravar: quantidade de registros atingiu o limite.", vbCritical, "Aviso"
        Me.Form.AllowAdditions = False
        Else
        Me.Form.AllowAdditions = True
    Exit Sub
    End If
    End Sub

    Percebi, nos tópicos que tratam dessa função AllowAdditions, que o mesmo pode delimitar uma quantidade x de registros, e o bom, também, é que exibe apenas os registros já cadastrados, não permitindo o cadastro de novos registros que excedam a quantidade x determinada. E ainda, deixa o aspecto do subformulário, com formato de folha de dados, mais "limpo" e apresentável, evitando tentativas acidentais de inclusão de novos registros, depurações etc..

    Tentei utilizar essa instrução acima nesse subformulário, o que em parte deu certo, mas ao mesmo tempo não permite que seja cadastrado um novo registro do zero. No caso aqui, gostaria de que ficasse visível apenas um registro, mas também que fosse possível a inserção quando não tiver nenhum cadastrado.. Seria isto possível?

    Segue abaixo o teste exemplificativo..
    Anexos
    [Resolvido]Aplicar AllowAdditions em SubFormulário AttachmentTeste_AllowAdditions.ZIP
    Teste_AllowAdditions
    Você não tem permissão para fazer download dos arquivos anexados.
    (42 Kb) Baixado 7 vez(es)


    Última edição por wesley em 8/8/2019, 16:30, editado 2 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1067
    Registrado : 22/11/2016

    [Resolvido]Aplicar AllowAdditions em SubFormulário Empty Re: [Resolvido]Aplicar AllowAdditions em SubFormulário

    Mensagem  IvanJr. em 2/8/2019, 03:11

    Da forma como queres não é possível.

    Tentei chegar perto fazendo algumas adaptações no seu anexo
    1. Criei o campo fkTabelaB na tabelaC pois supus que a relação do seu anexo estava incorreta já que relacionava dois campos do tipo autonumeração. Fiz igualmente a relação da tabelaA com a tabelaB.
    2. Como usou o código no subformulário C também imagino que era na tabela C que gostaria de ter apenas um registro relacionado com tabela B.
    3. No subformulário C desabilitei a propriedade AllowAdditions (Permitir adição)
    4. Ocultei a coluna que mostrava a chave estrangeira nos subformulários
    5. Na relação das tabelas marquei a opção que propaga a exclusão de campos relacionados
    6. Usei macro de dados para inserir automaticamente um registro na tabela C quando um registro na tabela B fosse criado

    Veja como ficou
    Anexos
    [Resolvido]Aplicar AllowAdditions em SubFormulário AttachmentTeste_AllowAdditions_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (53 Kb) Baixado 8 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    wesley
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 08/11/2011

    [Resolvido]Aplicar AllowAdditions em SubFormulário Empty Re: [Resolvido]Aplicar AllowAdditions em SubFormulário

    Mensagem  wesley em 7/8/2019, 15:20

    Muito bom Ivan,

    Estou tentando ver aqui como e onde conseguiu usar macro para a inserção de novo registro automático. Poderia ser no evento atual do SubformulárioB?
    Ainda, ressaltando bem a solução que você trouxe, e se eu compreendi da maneira certa, a macro poderia ser feita mediante uma tabela, seria isto?
    Anexos
    [Resolvido]Aplicar AllowAdditions em SubFormulário AttachmentImagem.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 3 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1067
    Registrado : 22/11/2016

    [Resolvido]Aplicar AllowAdditions em SubFormulário Empty Re: [Resolvido]Aplicar AllowAdditions em SubFormulário

    Mensagem  IvanJr. em 8/8/2019, 02:02

    Veja no vídeo da mensagem do link abaixo como ter acesso a macros de dados que ficam direto na tabela
    https://www.maximoaccess.com/t36173-resolvidoimpedir-gravar-na-tabela-mais-de-5-cinco-registos#247431

    eu usei o evento após inserir


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    wesley
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 08/11/2011

    [Resolvido]Aplicar AllowAdditions em SubFormulário Empty Re: [Resolvido]Aplicar AllowAdditions em SubFormulário

    Mensagem  wesley em 8/8/2019, 16:32

    Obrigado Ivan,

    Iria demorar para achar. Este fórum é uma selva! lol!

    Deixo o tópico com status de resolvido.

    Porém, já fiz algumas tentativas no anexo com relacionamento de um-para-um e ainda não consegui reproduzir o mesmo resultado que você conseguiu no relacionamento um-para-muitos.
    Deve ter algum detalhe ou alguma etapa que tem que ser feita. Talvez demore um pouco para eu saber qual é.. study
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1067
    Registrado : 22/11/2016

    [Resolvido]Aplicar AllowAdditions em SubFormulário Empty Re: [Resolvido]Aplicar AllowAdditions em SubFormulário

    Mensagem  IvanJr. em 8/8/2019, 23:02

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    [Resolvido]Aplicar AllowAdditions em SubFormulário Empty Re: [Resolvido]Aplicar AllowAdditions em SubFormulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 6/12/2019, 20:28