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


2 participantes

    [Resolvido]reconhecer novo registro

    avatar
    maurogpi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/10/2011

    [Resolvido]reconhecer novo registro Empty reconhecer novo registro

    Mensagem  maurogpi 9/4/2013, 21:07

    Boa tarde senhores...

    Preciso que no meu form em Access 2007, ao sair de um controle (que é caixa de texto), ele percorra a tabela pra verificar se aquele valor já existe (se está se repetindo). Só que se já for um registro gravado, no qual estou passando pelos campos com a tecla TAB, é pra ele identificar e ignorar essa verificação, mas se for um registro novo, é pra verificar, dar uma mensagem que é valor já existente e retornar o foco pra ele mesmo, pra redigitar.

    Já utilizo esse código, e quase me resolveu, mas pra verificar se registro novo, não encontrei o caminho das pedras.

    Private Sub Numero_LostFocus()
    Dim NUMsEncontrados As Recordset
    If Not IsNull(Me.Numero) Then
    strSql = "SELECT Numero FROM Relatorio WHERE Numero = " & Me.Numero & ""
    Set NUMsEncontrados = CurrentDb.OpenRecordset(strSql)
    If NUMsEncontrados.RecordCount <> 0 Then
    MsgBox "Já existe registro com esse número.", vbInformation, "Erro"
    Me.Numero.BackColor = vbYellow
    Me!Numero.SetFocus
    End If
    End If
    Me.Numero.BackColor = vbYellow
    End Sub

    Espero que tenha sido claro, aguardo seu apoio...

    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    [Resolvido]reconhecer novo registro Empty Re: [Resolvido]reconhecer novo registro

    Mensagem  Cláudio Más 9/4/2013, 21:59

    If Not Me.NewRecord Then Exit Sub
    avatar
    maurogpi
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 21/10/2011

    [Resolvido]reconhecer novo registro Empty Re: [Resolvido]reconhecer novo registro

    Mensagem  maurogpi 10/4/2013, 18:22

    Beleza d+++ Cláudio, implementei na linha do if o me.newrecord, e ficou perfeito

    If (Not IsNull(Me.Numero) And (Me.NewRecord)) Then


    Obrigadão pela força

    Conteúdo patrocinado


    [Resolvido]reconhecer novo registro Empty Re: [Resolvido]reconhecer novo registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 19:20