[Resolvido]Formulario nao salva alteração de registro

amigos !

Tenho um formulário que retorna dados completos de outro formulário de folha de dados.

O formulario completo seria pra cadastro de historico, só que dentro dele tem combo com a situação do prestador em "andamento" ou "concluido" seria alterado pelo proprio usuario. Porem ao fazer alteração dentro formulario completo ele nao altera o dado dentro da tabela.

Tentei fazer algumas alterações, porem não obtive sucesso.

alguem poderia me ajudar ?

codigo do formulario folha de dados:

DoCmd.OpenForm "formhistorico"
Forms!formhistorico!CODPASTA = Me.CODPASTA
Forms!formhistorico!PRESTADORINDICADO = Me.PRESTADORINDICADO
Forms!formhistorico!CNPJ_PRESTADOR = Me.CNPJ_PRESTADOR
Forms!formhistorico!CODIGOPRESTADOR = Me.CODIGOPRESTADOR
Forms!formhistorico!DATA = Me.DATA
Forms!formhistorico!ESPECIALIDADE = Me.ESPECIALIDADE
Forms!formhistorico!DDD = Me.DDD
Forms!formhistorico!TELEFONE = Me.TELEFONE
Forms!formhistorico!CIDADE = Me.CIDADE
Forms!formhistorico!UF = Me.UF
Forms!formhistorico!INDICAÇÃO_ADEQUAÇÃO = Me.INDICAÇÃO_ADEQUAÇÃO
Forms!formhistorico!STATUS = Me.STATUS
Forms!formhistorico!SITUAÇÃO = Me.SITUAÇÃO
Me.seleção = ""
Forms!formhistorico.Form!lstHist.Requery
Me.Requery

Codigo da combo:

Private Sub SITUAÇÃO_AfterUpdate()
If Me.SITUAÇÃO.Column(1) = "CONCLUIDO" Then
   If MsgBox("Tem Certeza que deseja Alterar a Situação do Prestador", vbYesNo, "Exit") = vbYes Then
   DoCmd.RunCommand acCmdSaveRecord
   Me.SITUAÇÃO.Enabled = False
   Else
   Me.SITUAÇÃO = "ANDAMENTO"
   End If
End If
Me.Refresh
End Sub


Segue o bd

Alguém?

Bom dia,

Seu problema acontece porque voce estava tentando utilizar uma expressão apra formulário acoplados (acCmdSaveRecord) quando o seu formulário é desacoplado. Substitua o código da combo pelo abaixo:

Código:

If Me.SITUAÇÃO.Column(1) = "CONCLUIDO" Then
    If MsgBox("Tem Certeza que deseja Alterar a Situação do Prestador", vbYesNo, "Exit") = vbYes Then
   
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("select codpasta, SITUAÇÃO from BANCODEDADOSCENTRAL where codpasta = " & Me.CODPASTA & "")
    rs.Edit
        rs("SITUAÇÃO") = Me.SITUAÇÃO.Column(1)
    rs.Update
    rs.Close
   
    Me.SITUAÇÃO.Enabled = False
    Else
    Me.SITUAÇÃO = "ANDAMENTO"
    End If
End If
Me.Refresh

Abraço.

Cassio

Bom dia !

Mto obrigado.

Cara que aprendizado em...

Eu nem fazia ideia de como fazer isso ao formulario nao acoplado. obg !

Bom dia,

O fórum agradece o retorno.

Abraço.