[resolvido] Problema ao fechar Form

Moderador: Avelino Sampaio

Fernando Carvalho
Mensagens: 24
Registrado em: 29 Jun 2018, 10:02

[resolvido] Problema ao fechar Form

Mensagempor Fernando Carvalho » 11 Out 2018, 11:13

Tenho uma caixa de verificação com o nome de "optRecebido" e outra com o nome de "optEnviado".
o que eu queria era que quando eu fechar o form verificasse se alguma delas foi
passad a True. Se uma dela apresenta o valor True, o form fecha, caso contrário
emite uma mensagem, pedindo para que uma das caixas seja passada a True. Agradeço
desde já qualquer ajuda. Uso o Access 2003

com o código abaixo não funciona e fecha sempre o form:

Código:
Private Sub lblFechar_Click()
On Error Resume Next
Dim i As String
i = MsgBox("Por favor, clique sobre Recebido ou Enviado", vbCritical, "Confirmar")
If Me.optRecebido.Value = True And Me.optEnviado = 0 Then
DoCmd.close
ElseIf Me.optRecebido.Value = 0 And Me.optEnviado = True Then
DoCmd.close
Else
i=i
End If
End Sub
Última edição por Fernando Carvalho em 11 Out 2018, 23:14, editado 1 vez no total.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


rogeriod
Mensagens: 6
Registrado em: 09 Out 2018, 11:19

Re: Problema ao fechar Form

Mensagempor rogeriod » 11 Out 2018, 20:41

Bloquei o botão fechar do formulário (propriedade Botão fechar = Não)
Crie um botão para fechar o formulário:

Código:
if campo = true or campo2 = true then
DoCmd.Close acForm, "Frm_nome"
else
mensagem retornando
end if

Fernando Carvalho
Mensagens: 24
Registrado em: 29 Jun 2018, 10:02

Re: Problema ao fechar Form

Mensagempor Fernando Carvalho » 11 Out 2018, 23:13

Boa tarde, amigo. Eu errei ao colocar a questão. O código é esse abaixo. O problema é que mostra a mensagem sempre e depois fecha o form.

Código:
Private Sub lblFechar_Click()
On Error Resume Next
Dim i As String
i = MsgBox("Por favor, clique sobre Recebido ou Enviado", vbCritical, "Confirmar")
If Me.optRecebido.Value = True And Me.optEnviado = 0 Then
DoCmd.close
ElseIf Me.optRecebido.Value = 0 And Me.optEnviado = True Then
DoCmd.close
Else
i=i
End If
End Sub

Fernando Carvalho
Mensagens: 24
Registrado em: 29 Jun 2018, 10:02

Re: Problema ao fechar Form

Mensagempor Fernando Carvalho » 11 Out 2018, 23:20

Ok, já resolvi. O Código ficou assim: Bastou mudar a linha da variável i

Código:
Private Sub lblFechar_Click()
On Error Resume Next
Dim Cancel As Integer
Dim i As String
If Me.optRecebido.Value = True And Me.optEnviado = 0 Then
DoCmd.Close
ElseIf Me.optRecebido.Value = 0 And Me.optEnviado = True Then
DoCmd.Close
Else
i = MsgBox("Por favor, clique sobre Recebido ou Enviado", vbCritical, "Confirmar")
Exit Sub
End If
End Sub


Muito obrigado. Resolvido

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 7 visitantes