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


4 participantes

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

    avatar
    SamyEcheverria
    Novato
    Novato


    Respeito às regras : 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 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    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 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 : 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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    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 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 : 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 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 : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    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 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
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2746
    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 26/1/2019, 17:11

    Obg
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    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 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 : 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 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: 22/11/2024, 01:30