MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Frm de aviso ao cadastrar

    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty [Resolvido]Frm de aviso ao cadastrar

    Mensagem  Zuleika 2/7/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
    [Resolvido]Frm de aviso ao cadastrar Attachmentaprendendo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 21 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes 3/7/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!
    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Frm de aviso ao cadastrar

    Mensagem  Zuleika 3/7/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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes 3/7/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!
    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty frm de aviso ao cadastrar

    Mensagem  Zuleika 3/7/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
    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty frm de aviso ao cadastrar

    Mensagem  Zuleika 3/7/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
    [Resolvido]Frm de aviso ao cadastrar Attachmentaprendendo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 6 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes 3/7/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!
    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty frm de aviso ao cadastrar

    Mensagem  Zuleika 3/7/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
    [Resolvido]Frm de aviso ao cadastrar Attachmentaprendendo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 4 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes 4/7/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!
    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Aviso no campo Placa do Frm_Ticket

    Mensagem  Zuleika 4/7/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
    [Resolvido]Frm de aviso ao cadastrar Attachmentaprendendo (2).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 10 vez(es)
    avatar
    sueli1947
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty frm de aviso no campo Placa

    Mensagem  sueli1947 5/7/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
    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty frm aviso ao cadastrar

    Mensagem  Zuleika 5/7/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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes 5/7/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!
    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty frm aviso ao cadastrar

    Mensagem  Zuleika 5/7/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

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes 6/7/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!
    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Frm de Aviso

    Mensagem  Zuleika 8/7/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

    sueli1947 gosta desta mensagem

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes 8/7/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!

    sueli1947 gosta desta mensagem

    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Frm de Aviso ao cadastrar

    Mensagem  Zuleika 8/7/2017, 17:42

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

    sueli1947 gosta desta mensagem

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  FabioPaes 10/7/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!

    sueli1947 gosta desta mensagem

    avatar
    Zuleika
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Frm de aviso ao cadastrar Empty frm de aviso ao cadastrar

    Mensagem  Zuleika 11/7/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

    Conteúdo patrocinado


    [Resolvido]Frm de aviso ao cadastrar Empty Re: [Resolvido]Frm de aviso ao cadastrar

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 06:21