[Resolvido]Avisarr quando haver dados iguais cadastrados

Eu tenho um campo em meu formulario chamado cnpj. Eu se o seguinte: quando eu digitar o cnpj e ja existir um cnpj igual, e me avisar quando eu for salvar, como por exemplo: "Esse registro não pode ser Salvo devido ao CNPJ repetido. Verifique e tente Novamente."

If (Not IsNull(DLookup("[cpnj]", "minhatabela", _
"[cpnj] ='" & Me!cpnj & "'"))) Then
MsgBox "O exemplo já está cadastrado no sistema..." & cpnj.Text, _
vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!cpnj.Undo 'desfaz a digitação.
End If

Deu um erro nessa parte: Me!cpnj.Undo 'desfaz a digitação.

Veja se está com letra grande ou pequena CPNJ

Esses código vai no evento antes de actualizar() do campo CPNJ

Ele esta igual o codigo acima.

envie a bd por expresso que eu coloco aqui.

Antes de enviar, experimente pois eu estava distraído...cpnj é um campo númerico


If (Not IsNull(DLookup("[cpnj]", "sua tabela", _
"[cpnj] =" & Me!cpnj))) Then
MsgBox "O cpnj já está cadastrado no sistema..." & cpnj.Value, vbInformation,
"Aviso"
Cancel = True 'cancela o evento.
Me!cpnj.Undo 'desfaz a digitação.
End If

Ta Ok Vieira.

Mais eu tenho outra duvida sobre outro assunto. Que é ocultar a tela do access.

Mas isso já não tinhamos resolvido anteriormente?

Sabe aquele banco de dados eu te enviei por e-mail?

Então eu peguei os codigos do formulario inicial dele e colei num modulos no outro banco de dados mais não deu certo nem nos formularios e nem nos relatorios.

você passou o módulo VBA para o outro banco? Provavelmente não. Verifique se o fez, caso contrário envie o banco para mim.

Tem como vc parssar o codigos aqui pra mim. Quero tentar mais uma vez.

No separador Módulos abra um módulo e cole


Option Compare Database
Option Explicit
Global Const SW_HIDE = 0
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
Dim loX As Long
Dim loForm As Form
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function


No form que vai abrir em primeiro lugar
Private Sub Form_Load()
fSetAccessWindow (0)

Private Sub Form_Load()
fSetAccessWindow (0)

Essa parte esta dando erro.

aqui vai o exemplo

http://dl.dropbox.com/u/8157744/esconderjanela.rar

Agora os relatorios.

Não entendi?????????

Já raciocinei (rsrsrsrs)

No Evento ao abrir do Relatório

fSetAccessWindow (3)

E para abrir os relatorios quais são os codigos? devo aplicar em todos os relatorios?

Já tinha colocado atrás

No Evento ao abrir do Relatório

fSetAccessWindow (3)

colocar em todos

Sabe aqueles botões tem acima do reelatorio (Minizar, Maximizar e Fechar) tem como tirar eles?

No Evento ao abrir do Relatório

fSetAccessWindow (3)

colocar em todos

No Evento ao fechar do Relatório

DoCmd.OpenForm "seuform"

Rogiel

mais alguma dúvida, abra um tópico com ela. Vou responder-lhe e dar este tópico por terminado, tá amigo!

Propriedades do Relatório<<>>botões min e max = Não>>>Caixa de controle=Não sai o botão fechar. Se pretender o relatório tipo popup, defina as propriedades sobreposição e modal =Sim .

Bom trabalho, qualquer outra dúvida, abra um tópico

Ok Vieira, Obrigado.

Desculpe por te pertubar.

Obrigado.

Não me incomodou, não, amigão, o problema é que são questões que obrigam a um novo tópico. Só isso ou seremos chamados à atenção pelo administrador e com toda a razão, certo!

Abs e apite sempre que precisar