[Resolvido]Ao alterar fica em branco

bom dia amigos!

Desenvolve um aplicativo de demandas compartilhado com um colaborador aqui da empresa

vamos ao que interessa, estou com dificuldade pra fazer a dinamica de rotação de status.


Ex: ele tem a demanda se que cadastro entra automaticamente no pelo filtros e seus respectivos status.


porem na hora de mudar os status que puxa de uma folha de dados ele fica em branco na hora da validação do status la na tabela.

alguem pode me ajudar...

abraços

Código:

Private Sub STATUS_Change()
If Not IsNull(Me.STATUS) Then
    If MsgBox("Tem Certeza que deseja Alterar a Situação da demanda?", vbYesNo, "Exit") = vbYes Then
    
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("select Código, STATUS from Tarefas where código = " & Me.flcodigo & "")
    rs.Edit
        rs("STATUS") = Me.STATUS.Column(1)
    rs.Update
    rs.Close
    
    Me.STATUS.Enabled = False
    Else
    Me.STATUS = "PENDENTE"
    End If
End If
Me.Refresh
End Sub


Você não deve usar no evento On Change, deve usar no depois de atualizar (AfterUpdate)

Para usar no Change, deve antes de mais enviar o foco para outro controle, porque até lá esse campo está sempre vazio.

Código:

Private Sub STATUS_AfterUpdate()
If Not IsNull(Me.STATUS) Then
    If MsgBox("Tem Certeza que deseja Alterar a Situação da demanda?", vbYesNo, "Exit") = vbYes Then
   
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("select Código, STATUS from Tarefas where código = " & Me.flcodigo & "")
    rs.Edit
        rs("STATUS") = Me.STATUS.Column(1)
    rs.Update
    rs.Close
   
    Me.STATUS.Enabled = False
    Else
    Me.STATUS = "PENDENTE"
    End If
End If
Me.Refresh
End Sub

blz jp obg, mas fiquei curioso, me como seria on change com foco?


eu fiz a alteração porem esta dando error 2115 fala que o access esta evitando de salvar dados na tabela deixei o arquivo pra vc dar um olhada

abraços

Teria de inserir uma caixa de texto com dimensões reduzidas ao máximo e dar-lhe o nome de por exemplo txtOculta;

Pelo que vi no seu cod, STATUS é uma combobox e assim sendo o melhor é sempre o AfterUpdate.

Código:

If Not IsNull(Me.STATUS) Then
  Me.txtOculta.SetFocus

jp

fiz conforme orientou sobre afterupdate esta dando erro 2115 diz que o access esta evitando de salvar


segue bd abaixo pra dar um olhada

STATUS_AfterUpdate, não BeforeUpdate.

E altere de Me.STATUS.Column(1) para Me.STATUS.Column(0).

As combos começam pela coluna zero e a sua só tem uma coluna.

deu certo meu querido, abraços


resolvido