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


2 participantes

    [Resolvido]Preenchimento de tabela do SubFormulario

    thaisyf
    avatar
    thaisyf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/10/2014
    • Mensagem nº1

    [Resolvido]Preenchimento de tabela do SubFormulario Empty [Resolvido]Preenchimento de tabela do SubFormulario

    Mensagem  thaisyf 14/10/2014, 13:44

    Bom dia,

    Sou inciante em Access. Criei um bd para cadastro de amostras. Ele contem um formulario com os dados da tabela entrada da amostra, cujos campos: codigo de entrada; quantidade de amostras, n protocolo inicial e n protocolo final.

    Criei uma outra tabela que chamei de detalhes da entrada de amostra, para gerar um subformulario dessa tabela. Os campos da tabela
    sao: codigo de entrada (que se relaciona com o codigo de entrada da tabela entrada); tipo de amostra e numero de protocolo.

    O problema é que gostaria que o campo protocolo fosse preenchido automaticamente, com base na ultimo n de protocolo final ( acrescido de 1) e que o numero de linhas que aparecesse na tabela do subform fosse igual ao quantidade de amostras da tabela entrada de amostras.

    Isso é possível, é muita coisa?
    Muito obrigada a todos pela ajuda
    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº2

    [Resolvido]Preenchimento de tabela do SubFormulario Empty Re: [Resolvido]Preenchimento de tabela do SubFormulario

    Mensagem  Dilson 15/10/2014, 03:16

    Você implementará esses códigos nos eventos do subformulário.

    Para a numeração automática do campo Protocolo:
    No evento ao receber foco do campo Protocolo coloque:

    If IsNull(Me.SeuCampoProtocolo) Then
    Dim rSt As DAO.Recordset
    Dim Quant As Long
    Set rSt = CurrentDb.OpenRecordset("SuaTabelaDoSubFormulario")
    Quant = rSt.RecordCount
       If Quant > 0 Then
               rSt.MoveLast
               SeuCampoProtocolo = rSt("SeuCampoProtocolo") + 1
         Else
               SeuCampoProtocolo = 1
       End If
    rSt.Close
    Set rSt = Nothing
    End If


    Para que o SubFormulário aceite somente a quantidade informada no campo quantidade de amostras do formulário:
    No evento Antes de inserir do SubFormulário coloque:

    If Me.Recordset.RecordCount >= Forms!NomeDoFormulario!NomeDoCampoQuantAmostras Then
        Cancel = True
        MsgBox "Você pode preencher apenas " & Forms!NomeDoFormulario!NomeDoCampoQuantAmostras & " amostras"
    End If
    'WSenna


    Bom trabalho!
    • Ir para o topo
    thaisyf
    avatar
    thaisyf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/10/2014
    • Mensagem nº3

    [Resolvido]Preenchimento de tabela do SubFormulario Empty Preenchimento de tabela do SubFormulario

    Mensagem  thaisyf 15/10/2014, 17:37

    Oi Dilson,

    Obrigada pela ajuda.Desculpe a ignorancia, mas não funcionou, muito provavelmente fiz algo errada. As linhas nao estao sendo inseridas de acordo com a quantidade de amostra.

    Não tenho certeza se inseri os eventos no subformulario, pois quando seleciono o subformulario so aparece as opcoes ao entrar e ao sair do evento...Desculpe mas não entendo muito de access estou bem no inicio.
    Vc poderia me decrever passo a passo.... praticamente desenhar?! rs
    Obrigada
    • Ir para o topo
    Dilson
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009
    • Mensagem nº4

    [Resolvido]Preenchimento de tabela do SubFormulario Empty Re: [Resolvido]Preenchimento de tabela do SubFormulario

    Mensagem  Dilson 16/10/2014, 01:05

    Entendo.

    Nesse caso, a melhor didática é através de um pequeno exemplo para que veja a implementação feita no VBA.

    Peço que aguarde que irei construir.
    • Ir para o topo
    thaisyf
    avatar
    thaisyf
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 7
    Registrado : 08/10/2014
    • Mensagem nº5

    [Resolvido]Preenchimento de tabela do SubFormulario Empty Preenchimento de tabela do SubFormulario

    Mensagem  thaisyf 16/10/2014, 01:47

    Dilson,

    Muitissimo obrigado pela ajuda e paciencia.... mas agora pouco finalmente consegui entender.
    Rs... demorei mas foi.
    Ficou perfeito era isso mesmo que queria.

    Peço desculpas pela confusão...
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    [Resolvido]Preenchimento de tabela do SubFormulario Empty Re: [Resolvido]Preenchimento de tabela do SubFormulario

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 28/4/2024, 00:57