Prezados,
Utilizo o access 2003 para rodar um sistema de almoxarifado que estou desenvolvendo de acordo com as necessidades da empresa onde trabalho e implementando vários exemplos que adquiri aqui mesmo no Forum MaximoAccess.
Tenho um formulário para cadastro de requisições de materiais com os seguintes campos a serem preenchidos: Campo Número da requisição como tipo de dados numeração automática, Campo Data da requisição com tipo de dados data/hora, Campo Nome do Funcionário Requisitante associado a tblFuncionário, Campo Nome do Setor Requisitante associado a tblSetor, Campo Nome do Setor Destino associado a tblSetor, Campo Nome do Paciente associado a tblPaciente, etc.. Todos os campos são obrigatórios e utilizei o seguinte código no evento ao sair:
Private Sub UnidadeSaude_Exit(Cancel As Integer)
If IsNull(Me.ActiveControl) Then
DoCmd.CancelEvent
MsgBox "Campo Obrigatório...", vbCritical
End If
End Sub
O problema é que quando eu tento sair do formulário clicando no botão sair, se eu não tiver preenchido os campos ele não me permite sair, fica disparando o evento "campo obrigatório".
Mas o que eu queria era tipo quando eu tentasse sair pelo botão sair ele cancelasse o pedido que não foi todo preenchido e fechasse o formulário.
Não sei se ficou claro, mas eu posso postar a aplicação se for o caso.
Agradeço a todos pela atenção dispensada.
Utilizo o access 2003 para rodar um sistema de almoxarifado que estou desenvolvendo de acordo com as necessidades da empresa onde trabalho e implementando vários exemplos que adquiri aqui mesmo no Forum MaximoAccess.
Tenho um formulário para cadastro de requisições de materiais com os seguintes campos a serem preenchidos: Campo Número da requisição como tipo de dados numeração automática, Campo Data da requisição com tipo de dados data/hora, Campo Nome do Funcionário Requisitante associado a tblFuncionário, Campo Nome do Setor Requisitante associado a tblSetor, Campo Nome do Setor Destino associado a tblSetor, Campo Nome do Paciente associado a tblPaciente, etc.. Todos os campos são obrigatórios e utilizei o seguinte código no evento ao sair:
Private Sub UnidadeSaude_Exit(Cancel As Integer)
If IsNull(Me.ActiveControl) Then
DoCmd.CancelEvent
MsgBox "Campo Obrigatório...", vbCritical
End If
End Sub
O problema é que quando eu tento sair do formulário clicando no botão sair, se eu não tiver preenchido os campos ele não me permite sair, fica disparando o evento "campo obrigatório".
Mas o que eu queria era tipo quando eu tentasse sair pelo botão sair ele cancelasse o pedido que não foi todo preenchido e fechasse o formulário.
Não sei se ficou claro, mas eu posso postar a aplicação se for o caso.
Agradeço a todos pela atenção dispensada.