MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Registros do sub_form não atualizam corretamente. Campos em branco

    avatar
    keninha
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 26/11/2013

    Registros do sub_form não atualizam corretamente. Campos em branco Empty Registros do sub_form não atualizam corretamente. Campos em branco

    Mensagem  keninha 5/9/2014, 09:42

    Prezados,

    Tenho um subform que de acordo com a data da nomeação escolhida no formulário, me permite cadastrar novas vagas.
    Porém, quando modifico a região, os campos vaga e unidade dos registros preenchidos anterioremente ficam em branco.
    O código da nomeação "nom" sempre é o mesmo para todos os registros.


    Alguém poderia me ajudar? Segue abaixo imagens e o código. Grata.

    Registros do sub_form não atualizam corretamente. Campos em branco <img src=" />

    Registros do sub_form não atualizam corretamente. Campos em branco <img src=" />
    Registros do sub_form não atualizam corretamente. Campos em branco <img src=" />


    Option Compare Database

    Private Sub Form_Current()
    If IsNull(Vaga.Value) Then

         Vaga.Enabled = False
         Vaga.BackColor = 12632256
         UNIDADE.Enabled = False
         UNIDADE.BackColor = 12632256
     
    Else
         Vaga.Enabled = True
         Vaga.BackColor = 16777215
         UNIDADE.Enabled = True
         UNIDADE.BackColor = 16777215
       
    End If
    End Sub


    Private Sub regiao_AfterUpdate()
       Me.Vaga.Enabled = True
       Me.Vaga.BackColor = 16777215
       With Me
           .Vaga.SetFocus
           .Vaga.Requery
           .Vaga.Dropdown
           
         
       End With

    End Sub

    Private Sub vaga_AfterUpdate()
    Me.UNIDADE.Enabled = True
    Me.UNIDADE.BackColor = 16777215
       With Me
           .UNIDADE.SetFocus
           .UNIDADE.Requery
           .UNIDADE.Dropdown
         
       End With
    End Sub

    Private Sub vaga_Click()

    'Me.Requery

    End Sub

      Data/hora atual: 22/11/2024, 12:53