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]Buscar valor de campo da tabela com critério de outro campo

    Compartilhe

    janiomjunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 19/07/2017

    [Resolvido]Buscar valor de campo da tabela com critério de outro campo

    Mensagem  janiomjunior em Qui Ago 17, 2017 3:05 pm

    Pessoal,

    Eu to implementando o meu db em access e usei o código fornecido pelo JPaulo para fazer busca de registro e avisar que o registro ja existe.

    Por exemplo, eu busquei se a ferramenta WPO-004 já existe e o VB avisa que existe e eu quero que ele informe o valor de outro campo na tabela da pesquisa. Por exemplo, ele pesquisa o valor WPO-004 na coluna codferr da tabela Tbl_SFormFrm e eu quero que nesse registro o vb mostre o valor da coluna Codcx da mesma tabela Tbl_SFormFrm. Como faço?

    -------
    Private Sub cboCodFerr_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.cboCodFerr.Value
    stLinkCriteria = "CodFerr= '" & Busca & "'"
    If DCount("CodFerr", "Tbl_SFormFrm", stLinkCriteria) > 0 Then

    Me.Undo
    Cancel = True
    MsgBox "Atenção, registo " _
    & Busca & " ja existe." _
    & vbCr & vbCr & "Vai ser mostrado o Registro.", vbInformation _
    , "Duplicado"
    rsc.FindFirst stLinkCriteria
    Me.Bookmark = rsc.Bookmark
    End If
    Set rsc = Nothing
    End Sub

    --------

    Eu encontrei alguns códigos que chamam função e eutilizam o comando SELECT, mas sou iniciante no VB e nao consigo resolver. Acredito que tenha uma forma mais simples imprementando direto na mesma sub before update.
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Buscar valor de campo da tabela com critério de outro campo

    Mensagem  JPaulo em Sex Ago 18, 2017 2:01 pm

    Faça o teste desta forma, para ver se a 1ª mensagem mostra o que pretende, se mostrar já se pode adaptar.

    Código:
    Private Sub cboCodFerr_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.cboCodFerr.Value
    stLinkCriteria = "CodFerr= '" & Busca & "'"
    If DCount("CodFerr", "Tbl_SFormFrm", stLinkCriteria) > 0 Then

    Dim x$
    x = DLookup("Codcx", "Tbl_SFormFrm", "CodFerr= '" & Busca & "'")
    MsgBox x

    Me.Undo
    Cancel = True
    MsgBox "Atenção, registo " _
    & Busca & " ja existe." _
    & vbCr & vbCr & "Vai ser mostrado o Registro.", vbInformation _
    , "Duplicado"
    rsc.FindFirst stLinkCriteria
    Me.Bookmark = rsc.Bookmark
    End If
    Set rsc = Nothing
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.]
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6395
    Registrado : 05/11/2009

    Re: [Resolvido]Buscar valor de campo da tabela com critério de outro campo

    Mensagem  Alexandre Neves em Sex Ago 18, 2017 2:29 pm

    Boa tarde,
    use
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.cboCodFerr.value
    stLinkCriteria = "CodFerr= '" & Busca & "'"
    If DCount("CodFerr", "Tbl_SFormFrm", stLinkCriteria) > 0 Then

    Me.Undo
    Cancel = True
    MsgBox "Atenção, registo " _
    & Busca & " ja existe." _
    & vbCr & vbCr & "Vai ser mostrado o Registro.", vbInformation _
    , "Duplicado"
    rsc.FindFirst stLinkCriteria
    MsgBox "O valor do campo Codcx é " & rsc("Codcx")
    Me.Bookmark = rsc.Bookmark
    End If
    Set rsc = Nothing


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    janiomjunior
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 19/07/2017

    Re: [Resolvido]Buscar valor de campo da tabela com critério de outro campo

    Mensagem  janiomjunior em Seg Ago 21, 2017 12:36 pm

    Deu certo Pessoal, tão simples de resolver para quem tem o conhecimento.

    Muito obrigado.

      Data/hora atual: Seg Set 25, 2017 10:33 am