REGISTRO DUPLICADO MOSTRANDO N DO REGISTRO

 Tópico anterior Próximo tópico Novo tópico

REGISTRO DUPLICADO MOSTRANDO N DO REGISTRO

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#470716 - 15/01/2017 13:52:51

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


Estou querendo mudar o meu fonte abaixo. Na parte que diz:
MensagemErro []Perfil j est cadastrado no sistema, verifique antes de salvar![] gostaria que mostrasse o n do cdigo/(id_perfil) do registro que j existe. Como posso continuar o cdigo?

    If txtPerfil.Text <> [][] Then  []Rotina que verifica se dados informados j existem
        lsql = []SELECT * FROM PERFIS WHERE perfil LIKE [][] & txtPerfil.Text & [][][]

        Set lTBPerfis = gBDSistemaIntegrado.OpenRecordset(lsql, dbOpenSnapshot)

        If lTBPerfis.EOF = True Then
            []MensagemErro []Perfil no consta no sistema, pode gravar o registro![]
        Else
            MensagemErro []Perfil j est cadastrado no sistema, verifique antes de salvar![]
            txtPerfil.Text = [][]
            txtPerfil.SetFocus
            Exit Sub
        End If
    End If  []Fim da rotina

Valeu...



Resposta escolhida #470717 - 15/01/2017 14:07:18

SINCLAIR
CRICIUMA
Cadast. em:Janeiro/2001


Última edição em 15/01/2017 14:11:26 por SINCLAIR

Bom dia.

s colocar na mensagem o contedo do campo procurado e que j est cadastrado.

    If txtPerfil.Text <> [][] Then  []Rotina que verifica se dados informados j existem
        lsql = []SELECT * FROM PERFIS WHERE perfil LIKE [][] & txtPerfil.Text & [][][]

        Set lTBPerfis = gBDSistemaIntegrado.OpenRecordset(lsql, dbOpenSnapshot)

        If lTBPerfis.EOF = True Then
            []MensagemErro []Perfil no consta no sistema, pode gravar o registro![]
        Else
            MensagemErro []Perfil j est cadastrado no sistema, verifique antes de salvar![] & vbCrLf & vbCrLf & []Num. Registro: [] & txtPerfil.Text
            txtPerfil.Text = [][]
            txtPerfil.SetFocus
            Exit Sub
        End If
    End If  []Fim da rotina


O seu tpico abaixo tem 10 meses, tem dvida semelhante e ainda est ativo. Por gentileza, encerre o tpico:

http://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=449479&pagina=2



Euzbio Cruz
Cricima - SC


#470718 - 15/01/2017 14:27:47

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


 Anexos estao visíveis somente para usuários registrados

Boa tarde Sinclair,

Desta forma ele no mostra o id do registro que tem o mesmo cadastro... E sim ele pega o []nome do perfil[] que informei....



#470720 - 15/01/2017 15:19:40

SINCLAIR
CRICIUMA
Cadast. em:Janeiro/2001


Colega,

Coloca o nome do campo, ento. Pode ser o que tu quiser na mensagem.

    If txtPerfil.Text <> [][] Then  []Rotina que verifica se dados informados j existem
        lsql = []SELECT * FROM PERFIS WHERE perfil LIKE [][] & txtPerfil.Text & [][][]

        Set lTBPerfis = gBDSistemaIntegrado.OpenRecordset(lsql, dbOpenSnapshot)

        If lTBPerfis.EOF = True Then
            []MensagemErro []Perfil no consta no sistema, pode gravar o registro![]
        Else
            MensagemErro []Perfil j est cadastrado no sistema, verifique antes de salvar![] & vbCrLf & vbCrLf & []Num. Registro: [] & lTBPerfis.Fields([]id_perfil[]).Value
            txtPerfil.Text = [][]
            txtPerfil.SetFocus
            Exit Sub
        End If
    End If  []Fim da rotina

Euzbio Cruz
Cricima - SC


#470721 - 15/01/2017 15:23:27

MILTONSILVA94
CANOAS / RIO GRANDE DO SUL
Cadast. em:Janeiro/2015


Obrigado Sinclair



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MILTONSILVA94 em 15/01/2017 15:23:51