[resolvido] Problema ao fechar Form

[Fernando Carvalho]

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

[rogeriod]

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]

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]

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