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]Abrir o formulario para cadastrar item não cadastrado

    avatar
    icruznina
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 29
    Registrado : 03/08/2015

    [Resolvido]Abrir o formulario para cadastrar item não cadastrado Empty [Resolvido]Abrir o formulario para cadastrar item não cadastrado

    Mensagem  icruznina em 28/6/2019, 19:19

    Boa tarde!
    Coloquei o seguinte codigo no formulario de atividades:

    Código:
    Private Sub Descrição_NotInList(NewData As String, Response As Integer)
       If MsgBox("A Atividade " & UCase(NewData) & " não está cadastrada. Deseja cadastrar?", _
           vbQuestion + vbYesNo, "Não cadastrado...") = vbNo Then
           Me!Descrição.SetFocus ' Põe o foco no próprio campo
           Exit Sub
       End If
           DoCmd.OpenForm "TURMA-ATIVIDADES_2", acNormal, , , acFormAdd, acDialog, UCase(NewData) ' Abre form de cadastro de GRUPOS
           Me!Descrição.SetFocus ' Volta ao campo para confirmação
           Response = acDataErrAdded ' [b]Atualiza a combo[/b]
    End Sub

    Só que quando volto ao formulário de cadastro da turma, nao está atualizando a combo de descrição da atividade.
    avatar
    renpv
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 194
    Registrado : 12/01/2015

    [Resolvido]Abrir o formulario para cadastrar item não cadastrado Empty Re: [Resolvido]Abrir o formulario para cadastrar item não cadastrado

    Mensagem  renpv em 28/6/2019, 20:43

    Não precisa de código pra atualizar os dados de uma combobox.
    Na folha de propriedades dessa combo você seleciona a guia Dados, dentro dela vai ter a opção "Formulário de edição de itens da lista". Basta selecionar um formulário, no seu caso TURMA-ATIVIDADES_2.

    Sucesso.
    avatar
    icruznina
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 29
    Registrado : 03/08/2015

    [Resolvido]Abrir o formulario para cadastrar item não cadastrado Empty ok

    Mensagem  icruznina em 13/8/2019, 19:24

    muito bom. obrigada

    Conteúdo patrocinado

    [Resolvido]Abrir o formulario para cadastrar item não cadastrado Empty Re: [Resolvido]Abrir o formulario para cadastrar item não cadastrado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/10/2019, 03:43