MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    consultas via Vba

    Compartilhe

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    consultas via Vba

    Mensagem  bernardweger em Qua 05 Ago 2015, 13:52

    Olá pessoal, estou aprendendo agora como funciona este mundo de VBA no access e gostaria da ajuda de vocês, aprendi a fazer uma consulta pelo código por um tutorial no youtube, só que agora eu gostaria de criar um consulta pelo nome da pessoa se possível seria apenas as iniciais, teria como vocês me ajudarem, o código vba que consigo realizar a consulta seria este:

    Private Sub cmd_consultar_Click()
       If txtcodigo <> "" Then
           comando = "Select * From tbl_Funcao Where codigo=" & txtcodigo
           valida_selecao
               If dataset.RecordCount <> 0 Then
               txtnome = dataset("nome")
               txtfuncao = dataset("funcao")
           Else
               MsgBox ("Não foi encontrado nenhum registro"), vbInformation + vbOKOnly, ("Nenhum Registro")
           End If
       Else
           MsgBox ("Nescessário informar o nome para efetuar uma consulta"), vbInformation + vbOKOnly, ("Nome Nescessário")
       End If
       
       
    End Sub

    Como altero isso para Nome?
    Obrigado a todos e desde já agradeço a vocês
    Fiquem com Deus

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: consultas via Vba

    Mensagem  JPaulo em Qua 05 Ago 2015, 14:17

    Ola;

    Está a fazer isso no Ms Access ?


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    Re: consultas via Vba

    Mensagem  bernardweger em Qua 05 Ago 2015, 14:18

    sim, pelo vba de um formulário do access

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: consultas via Vba

    Mensagem  JPaulo em Qua 05 Ago 2015, 14:26

    Eu trato esse código aqui para você ver como funciona o Recordset.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: consultas via Vba

    Mensagem  JPaulo em Qua 05 Ago 2015, 14:33

    O simples é isto;

    Código:
    Private Sub cmd_consultar_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT * FROM tbl_Funcao WHERE codigo=" & Me.txtcodigo.Value)

      If rs.RecordCount > 0 Then
              Me!txtnome.Value = rs("nome")
              Me!txtfuncao.Value = rs("funcao")
          Else
              MsgBox ("Não foi encontrado nenhum registro"), vbInformation + vbOKOnly, ("Nenhum Registro")
        End If
       
     rs.Close: Set rs = Nothing
     db.Close: Set db = Nothing
    End Sub


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: consultas via Vba

    Mensagem  JPaulo em Qua 05 Ago 2015, 14:47

    Ou a pedir pelo Nome;

    Código:
    Private Sub cmd_consultar_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strPesquisa As String

    strPesquisa = ""
    strPesquisa = InputBox("Qual o Nome ?", "Pesquisa", "teste", 1800, 3000)

      If strPesquisa <> "" Then
     
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("SELECT * FROM tbl_Funcao WHERE nome Like '*" & strPesquisa & "*'")

      If rs.RecordCount > 0 Then
              Me!txtnome.Value = rs("nome")
              Me!txtfuncao.Value = rs("funcao")
          Else
              MsgBox ("Não foi encontrado nenhum registro"), vbInformation + vbOKOnly, ("Nenhum Registro")
        End If
      Else
     Exit Sub
    End If

     rs.Close: Set rs = Nothing
     db.Close: Set db = Nothing
    End Sub


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    Re: consultas via Vba

    Mensagem  bernardweger em Qua 05 Ago 2015, 19:57

    affraid

    Nossa, Realmente Perfeito!!, Muito Obrigado Pela sua ajuda e que Deus lhe abençoe!

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    Re: consultas via Vba

    Mensagem  bernardweger em Qua 05 Ago 2015, 20:00

    Amigo, caso eu possuo dois registros com as mesmas iniciais como pode ser feito

    por exemplo eu tenho no campo nome

    Bernard didini
    Bernard Weger

    caso eu escreva Bernard somente, teria como aparecer os dois?
    Obrigado

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: consultas via Vba

    Mensagem  JPaulo em Qui 06 Ago 2015, 09:32

    Até teria como, mas repare que você vai enviar o registo encontrado para uma caixa de texto, ae não poderia ficar os dois;

    Me!txtnome.Value = rs("nome")


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    bernardweger
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 101
    Registrado : 22/12/2014

    Re: consultas via Vba

    Mensagem  bernardweger em Qui 06 Ago 2015, 13:16

    Sim, isso que eu estava pensando Smile

    Eu teria que fazer com que ele crie dois registros e caso eu queira mudar eu passava pelas setas, teria alguma coisa dessa forma?


      Data/hora atual: Sab 10 Dez 2016, 06:47