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


    [Resolvido]Adicionar registro através de caixa de combinação

    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 12/03/2016

    [Resolvido]Adicionar registro através de caixa de combinação Empty [Resolvido]Adicionar registro através de caixa de combinação

    Mensagem  rmobombeiro 19/5/2016, 00:50

    Boa noite, pessoal!

    Tenho um bd no qual cadastro a saída e entrada de veículos da empresa aonde trabalho. De tempos em tempos, os veículos da empresa são substituídos. Todos os veículos estão listados na tabela Veículos. Como faço para inserir ou excluir um registro nessa tabela sem ter que entrar no "Modo Estrutura". No formulário, esses veículos são selecionados através de uma caixa de combinação.
    A princípio minha ideia é, quando o usuário digitar um dados dentro dessa caixa de combinação e esse dados não constar na tabela, emitir uma mensagem perguntando se deseja ou não inserir esse novo registro. Em caso positivo, abrir um formulário e, nesse formulário, inserir todos os dados do veículo.

    Como posso fazer isso?

    Obrigado
    avatar
    Convidado
    Convidado


    [Resolvido]Adicionar registro através de caixa de combinação Empty Re: [Resolvido]Adicionar registro através de caixa de combinação

    Mensagem  Convidado 19/5/2016, 01:04

    No evento "se não estiver na lista" da combobox


    Private Sub SuaCombobox_NotInList(NewData As String, Response As Integer)
    Response = acDataErrContinue ' Inibe msg padrão do Access.
    If MsgBox("Veiculo não Cadastrado no Sistema: '" & NewData & "'" & vbCrLf _
    & "Deseja Cadastrar?", 32 + vbYesNo) = 6 Then
    DoCmd.OpenForm "SeuFormCadastro", , , , acFormAdd, _
    acDialog, NewData
    ' A execução deste código fica interrompida aqui até o
    ' fechamento do formulário SeuFormCadastro.

    Response = acDataErrAdded
    Else
    Response = acDataErrContinue
    End If
    End Sub
    avatar
    rmobombeiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 12/03/2016

    [Resolvido]Adicionar registro através de caixa de combinação Empty Re: [Resolvido]Adicionar registro através de caixa de combinação

    Mensagem  rmobombeiro 19/5/2016, 11:12

    Bom dia, cafpr!

    Funcionou perfeitamente.

    Obrigado.

    Conteúdo patrocinado


    [Resolvido]Adicionar registro através de caixa de combinação Empty Re: [Resolvido]Adicionar registro através de caixa de combinação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/4/2024, 15:43