[Resolvido]Frm de aviso ao cadastrar

Uso Access 2010
vai banco de dados

Olá Professores bom dia !
Estou enviando o BD para análise pois eu não consigo puxar o frm_placas exemplo :
Quando eu digito uma placa que ainda não esta cadastrada aparece um formulário do access me avisando que o item não esta na lista, alguém teria um código em Visual Basic para um aviso assim :
Digitador placa ainda não cadastrada e clicasse no botão placa e cadastrasse a placa mais ou menos assim
Cordialmente
Zuleika

Olá Zuleika, faltou nos dizer em qual formulário devemos digitar a placa para proceder com a consulta!

Olá professor bom dia !!!
O Frm em questão é o Frm_Placa para ele abrir e eu cadastrar a placa que ainda não se encontra na lista de placas cadastradas.Desculpa pela minha atrapalhada

Cordialmente
Zuleika

Veja o novo formulário criado!

Código utilizado no botão de pesquisa:

Código:

Private Sub btLocalizar_Click()
'Preencho a Caixa de Listagem com os dados da Placa
Me.cboDadosPlaca.RowSource = "SELECT Tbl_Placa.Cod_Placa, Tbl_Placa.Nome_Placa, Tbl_Fabricante.Nome_Fabricante " & _
"FROM Tbl_Fabricante INNER JOIN Tbl_Placa ON Tbl_Fabricante.Cod_Fabricante = Tbl_Placa.Fabricante WHERE Nome_Placa = '" & Me.txtPlaca & "'"
'Faço a contagem de registro na caixa de listagem, se for Zero significa que nao esta cadastrado.
If Me.cboDadosPlaca.ListCount <= 0 Then
    If MsgBox("Digitador placa ainda não cadastrada! Deseja Cadastra-la?", vbInformation + vbYesNo, "Atenção") = vbYes Then
        DoCmd.OpenForm "Frm_Placa" 'Abro o formulario para cadastro da placa
        Forms!Frm_Placa!Nome_Placa = Me.txtPlaca 'Envio a placa digitada para o formulario de cadastro de placas
    Else
    MsgBox "Placa Não Cadastrada!!", vbInformation, "Atenção"
    End If
End If

End Sub

Link:
dropbox.com/s/byo1a3i5sfrme8g/aprendendo.zip

Boa Tarde Professor ;
O sr não mandou o bd de volta para eu olhar ver aonde tenho que ir estou aprendendo e assim embora o código esteja pronto eu fico perdida desculpe pela minha incapacidade mesmo assim valeu pela colaboração
Se possível enviar o código junto com o bd para eu ver como é feito e aonde coloco isso lá na aba do "evento" procedimento do evento
Cordialmente
Zuleika

Uso Access 2010
Boa tarde Professor ;

Tem duas Placas cadastradas e dois fabricantes para teste

Olha como esta o bd quando digito na combox e a placa que ainda não esta cadastrada, clico no botão o access abre um formulário de aviso o item não consta na lista ai naõ consigo abrir o frm_Placa para cadastrar  
Para o Sr ter melhor análise
Cordialmente
Zuleika

No arquivo que lhe enviei, abra o formulário novo que criei...

Veja o comando do botão btLocalizar. No evento ao Clicar é que eu faço a consulta, preencho a Caixa de listagem e mando fazer o cadastramento caso ela nao esteja!

Acompanhe pois o código esta todo comentando linha a linha!

Professor boa noite complicado aqui kkkkkk nenhuma experiencia em visual basic mas vamos lá :
No frm_Tickit na combox placa digite upw-3195 dê enter abre esse frm do access com aviso " o texto que você informou não é um item da lista"
agora clique no botão enter agora clique no botão Placa tá vendo meu frm_placa não abre para eu cadastrar a placa .
Cordialmente
Zuleika

Agora foi que eu fui entender Zuleika, onde estava seu problema...

Veja nas mensagens anteriores que vc me indicou outro Formulário! Por isso nao consegui entender nada!


Mas vamos lá... Essa mensagem ocorre pois é uma caixa de combinação, e ela esta configurada para permitir apenas os Itens da Lista! Sendo assim se digitar algo fora da lista ela ficará avisando sempre sobre isso!

Para o que precisa, deverá fazer com caixa de Texto normal, igual ao exemplo em que eu lhe enviei!

Copie o Campo do Formulário novo que criei, juntamente com o Código que está no evento no Botão (Ao clicar)... Esse Código deverá colocar no Evento Apos atualizar da do Campo placa (o campo novo que vc colocar). Assim ele irá fazer o que precisa facilmente!

Boa Tarde
Professor ;
Estou lhe enviando o BD para ver que quando clico no botão placa eu cadastro a placa normalmente quero dizer quando ela não esta cadastrada na hora que eu cadastro no frm_placa e vou no campo placa do frm_Ticket ela já esta lá atualizada até ai tudo bem.O problema vem agora :
Quando eu digito no campo placa "combox" no Frm_Ticket e a placa não esta cadastrada aparece esse aviso do access
Faça um teste clique no Frm_Ticket e digite YVB 0149 isso no campo placa do Frm_Ticket que o sr vai entender
Cordialmente
Zuleika

Olá amiga
Se entendi bem vc quer eliminar esse botão placa e o aviso seria no campo que esta em amarelo, aparecer o aviso que a placa não foi cadastrada nesse caso abrir o frm_placa cadastrar a placa e seguir em frenta é isso ?
Sueli

Bom dia amiga;
Sim é isso, nessa combox de cor amarela no Frm Ticket quando for digitar a placa e ela não estiver cadastrada abre o frm de aviso Placa não cadastrada, deseja cadastrá-la ?
clico no botão sim ai abre meu Frm_Placa, cadastro e ela já esta lá na combox em amarela já cadastrada.
Atenciosamente
Zuleika

Mas e justamente isso que ja lhe expliquei Zuleika! Com Caixa de Combinação não ficará bacana justamente por causa desse aviso.

FabioPaes escreveu:... Essa mensagem ocorre pois é uma caixa de combinação, e ela esta configurada para permitir apenas os Itens da Lista! Sendo assim se digitar algo fora da lista ela ficará avisando sempre sobre isso!

Para o que precisa, deverá fazer com caixa de Texto normal, igual ao exemplo em que eu lhe enviei!

Olá Professor ;
Achei e adaptei para que eu quero gostaria porem para efeito de aprendizado que você adaptasse pra mim por favor essa frase
Operador(a) Aviso Importante !!! no código abaixo
Obrigado
Zuleika
Private Sub Cbo_Placa_NotInList(NewData As String, Response As Integer)
If MsgBox("Placa não Cadastrada:'" & NewData & "'" & vbCrLf _
& " Deseja Cadastrá-la? ", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "Frm_Placa", , , , acFormAdd, _
acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do segundo formulário.
Cidade = UCase(NewData) ' Converte o texto para maiúsculas.
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

Olá Zuleika, a Mensagem deve ser digitada entre aspas nessa linha:

If MsgBox("Placa não Cadastrada:'" & NewData & "'" & vbCrLf _


Tente assim:

Código:

Private Sub Placa_NotInList(NewData As String, Response As Integer)
If MsgBox("Operador(a) Aviso Importante !!! Placa não Cadastrada: '" & NewData & "'" & vbCrLf _
& " Deseja Cadastrá-la? ", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "Frm_Placa", , , , acFormAdd, acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do segundo formulário.
Cidade = UCase(NewData) ' Converte o texto para maiúsculas.
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

Olá professor
Boa Noite ;
Consegui com sua imensa ajuda a adaptar esse código que esta funcionando otimamente bem mas duas coisas que gostaria de saber :
1 - No formulário que aparece do visual basic esta no topo assim Microsoft Office gostaria de trocá-la por " Operador(a) Aviso Importante !
2 - Para ajudar o operador não precisar digitar outra vez a placa no frm_Placa que abre quando clico no botão sim tem como digitar uma vez só ?
Atenciosamente
Zuleika
Muito obrigado ok Professor

Private Sub Cbo_Placa_NotInList(NewData As String, Response As Integer)
If MsgBox(" Placa não Cadastrada '" & NewData & "'" & vbCrLf _
& " Deseja Cadastrá-la? ", 32 + vbYesNo) = 6 Then
DoCmd.OpenForm "Frm_Placa", , , , acFormAdd, acDialog, NewData
' A execução deste código fica interrompida aqui até o
' fechamento do segundo formulário.
Cidade = UCase(NewData) ' Converte o texto para maiúsculas.
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

Para colocar o Titulo, basta mudar essa linha, e alterar o idem em vermelho!

& " Deseja Cadastrá-la? ", 32 + vbYesNo, "Titulo Aqui...") = 6 Then

Boa Tarde Professor ;
Muito obrigado pela ajuda vou dar como encerrado
Cordialmente
Zuleika

Grato pelo retorno amigo, até a próxima se Deus Quiser!

Olá professor boa noite ;
Só para registrar é amiga não amigo.Talvez vc errou na digitação só para confirmar.
Att
Zuleika