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

4 participantes

    [Resolvido]Atualizar combobox automaticamente

    avatar
    kasa1982
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 06/12/2018

    [Resolvido]Atualizar combobox automaticamente Empty [Resolvido]Atualizar combobox automaticamente

    Mensagem  kasa1982 4/8/2022, 15:26

    Gelara, bom dia

    Mais uma dúvida.

    Como faço para atualizar a rowsource da minha caixa de combinação?

    Eu sei que tenho que usar a propriedade rowsource, mas meu problema está na seguinte condição:

    1. Tenho um formulário principal com uma caixa de texto que recebe um valor que está em um campo dentro de um subformulário;

    2. No evento ao clicar do subformulário eu jogo nessa caixa de texto do formulário principal o valor;

    3. No form principal eu tenho uma caixa de combinação que deve ser atualizada quando esse campo for alterado.

    O erro esta ai, se eu digito o valor na caixa de texto do form principal ele altera a combobox, mas eu desejo fazer isso de forma automática. Como faço?

    Vejam abaixo o meu form:


    Código dentro do Subform "FRM_CTQManAnalises_Filtro_sub", no evento "ao clicar":

    Código:
    Private Sub Form_Click()

    Forms!FRM_CTQManAnalises_Filtro![txtStatus].value = Int(Me.ST)
    Forms!FRM_CTQManAnalises_Filtro![txtStatus].SetFocus
    Forms!FRM_CTQManAnalises_Filtro![txtStatus].AutoTab = True

    End Sub

    Código dentro da minha textbox do form principal "FRM_CTQManAnalises_Filtro", evento "Ao alterar":

    Código:
    Private Sub txtStatus_Change()
        '"1;'Liberação 1º volta';2;'Liberação última volta';3;'Shelf-life';4;'KWT final'"
        If Me!FRM_CTQManAnalises_Filtro_sub![ST] = 0 Then
            Me.txtStatus.SetFocus
            Me.txtStatus.AutoTab = True
            Me.txtTpDegustacao.RowSource = "1;'Liberação 1º volta';2;'Liberação última volta'"
        ElseIf Me!FRM_CTQManAnalises_Filtro_sub![ST] = 5 Then
            Me.txtStatus.SetFocus
            Me.txtStatus.AutoTab = True
            Me.txtTpDegustacao.RowSource = "3;'Shelf-life';4;'KWT final'"
        ElseIf Me!FRM_CTQManAnalises_Filtro_sub![ST] = 9 Then
            Me.txtStatus.SetFocus
            Me.txtStatus.AutoTab = True
            Me.txtTpDegustacao.Enabled = False
        Else
            Me.txtTpDegustacao.Enabled = True
        End If
    End Sub

    Meu Formulário principal:

    [Resolvido]Atualizar combobox automaticamente F110
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2129
    Registrado : 23/01/2018

    [Resolvido]Atualizar combobox automaticamente Empty Re: [Resolvido]Atualizar combobox automaticamente

    Mensagem  crysostomo 5/8/2022, 01:00

    usa o Refresh e Requery  quando for cadastra a fonte da caixa de combinação


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3693
    Registrado : 22/11/2016

    [Resolvido]Atualizar combobox automaticamente Empty Re: [Resolvido]Atualizar combobox automaticamente

    Mensagem  DamascenoJr. 5/8/2022, 03:34

    Tópico movido de "Relatórios" por não ter relação com este tipo de objeto.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    samucaii
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 26/12/2012

    [Resolvido]Atualizar combobox automaticamente Empty Requery

    Mensagem  samucaii 10/8/2022, 01:16

    Usar  Me.txtTpDegustacao.requery ao alterar do sub![ST]
    avatar
    kasa1982
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 06/12/2018

    [Resolvido]Atualizar combobox automaticamente Empty Re: [Resolvido]Atualizar combobox automaticamente

    Mensagem  kasa1982 10/8/2022, 12:22

    Bom dia,

    Consegui resolver essa questão, fiz o seguinte:

    No subform dentro do meu form principal no envento "Ao clicar":

    Código:
    Private Sub Form_Click()

    If IsNull(Me.num_lote) Then
        Forms!FRM_CTQManAnalises_Filtro![txtTpDegustacao].RowSource = "1;'Liberação 1º volta'"
        Forms!FRM_CTQManAnalises_Filtro![txtNumLote].value = ""
        Forms!FRM_CTQManAnalises_Filtro![txtDtLote].value = ""
        Forms!FRM_CTQManAnalises_Filtro![txtHrLote].value = ""
        Forms!FRM_CTQManAnalises_Filtro![txtNumLote].Locked = False
        Forms!FRM_CTQManAnalises_Filtro![txtDtLote].Locked = False
        Forms!FRM_CTQManAnalises_Filtro![txtHrLote].Locked = False
    Else
        Dim intAnal1 As Integer, intAnal2 As Integer, intAnal3 As Integer, intAnal4 As Integer
       
        intAnal1 = Nz(DCount("[tpdegusta]", "tbl_regdeganalisesc", "[nrlote]=" & Me.num_lote & " AND [nrordem]=" & Me.OP & " AND [tpdegusta]=1"), 0)
        intAnal2 = Nz(DCount("[tpdegusta]", "tbl_regdeganalisesc", "[nrlote]=" & Me.num_lote & " AND [nrordem]=" & Me.OP & " AND [tpdegusta]=2"), 0)
        intAnal3 = Nz(DCount("[tpdegusta]", "tbl_regdeganalisesc", "[nrlote]=" & Me.num_lote & " AND [nrordem]=" & Me.OP & " AND [tpdegusta]=3"), 0)
        intAnal4 = Nz(DCount("[tpdegusta]", "tbl_regdeganalisesc", "[nrlote]=" & Me.num_lote & " AND [nrordem]=" & Me.OP & " AND [tpdegusta]=4"), 0)
       
        Forms!FRM_CTQManAnalises_Filtro![txtNumLote].value = Me.num_lote
        Forms!FRM_CTQManAnalises_Filtro![txtDtLote].value = DLookup("[dtlote]", "tbl_regdeganalisesc", "[nrlote]=" & Me.num_lote & " AND [nrordem]=" & Me.OP)
        Forms!FRM_CTQManAnalises_Filtro![txtHrLote].value = DLookup("[hrlote]", "tbl_regdeganalisesc", "[nrlote]=" & Me.num_lote & " AND [nrordem]=" & Me.OP)
        Forms!FRM_CTQManAnalises_Filtro![txtNumLote].Locked = True
        Forms!FRM_CTQManAnalises_Filtro![txtDtLote].Locked = True
        Forms!FRM_CTQManAnalises_Filtro![txtHrLote].Locked = True
       
        If intAnal1 = 1 And intAnal2 = 0 And intAnal3 = 0 And intAnal4 = 0 Then
            Forms!FRM_CTQManAnalises_Filtro![txtTpDegustacao].RowSource = "2;'Liberação última volta'"
            Forms!FRM_CTQManAnalises_Filtro.Requery
        ElseIf intAnal1 = 1 And intAnal2 = 1 And intAnal3 = 0 And intAnal4 = 0 Then
            Forms!FRM_CTQManAnalises_Filtro![txtTpDegustacao].RowSource = "3;'Shelf-life'"
            Forms!FRM_CTQManAnalises_Filtro.Requery
        ElseIf intAnal1 = 1 And intAnal2 = 1 And intAnal3 >= 1 And intAnal4 = 0 Then
            Forms!FRM_CTQManAnalises_Filtro![txtTpDegustacao].RowSource = "4;'KWT final'"
            Forms!FRM_CTQManAnalises_Filtro.Requery
        End If
    End If
    End Sub

    Se souberem como melhorar o código acima podem citar, desde já agradeço imensamente a ajuda de todos.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2129
    Registrado : 23/01/2018

    [Resolvido]Atualizar combobox automaticamente Empty Re: [Resolvido]Atualizar combobox automaticamente

    Mensagem  crysostomo 10/8/2022, 14:17

    Agradecemos a retorno.
    Sucesso...


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 15/8/2022, 13:24