[Resolvido]Mensagem de aviso

Olá!
Possuo uma Tabela a qual prencho por um SubFormulário. Gostaria de saber como faço para que qndo digite um campo já digitado, ela me informe que já existe. Ex. Quando digitar um número (123) ele me retorne informando que já existe 123. Lembrando que existem muitos numeros, exemplo. 124,648,348, (não seão sequencias...Aguardo contato...

olá,


abra a tabela em modo design

defina o campo como chave primaria, ou para não aceitar valores duplicados

Ok, mas eu só queria que emitisse o aviso que já existe lançamento, porque preciso mesmo que ele exista lançar para finalizar o lançamento, mititindo um sinal de aviso para que possa procurar e lançar os demais dados. Teria como???

Pd ser atraves de uma mensagem, no evento apos atualizar,
vou fazer um exemplo e te mando logo em seguida

Ok....

fiz um simples aqui mas funcional, segue

Ok....estou analisando....

Olá..
Vi o Banco....só que não estou conseguindo saber como vou adaptar ao atual....Exemplo: Tenho uma Tabela a qual a alimento pelo formulário. No q vc montou vc acrescentou uma coluna para que qndo vc digitasse ele atomaticamente surge no campo e ai informe que já existe um lançamento? Não sei como fazer no meu bco...como vc me orientaria isso fica difícil de adaptar? teria q alterar alguma outra parte do bco por exemplo....relatório, formulário, ou apenas alteraria a tabela? Aguardo mais informações. E obrigada pela atenção...

Olá,

são apenas duas caixas de texto não vinculadas a tabela em um formulário contínuo

uma utiliza a formula dcontar, e outra referencia ao campo onde quer seja seu codigo de referencia

bom é isso, se quiser postar uma parte do seu banco pra dar uma olhada  

Como mando o bnco/ Estou tentando e não consigo, zipei o tamanho dele é 18KB

tem um botão logo abaixo escolher arquivo / enviar utilize o firefox o internet explorer q no chrome para que da uns problemas

Envio o banco...

oi fiz a adaptação,

as colunas com os codigos apenas ocultei arrastando no tamanho na coluna, pd ver que no modo desgin estão la

ate mais

Oi...Ficou muito legal...mas haveria condições dessa mensagem aparecer antes de atualizar? Pois acaso eu não quisesse inserir naquele momento a anotação não seria inserida.

Veja com mensagem de alerta, e opção de manter ou não ou registro!

Olá... ficou legal...Só tem um porém....qndo coloco no bco atual mudando o nome de CNPJ_ (para outro), ele abre a tela do visal basic Private Sub CNPJ_BeforeUpdate(Cancel As Integer) está apresentando uma mensagem : erro de compilação, era esperado fim de instrução.
O bco em q vc alterou sê abrir pelo formulário que enviei tbm apresenta um erro. Qndo abro pelo o q vc fez está legal. Então a minha pergunta o que faço? visto q tenho q alterar no bco atual, será que é pq já existe uma macro para abrir a tabela??. Aguardo contato para tentar finalizar esse tópico, oK?

O erro está ai nessa mudança dos controles!
Verificar a ortografia, se não conseguires poste o código ou o banco que veremos!

Uma pergunta você copiou o módulo?
Que coloquei no banco que te enviei?

Se não copiou abra um módulo novo e cole:

Public Function Confirmar(sMensagem As String) As Boolean
Dim intResp As Integer
intResp = MsgBox(sMensagem, vbYesNo + vbQuestion, "Atenção!")
If intResp = vbYes Then
Confirmar = True
Else
Confirmar = False


End If
End Function




Lembrando que essa função é do meu amigo Norberto.

Qualquer coisa poste o bd, se possível!
Ficamos no aguardo.

Olá a todos! Enfim depois de quebrar a cabeça rsrsrs, consegui resolver. Foi só tirar BeforeUpdate que funcinou perfeitamente. Valeu!!!!!!!!! Estou muito feliz por isso. A tdos que me ajudaram meus agradecimentos.

O fórum agradece o retorno!