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]Ir para registro específico de um campo no form

    avatar
    SamyEcheverria
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 11/01/2019

    [Resolvido]Ir para registro específico de um campo no form Empty [Resolvido]Ir para registro específico de um campo no form

    Mensagem  SamyEcheverria em 19/1/2019, 02:37

    Boa madrugada a todos!

    Eu pesquisei aqui no forum dentre outros, mas não encontrei nada específico para o que eu preciso.

    - Tenho uma tabela "tblFornecedor", um formulário "frmFornecedor" e um campo "CNPJ";
    - Preciso que o formulário vá para o registro onde o Me!txtCNPJ sejá igual ao campo [CNPJ] na tabela. Vejam o código:


    Private Sub CNPJ_BeforeUpdate(Cancel As Integer)
       Dim testecnpj, testefornec As String

       testecnpj = Me!CNPJ
       testefornec = Nz(DLookup("[CNPJ]", "tblFornecedor", "[CNPJ]='" & Me!CNPJ & "'"), 0)
       
       If IsNull(Me!CNPJ) Or Me!CNPJ = "" Then
           MsgBox "CNPJ Requerido...", vbInformation, "Aviso"
           Cancel = True
       ElseIf fncCnpjValido(Me!CNPJ) = False Then
           MsgBox "CNPJ inválido...", vbInformation, "Aviso"
           Cancel = True
       ElseIf testefornec <> 0 Then
           If MsgBox("Este fornecedor já está cadastrado, deseja atualizar o cadastro?", _
           vbQuestion + vbYesNo + vbDefaultButton1, "Confirmação") = vbYes Then
             
               'AQUI QUE NÃO ESTOU CONSEGUINDO IR PARA O REGISTRO

               DoCmd.GoToRecord acDataForm, , acGoTo, testecnpj


           Else:
               Cancel = True
           End If
       End If
    End Sub
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 702
    Registrado : 23/01/2018

    [Resolvido]Ir para registro específico de um campo no form Empty Re: [Resolvido]Ir para registro específico de um campo no form

    Mensagem  crysostomo em 19/1/2019, 12:21

    não montei ele mas vê esse
    Código:
    DoCmd.GoToRecord , , acGoTo, testecnpj

    avatar
    SamyEcheverria
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 11/01/2019

    [Resolvido]Ir para registro específico de um campo no form Empty Re: [Resolvido]Ir para registro específico de um campo no form

    Mensagem  SamyEcheverria em 19/1/2019, 17:50

    DoCmd.GoToRecord , , acGoTo, testecnpj


    Não deu amigo, "Erro em tempo de execução 2498, A expressão que você inseriu corresponde ao tipo de dados errado para um dos argumentos"

    Na verdade eu preciso que ao digitar o CNPJ, seja feita uma busca na tabela, se encontrar, abrir o formulario no registro para atualização.

    Alguém pode me ajudar?!
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2037
    Registrado : 13/04/2012

    [Resolvido]Ir para registro específico de um campo no form Empty Re: [Resolvido]Ir para registro específico de um campo no form

    Mensagem  Fernando Bueno em 21/1/2019, 02:02

    Boa noite;
    Utilizo dessa forma:

    Código:
    Dim Tabela As DAO.Recordset
    Dim F As String

    Set Tabela = Me.RecordsetClone

    F = "[SeuCampo]='" & Me.SeuCampo & "'"
        With Tabela
            'verifica se já está cadastrado
            .FindFirst F
            'se encontrou então
            If Not .NoMatch Then
                'Desfaz o registro
                Me.Undo
                MsgBox "Registo repetido", vbCritical, "Atenção"
                'exibe o registro já cadastrado
                Me.Bookmark = .Bookmark
              End If
        End With
        Tabela.Close
     Set Tabela = Nothing


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Ir para registro específico de um campo no form 16rzeq
    avatar
    SamyEcheverria
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 11/01/2019

    [Resolvido]Ir para registro específico de um campo no form Empty Ir para registro específico de um campo no form

    Mensagem  SamyEcheverria em 26/1/2019, 14:48

    Desculpa a demora para responder, eu estava tentando resolver outras coisas e tinha deixado de lado este form.

    Eu estou começando agora e estou tenho muita dificuldade, mas o seu codigo foi perfeito!

    Muito Obrigado, Fernando Bueno!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Ir para registro específico de um campo no form Empty Re: [Resolvido]Ir para registro específico de um campo no form

    Mensagem  Alexandre Neves em 26/1/2019, 15:16

    Boa tarde
    Se resolveu, marque Resolvido para ajudar outros membros que tenham a mesma dúvida


    .................................................................................
    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
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 702
    Registrado : 23/01/2018

    [Resolvido]Ir para registro específico de um campo no form Empty Re: [Resolvido]Ir para registro específico de um campo no form

    Mensagem  crysostomo em 26/1/2019, 17:11

    Obg
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Ir para registro específico de um campo no form Empty Re: [Resolvido]Ir para registro específico de um campo no form

    Mensagem  Alexandre Neves em 26/1/2019, 19:17

    Tem de marcar o Resolvido

    [Resolvido]Ir para registro específico de um campo no form Maximo10


    .................................................................................
    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
    avatar
    SamyEcheverria
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 11/01/2019

    [Resolvido]Ir para registro específico de um campo no form Empty Re: [Resolvido]Ir para registro específico de um campo no form

    Mensagem  SamyEcheverria em 27/1/2019, 18:53

    Desculpa, kkkkkk

    Está resolvido sim, obrigado"

    Conteúdo patrocinado

    [Resolvido]Ir para registro específico de um campo no form Empty Re: [Resolvido]Ir para registro específico de um campo no form

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/5/2019, 14:36