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]Formulario nao salva alteração de registro

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 15/05/2013

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

    Mensagem  maguim em Qui 20 Abr 2017, 12:57

    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
    Anexos
    Beta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (959 Kb) Baixado 5 vez(es)

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 15/05/2013

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

    Mensagem  maguim em Qui 20 Abr 2017, 19:01

    Alguém?


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 524
    Registrado : 18/01/2013

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

    Mensagem  CassioFabre em Qui 20 Abr 2017, 20:49

    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.

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 204
    Registrado : 15/05/2013

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

    Mensagem  maguim em Seg 24 Abr 2017, 12:03

    Cassio

    Bom dia !

    Mto obrigado.

    Cara que aprendizado em...

    Eu nem fazia ideia de como fazer isso ao formulario nao acoplado. obg ! cheers
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 524
    Registrado : 18/01/2013

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

    Mensagem  CassioFabre em Ter 25 Abr 2017, 11:54

    Bom dia,

    O fórum agradece o retorno.

    Abraço.

      Data/hora atual: Sab 18 Nov 2017, 13:58