MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Frm de aviso ao cadastrar

    Compartilhe

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    [Resolvido]Frm de aviso ao cadastrar

    Mensagem  Zuleika em Dom 02 Jul 2017, 07:38

    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
    Anexos
    aprendendo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 21 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes em Seg 03 Jul 2017, 13:46

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    Frm de aviso ao cadastrar

    Mensagem  Zuleika em Seg 03 Jul 2017, 14:22

    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes em Seg 03 Jul 2017, 15:24

    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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    frm de aviso ao cadastrar

    Mensagem  Zuleika em Seg 03 Jul 2017, 18:29

    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

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    frm de aviso ao cadastrar

    Mensagem  Zuleika em Seg 03 Jul 2017, 19:05

    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
    Anexos
    aprendendo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 5 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes em Seg 03 Jul 2017, 20:06

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    frm de aviso ao cadastrar

    Mensagem  Zuleika em Seg 03 Jul 2017, 23:33

    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
    Anexos
    aprendendo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 4 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes em Ter 04 Jul 2017, 13:39

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    Aviso no campo Placa do Frm_Ticket

    Mensagem  Zuleika em Ter 04 Jul 2017, 16:58

    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
    Anexos
    aprendendo (2).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 9 vez(es)

    sueli1947
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 122
    Registrado : 17/05/2013

    frm de aviso no campo Placa

    Mensagem  sueli1947 em Qua 05 Jul 2017, 00:23

    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

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    frm aviso ao cadastrar

    Mensagem  Zuleika em Qua 05 Jul 2017, 14:19

    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes em Qua 05 Jul 2017, 16:13

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    frm aviso ao cadastrar

    Mensagem  Zuleika em Qua 05 Jul 2017, 16:34

    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

    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes em Qui 06 Jul 2017, 01:26

    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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    Frm de Aviso

    Mensagem  Zuleika em Sab 08 Jul 2017, 01:40

    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes em Sab 08 Jul 2017, 16:23

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

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    Frm de Aviso ao cadastrar

    Mensagem  Zuleika em Sab 08 Jul 2017, 17:42

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3484
    Registrado : 14/08/2013

    Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes em Seg 10 Jul 2017, 18:14

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Zuleika
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 17
    Registrado : 29/09/2016

    frm de aviso ao cadastrar

    Mensagem  Zuleika em Ter 11 Jul 2017, 04:31

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

      Data/hora atual: Seg 11 Dez 2017, 23:02