Bom dia a todos.
Preciso utilizar uma referência a um formulário através de uma variável do tipo As Form.
Porém, está ocorrendo um erro ao utilizar frm!Campo: "O sistema não pode localizar o formulário refenciado".
O que está errado?
O código é esse:
Preciso utilizar uma referência a um formulário através de uma variável do tipo As Form.
Porém, está ocorrendo um erro ao utilizar frm!Campo: "O sistema não pode localizar o formulário refenciado".
O que está errado?
O código é esse:
- Código:
Dim frm As Form
Select Case Me.TipoFolha
Case 1 'Folha Mensal
strForm = "frmFMensal"
Case 2 'Aviso de Férias
strForm = "frmFFerias"
Set frm = Forms!frmFFerias
Case 3 'Folha 13º Salário
strForm = "frmFolha13"
Set frm = Forms!frmFolha13
Case 4 'Recibo Pró-Labore/RPA
strForm = "frmFRecibo"
Set frm = Forms!frmFRecibo
End Select
intMsg = MsgBox("Confirma a inclusão de " & Me.lstTrabalhador.Column(1) & _
" neste movimento?", vbYesNo + vbQuestion, "Novo Registro!")
Select Case intMsg
Case vbYes
Select Case Me.TipoFolha
Case 2, 3, 4 'Aviso de Férias, 13º Salário, Recibo
DoCmd.OpenForm strForm, , , , acFormAdd
frm!CodTrabalhador = Me.lstTrabalhador
frm!CodMovimento = Me.CodMovimento
frm!TipoFolha = Me.TipoFolha
...
End Select