[Resolvido]Atualizar combobox automaticamente

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:

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

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

Usar  Me.txtTpDegustacao.requery ao alterar do sub![ST]

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.

Agradecemos a retorno.
Sucesso...