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


3 participantes

    [Resolvido]Se registro já existe ir pra ele

    avatar
    alexbrumass
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 11/07/2011

    [Resolvido]Se registro já existe ir pra ele Empty Se REGISTRO JÁ EXISTE ir pra ele

    Mensagem  alexbrumass 9/3/2012, 14:47

    Como posso fazer isso :

    Num form CADPROCESSOS ao digitar no campo NPROCESSO, verificar:

    se o nprocesso já existe localiza-lo OU IR DIRETO PRA ELE.

    OBS o NPROCESSO ESTÁ no formato TEXTO e como uma máscara assim 0000/00;;_

    Estou tentando isso:


    Private Sub Nprocesso_AfterUpdate()

    If Not IsNull(DLookup("NPROCESSO", "cadproccons", "NPROCESSO='" & Me.Nprocesso & "'")) Then
    DoCmd.GoToRecord , , acGoTo, Me.Nprocesso
    Else
    End If

    End Sub

    ______________________________________________________

    mas ta dando esse ERRO:

    Erro tempo de execução '2105'
    Você não pode ir por registro especificado

    O que pode ser, a MASCARA? Como posso fazer então para MASCARAR O CAMPO ACIMA NO VBA?




    avatar
    jntrindade
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 277
    Registrado : 07/12/2009

    [Resolvido]Se registro já existe ir pra ele Empty Re: [Resolvido]Se registro já existe ir pra ele

    Mensagem  jntrindade 9/3/2012, 14:58

    use esta função eu peguei de um exemplo e adaptei conforme minhas necessidades, faça o mesmo.

    no seu controle apos atualizar - coloque call verificaRegistro

    Sub verificaRegistro()

    Dim criterio As String

    If Not IsNull(CódigoBarras) Then

    If IsNull(CódigoProduto) Then
    CódigoBarras = DMax("CódigoProduto", "Tab_Produto") + 1
    End If

    'Aqui montamos o critério de verificação:
    'Para campos do tipo texto colocamos entre aspas simples;
    'Para campos do tipo data colocamos no formato #mm/dd/yyyy#;
    'Para campos do tipo número colocamos de maneira simples.
    criterio = "CódigoBarras='" & CódigoBarras & "' "

    'Caso retorne algum registro com o critério especificado
    'significa que já existe um registro idêntico.

    If DCount("CódigoProduto", "Tab_Produto", criterio) > 0 Then

    If MsgBox("Já existe um registro idêntico cadastrado!" & vbCrLf & "Deseja cancelar o preenchimento?", _
    vbQuestion + vbYesNo, "Verificação de registro") = vbYes Then

    CódigoBarras = Null

    End If

    End If

    End If
    avatar
    alexbrumass
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 11/07/2011

    [Resolvido]Se registro já existe ir pra ele Empty LOCALIZAR O REGISTRO

    Mensagem  alexbrumass 9/3/2012, 15:06

    Caso retorne algum registro com o critério especificado
    significa que já existe um registro idêntico.

    AÍ QUE ESTÁ, nessa hora eu gostaria que fosse pro registro especificado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Se registro já existe ir pra ele Empty Re: [Resolvido]Se registro já existe ir pra ele

    Mensagem  JPaulo 9/3/2012, 17:11

    Veja o codigo:

    Alerta e Mostra Registros que Já existem

    http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access



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

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Se registro já existe ir pra ele Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Se registro já existe ir pra ele Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Se registro já existe ir pra ele Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidad
    Convidado


    [Resolvido]Se registro já existe ir pra ele Empty Re: [Resolvido]Se registro já existe ir pra ele

    Mensagem  Convidad 25/3/2012, 05:33


    ... Sem retorno do usuário ...
    avatar
    Convidad
    Convidado


    [Resolvido]Se registro já existe ir pra ele Empty Re: [Resolvido]Se registro já existe ir pra ele

    Mensagem  Convidad 12/4/2012, 02:59


    Considerado como resolvido.

    Conteúdo patrocinado


    [Resolvido]Se registro já existe ir pra ele Empty Re: [Resolvido]Se registro já existe ir pra ele

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 02:29