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]Atualizar form

    Compartilhe

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 09/01/2017

    [Resolvido]Atualizar form

    Mensagem  glaauco em Seg 23 Out 2017, 13:33

    Bom dia,
    pesquisei dentro do forum e encontrei varios assuntos porem nenhum com que eu conseguisse aplicar diretamente.

    A dúvida é a seguinte:

    no meu form principal (frmPrincipalCad_defeitos) tenho um caixa de listagem (CxModelo) que busca modelos de outra tabela (modelos). Neste form principal eu tenho um botao que chama um form para cadastrar um novo modelo (frmCad_mod).

    Gostaria de saber como faço para atualizar essa caixa de listagem (CxModelo) automaticamente assim que eu adc um novo modelo sem precisar abrir e fechar o form principal.
    Anexos
    EXEMPLO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (59 Kb) Baixado 4 vez(es)
    avatar
    scandinavo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 359
    Registrado : 11/11/2009

    Re: [Resolvido]Atualizar form

    Mensagem  scandinavo em Qua 25 Out 2017, 16:04

    Ola  veja ai esta função não é de minha autoria foi retirado da qui do forum.

    Private Sub Combinação53_NotInList(NewData As String, Response As Integer)
    'Com esta função não ha a necessidade de abrir o frm de cadastro.
    'porque ja inseri diretamente na tabela.

    Dim sql As String
    If MsgBox("Defeito não cadastrado" & Chr(13) & Chr(13) & "Deseja cadastrar.. " & UCase(NewData) & " agora?", vbYesNo, "Cadastro de Defeitos") = vbYes Then
    DoCmd.SetWarnings False
    sql = "INSERT INTO tab_defeitos (defeitos) VALUES ('" & NewData & "')"
    DoCmd.RunSQL sql
    DoCmd.SetWarnings True
    Response = acDataErrAdded
    Else
    Response = acDataErrDisplay
    End If
    End Sub
    Anexos
    EXEMPLO2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (49 Kb) Baixado 13 vez(es)

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 09/01/2017

    Re: [Resolvido]Atualizar form

    Mensagem  glaauco em Qui 26 Out 2017, 13:42

    Muito obrigado mano por essa ajuda .. ficou muito bom e valeo por dar um up no campo de porcentagem kkk
    avatar
    scandinavo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 359
    Registrado : 11/11/2009

    Re: [Resolvido]Atualizar form

    Mensagem  scandinavo em Sex 27 Out 2017, 17:24

    Valeu pelo retorno.

    Aquela sua conta acho que estava errada kkk
    Lembrando dependendo de como deixar o formato do campo é vezes 100.

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 09/01/2017

    Re: [Resolvido]Atualizar form

    Mensagem  glaauco em Seg 30 Out 2017, 09:56

    Sim, a maneira que você fez ficou bem melhor mesmo.

      Data/hora atual: Qua 22 Nov 2017, 20:08