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]campo númerico

    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]campo númerico Empty [Resolvido]campo númerico

    Mensagem  aguiar 23/12/2011, 19:20

    Private Sub Nome_BeforeUpdate(Cancel As Integer)
    If (Not IsNull(DLookup("[Nome]", "tblClientes", _
    "[Nome] ='" & Me!nome & "'"))) Then
    MsgBox "O Nome já está cadastrado na tabela clientes. Verifique se há duplicidade.", vbInformation
    Cancel = True 'cancela o evento.
    Me!nome.Undo 'desfaz a digitação.
    End If

    esse código funciona em um campo texto, mas quero em um campo numérico , ele da erro, poderia me ajudar?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]campo númerico Empty Re: [Resolvido]campo númerico

    Mensagem  Avelino Sampaio 23/12/2011, 19:26

    Olá

    Dê uma estuda no tutorial abaixo que vc mesmo será capaz de responder.

    Tutorial sobre filtragens

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]campo númerico Empty Re: [Resolvido]campo númerico

    Mensagem  Gilberto Rocha 23/12/2011, 19:33

    tente assim

    Private Sub Nome_BeforeUpdate(Cancel As Integer)
    If (Not IsNull(DLookup("[Nome]", "tblClientes", _
    "[Nome] =" & Me!nome & ""))) Then
    MsgBox "O Nome já está cadastrado na tabela clientes. Verifique se há duplicidade.", vbInformation
    Cancel = True 'cancela o evento.
    Me!nome.Undo 'desfaz a digitação.
    End If

    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]campo númerico Empty erro quando registro é difrente

    Mensagem  aguiar 23/12/2011, 20:26

    Private Sub numero_caso_BeforeUpdate(Cancel As Integer)
    If (Not IsNull(DLookup("[numero_caso]", "tblClientes", _
    "[numero_caso] ='" & Me!numero_caso & "'"))) Then
    MsgBox "O Nome já está cadastrado na tabela clientes. Verifique se há duplicidade.", vbInformation
    Cancel = True 'cancela o evento.
    Me!numero_caso.Undo 'desfaz a digitação.

    End If
    End Sub


    ficou assim meu código, mas aparece a mensagem mesmo quando o registro é diferente no campo do form
    avatar
    aguiar
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/12/2011

    [Resolvido]campo númerico Empty Resolvido

    Mensagem  aguiar 27/12/2011, 21:06

    Peguei o código do Harysohn
    e adaptei, ficou assim:

    Private Sub numero_BeforeUpdate(Cancel As Integer)
    Dim Busca As String
    Dim stLinkCriteria As String
    Dim rsc As DAO.Recordset
    Set rsc = Me.RecordsetClone
    Busca = Me.numero.Value
    stLinkCriteria = "numero= '" & Busca & "'"
    If DCount("numero", "Registro", stLinkCriteria) > 0 Then
    Me.Undo
    MsgBox "Atenção NUMERO já existe.", vbInformation
    Cancel = True 'cancela o evento.
    Me!nome.Undo 'desfaz a digitação.
    End If
    Set rsc = Nothing


    Agradeço a todos .

    Conteúdo patrocinado


    [Resolvido]campo númerico Empty Re: [Resolvido]campo númerico

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:10