MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Trabalhar com Form.AllowAddition

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 02/09/2016

    [Resolvido]Trabalhar com Form.AllowAddition Empty [Resolvido]Trabalhar com Form.AllowAddition

    Mensagem  ictsp 9/3/2017, 10:43

    Bom dia amigos! Tenho um form "A" com um subform continuo "B" para cadastro de pedidos. No form A, cadastro as informações do cliente. Após preenchidos todos os campos do form A, clico num botão que ativa a propriedade Form.AllowAddition = true no subform "B"

    Aí vem o meu problema no preenchimento do subform "B":

    Como posso impedir que apareça automaticamente o próximo registro ao iniciar o preenchimento do anterior?

    Tentei usar AllowAdditions=False no  primeiro campo que recebe o foco. Funcionou, mas quando insiro o segundo registro e o primeiro campo recebe o foco, o registro desaparece.

    Alguém tem alguma sugestão? Lembrando que meu subform é continuo.

    Desde já, agradeço imensamente a ajuda dos nobres colegas.

    Atualizando : pesquisando na net, achei esse código neste site https://access-programmers.co.uk/forums/showthread.php?t=37000
    Código:
    ** Code Below **

    'NOTES:
    'Supposing the table behind the Main form is called TblCustomers
    'and that the field holding the primary key is called CustomerID

    'Also supposing the table behind the subform is called TblDetails
    'and that the field holding the foreign key that links the forms
    'is called CustomerID

    'some drunken fools are outside in the street fighting and
    'yelling their heads off, one man, one woman...

    Dim lngRecId As Long

    lngrecid = Forms!MainFormName.CustomerID.value

    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    rst.Open "tblDetails", CurrentProject.Connection, _
    adOpenDynamic, adLockOptimistic

    With rst
    .addNew
    ![CustomerID] = lngRecId
    .Update
    End With

    rst.Close
    Set rst = Nothing

    Me.Recalc

    Porém está dando erro na linha: Dim rst As ADODB.Recordset "o tipo definido pelo usuário nao foi definido"
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 680
    Registrado : 02/10/2011

    [Resolvido]Trabalhar com Form.AllowAddition Empty Re: [Resolvido]Trabalhar com Form.AllowAddition

    Mensagem  rubenscouto 9/3/2017, 18:04

    este codigo que você está disponibilizando não é utilizado para formularios com subformularios acoplados, ou seja, aqueles que tem como fonte de registros baseados em tabelas ou consultas. No meu ponto de vista fazer da forma que você está fazendo pode acarretar futuros problemas para o usuario que irá inserir, por exemplo 30 notas num dia. Para cada nota terá que clicar no botão para liberar o subform e clicar novamente em outro botão para liberar para lançar novo registro. Este tipo de form/subform tem que está liberado naturalmente para inserção de dados. Você pode habilitar ou desabilitar este tipo de função "allowedits" para usuarios inexperientes justamente para não correr o risco de alterar os dados já lançados.
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 02/09/2016

    [Resolvido]Trabalhar com Form.AllowAddition Empty Re: [Resolvido]Trabalhar com Form.AllowAddition

    Mensagem  ictsp 9/3/2017, 18:14

    Boa tarde Rubens! Primeiramente, muito obrigado pela resposta. Não conheço o access a fundo, é meu primeiro banco de dados mais refinado. O que eu gostaria é encontrar uma forma de impedir campos em branco no form.

    Já vi no fórum o uso da propriedade is null, que é bem interessante, porém, quando o usuário preenche o primeiro campo, fica livre para avançar para o próximo registro, deixando os campos vazios no primeiro.

    Vc teria alguma idéia de como impedir isso? Desde já, muito obrigado!!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Trabalhar com Form.AllowAddition Empty Re: [Resolvido]Trabalhar com Form.AllowAddition

    Mensagem  Alvaro Teixeira 15/3/2017, 10:45

    Olá a todos,
    Isaque, se colocar na prória tabela a regra de validação, não vai deixar passar para o proximo registo.
    Efetue um teste.
    Abraço
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 02/09/2016

    [Resolvido]Trabalhar com Form.AllowAddition Empty Re: [Resolvido]Trabalhar com Form.AllowAddition

    Mensagem  ictsp 15/3/2017, 12:41

    Bom dia Teixeira! vou testar sua sugestão e retorno em breve.

    Abraço!


    Teixeira, testei sua dica e é perfeita, resolve em muito meu problema. Só que gostaria de mais um esclarecimento. A mensagem que aparece é interna do access. Como posso alterar?

    Desde já, muito obrigado!!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Trabalhar com Form.AllowAddition Empty Re: [Resolvido]Trabalhar com Form.AllowAddition

    Mensagem  Alvaro Teixeira 15/3/2017, 14:17

    Olá, também personalizar na própria tabela.
    Abraço
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 02/09/2016

    [Resolvido]Trabalhar com Form.AllowAddition Empty Re: [Resolvido]Trabalhar com Form.AllowAddition

    Mensagem  ictsp 28/3/2017, 12:04

    Bom dia amigos! Resolvido o problema, obrigado pela ajuda!! cheers
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Trabalhar com Form.AllowAddition Empty Re: [Resolvido]Trabalhar com Form.AllowAddition

    Mensagem  Alvaro Teixeira 28/3/2017, 18:23

    Olá, obrigado pelo retono.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Trabalhar com Form.AllowAddition Empty Re: [Resolvido]Trabalhar com Form.AllowAddition

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 19:15