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 : 83
    Registrado : 09/01/2017

    [Resolvido]Atualizar form

    Mensagem  glaauco em 23/10/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 7 vez(es)
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Atualizar form

    Mensagem  scandinavo em 25/10/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 17 vez(es)

    glaauco
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Atualizar form

    Mensagem  glaauco em 26/10/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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Atualizar form

    Mensagem  scandinavo em 27/10/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 : 83
    Registrado : 09/01/2017

    Re: [Resolvido]Atualizar form

    Mensagem  glaauco em 30/10/2017, 09:56

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

      Data/hora atual: 24/6/2018, 08:04