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 Automático de Dados

    avatar
    Mauricio Amadeu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/07/2016

    [Resolvido]Preenchimento Automático de Dados Empty [Resolvido]Preenchimento Automático de Dados

    Mensagem  Mauricio Amadeu 12/9/2016, 18:51

    Prezados,

    Qual o procedimento que devo adotar (ou comando) para incluir um auxílio de preenchimento de dados.

    Exemplo:
    Numa lista de nomes, quando eu digito o “J” aparece todos os nomes que começam com esta letra...João, José,.....e assim por diante.

    Grato pela ajuda.

    Mauricio
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Preenchimento Automático de Dados Empty Re: [Resolvido]Preenchimento Automático de Dados

    Mensagem  Celso Roberto 12/9/2016, 21:15

    Olá...
    Tente adaptar este no evento ao alterar do campo
    ele filtra pela primeira e tambem por qualquer letra digitada ou grupo de letras


    Código:
    Dim strText, strFind, strFind2

    ' strText-Retorna o valor da Combo
    ' strFind-Retorna o valor do conjunto já digitado
    ' strFind2-Junta a clausula WHERE ao valor do conjunto já digitado

    strText = Me.ComboCliente.Text

    If Len(Trim(strText)) > 0 Then
    ' Mostra a lista com os registro que contenham o conjunto já digitado
    ' Cria uma expressão de consulta SQL com string para clausula WHERE do SQL que retorna os dados da tabela
    strFind2 = "txtNomeCliente Like '*"
    For I = 1 To Len(Trim(strText))
    If (Right(strFind, 1) = "*") Then
    strFind = Left(strFind, Len(strFind) - 1)
    End If
    strFind = strFind & Mid(strText, I, 1) & "*"
    Next
    strFind2 = strFind2 & strFind & "'"

    strsql = "SELECT CodCliente, txtNomeCliente FROM tblClientes where " & strFind2 & " ORDER BY txtNomeCliente;"

    ' Filter os registros da combo list utilizando a nova consulta sql
    Me.ComboCliente.RowSource = strsql

    Else
    ' Senão, mostra a lista com todos os registros
    strsql = "SELECT CodCliente, txtNomeCliente FROM tblClientes ORDER BY txtNomeCliente; "
    Me.ComboCliente.RowSource = strsql
    End If
    ' Abre a lista do combobox para mostrar os registros filtrados
    Me.ComboCliente.Dropdown
         




    Aguardo


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Mauricio Amadeu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/07/2016

    [Resolvido]Preenchimento Automático de Dados Empty Preenchimento Automático de Dados

    Mensagem  Mauricio Amadeu 13/9/2016, 18:05

    Celso,
    Desculpa aí, amigo. É que sou um aprendiz nesse negócio.....

    Você poderia dar uma olhada no meu BD e informar se é este o procedimento?

    Se for possível, por favor informa o meio que posso lhe enviar.

    Grato pela atenção e grande abraço.

    Mauricio
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Preenchimento Automático de Dados Empty Re: [Resolvido]Preenchimento Automático de Dados

    Mensagem  Celso Roberto 14/9/2016, 18:04

    Olá faça uma cópia da BD e compacte em formato Zip e anexe Clicando em Escolher arquivo e depois em enviar para anexar o arquivo Zip, depois por ultimo no Enviar mensagem.

    Se seu access for superior que versão 2007, salve esta cópia em versão 2007 antes de Zipar
    O meu access é 2007

    Aguardo


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Mauricio Amadeu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/07/2016

    [Resolvido]Preenchimento Automático de Dados Empty Preenchimento Automático de Dados

    Mensagem  Mauricio Amadeu 19/9/2016, 14:21

    Caro Celso,
    Em primeiro lugar, grato pela sua disponibilidade e interesse.

    Acho que você entendeu minha necessidade, mas vou tentar descrever...

    Eu preciso atualizar os registros de Plantões através do Formulário “Registro de Plantões”, inserindo o nome do profissional.....gostaria também que o sistema ajudasse a completar o preenchimento. Ou seja, quando você digitar a letra “C”, por exemplo, que o sistema já filtrasse somente os nomes que começam com esta letra e assim por diante.

    Espero não ter confundido!!!

    Grato e abraço.

    Mauricio
    Anexos
    [Resolvido]Preenchimento Automático de Dados AttachmentDúvida Preenchimento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (116 Kb) Baixado 5 vez(es)
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Preenchimento Automático de Dados Empty Re: [Resolvido]Preenchimento Automático de Dados

    Mensagem  Celso Roberto 20/9/2016, 03:22

    Olá..

    Eu fiz pelo CRM, para fazer pelo nome terá que fazer algumas alterações em tabelas e relacionamentos.
    Mas veja se te atende.

    ao digitar os CRM ele filtra pelo numero digitado e por grupo de numeros

    Abraços
    Anexos
    [Resolvido]Preenchimento Automático de Dados AttachmentDúvida Preenchimento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (114 Kb) Baixado 27 vez(es)


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Mauricio Amadeu
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 29/07/2016

    [Resolvido]Preenchimento Automático de Dados Empty Preenchimento Automático de Dados

    Mensagem  Mauricio Amadeu 20/9/2016, 14:15

    Excelente Celso,
    Estou fazendo algumas adaptações, mas já consegui sacar o caminho.
    Muito obrigado amigo.
    Abraço.
    Mauricio
    Celso Roberto
    Celso Roberto
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1076
    Registrado : 01/03/2014

    [Resolvido]Preenchimento Automático de Dados Empty Re: [Resolvido]Preenchimento Automático de Dados

    Mensagem  Celso Roberto 20/9/2016, 15:09

    Olá...

    Qualquer dúvida estamos por aqui..

    O fórum agradece seu retorno..

    Abraços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 27/1/2023, 04:15