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]Ao alterar fica em branco

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Ao alterar fica em branco

    Mensagem  maguim em Ter 05 Set 2017, 14:07

    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


    Última edição por maguim em Ter 05 Set 2017, 14:21, editado 1 vez(es)


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Ao alterar fica em branco

    Mensagem  JPaulo em Ter 05 Set 2017, 14:13

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Ao alterar fica em branco

    Mensagem  maguim em Ter 05 Set 2017, 14:23

    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


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Ao alterar fica em branco

    Mensagem  JPaulo em Ter 05 Set 2017, 14:31

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Ao alterar fica em branco

    Mensagem  maguim em Ter 05 Set 2017, 14:45

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


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9703
    Registrado : 04/11/2009

    Re: [Resolvido]Ao alterar fica em branco

    Mensagem  JPaulo em Ter 05 Set 2017, 15:10

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]Ao alterar fica em branco

    Mensagem  maguim em Ter 05 Set 2017, 18:00

    deu certo meu querido, abraços


    resolvido


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

      Data/hora atual: Ter 21 Nov 2017, 10:15