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.
" />
" />
" />
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
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.
" />
" />
" />
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