Boa tarde!
Coloquei o seguinte codigo no formulario de atividades:
Só que quando volto ao formulário de cadastro da turma, nao está atualizando a combo de descrição da atividade.
Coloquei o seguinte codigo no formulario de atividades:
- Código:
Private Sub Descrição_NotInList(NewData As String, Response As Integer)
If MsgBox("A Atividade " & UCase(NewData) & " não está cadastrada. Deseja cadastrar?", _
vbQuestion + vbYesNo, "Não cadastrado...") = vbNo Then
Me!Descrição.SetFocus ' Põe o foco no próprio campo
Exit Sub
End If
DoCmd.OpenForm "TURMA-ATIVIDADES_2", acNormal, , , acFormAdd, acDialog, UCase(NewData) ' Abre form de cadastro de GRUPOS
Me!Descrição.SetFocus ' Volta ao campo para confirmação
Response = acDataErrAdded ' [b]Atualiza a combo[/b]
End Sub
Só que quando volto ao formulário de cadastro da turma, nao está atualizando a combo de descrição da atividade.