[Resolvido]Impedir violação no form

Boa noite colegas....
Estou com duas dúvidas sobre um form que montei.....segue cópia após

1º Ao abrir form, para adicionar registro tem que clicar no botão novo, só que começa a tabulação no campo Data Registro e o correto é tx e os outros seguintes. Já verifiquei ordem de tabulação e o procedimento de evento dos botões novo e salvar. A como melhorar isso????

2º Seguindo os passos acima para adicionar um registro e o usuário não preencher nenhum campo e por acaso apertar a tecla salvar ao invés de fechar , aparece uma caixa de dialogo pedindo sim ou não e se escolher em sim ele fecha não salvando, mas se escolher não o sistema Abre a janela da erro em tempo de execusão 2046 e a pedindo fim ou depurar e conseqüentemente abre o código. Lógico que é difícil o usuário agir desta forma, mas há possibilidades de ocorrer, então há como impedir isso, ou só ocorre quando o Bd esta em mdb????
http://www.speedyshare.com/files/29404193/clovis.rar

Olá Clovis. O foco está indo para o campo data porque tem uma linha no clique do botão novo que manda ele para esse campo:

Data_Cheque.SetFocus

Retire essa linha ou altere Data_Cheque para o nome do campo para o qual quer enviar o foco.

Qual form da erro?

Para o Erro substitua todo o código do botão salvar por este:
Aqui vamos apenas tratar o erro específico pois a operação com o comando Undo não está disponível




Private Sub Salvar_Click()
On Error GoTo TrataErro
Dim strMsg As String
Dim iResponse As Integer


DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Codigo_Cheque.Enabled = False
Codigo_Cheque.Locked = False
TX.Enabled = False
DataVc.Enabled = False
DataPg.Enabled = False
Data_Cheque.Enabled = False
Nome_Cliente.Enabled = False
Juros.Enabled = False
Inicial.Enabled = False
Emitente_Cheque.Enabled = False
Banco_Cheque.Enabled = False
Agencia_Cheque.Enabled = False
NºCheque_Cheque.Enabled = False
ValorCheque_Cheque.Enabled = False
Vencimento_Cheque.Enabled = False
Sair.SetFocus
Novo.Enabled = True
Comando106.Enabled = True
Comando107.Enabled = True
Comando108.Enabled = True
Comando109.Enabled = True
Excluir.Enabled = False
Novo.SetFocus
Salvar.Enabled = False
Alterar.Enabled = True
'Buscar.Enabled = False Eu desabilitei esta linha pois ele não encontra o objeto que a mesma faz referencia

strMsg = "Deseja salvar as alterações?" & Chr(10)
strMsg = strMsg & "Clique Sim para salvar ou Não para ignorar."
iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "Salvar registro?")

If iResponse = vbNo Then

DoCmd.RunCommand acCmdUndo

Cancel = True

TrataErro:
If Err.Number = 2046 Then
MsgBox "A operação salvar foi cancelada.", vbOKOnly + vbCritical, "Cancelado"
Else
Resume Next
End If
End If
End Sub


Amigão.. no comando do botão antenrior tem dois comandos Click (Apague um deles, o que não está sendo usado)

Tem vários erros de compilação nos seguintes códigos:

Objetos inexistentes:

Private Sub Emitente_AfterUpdate()
'Me.Emitente.RowSourceType = "value list"
'Me.Emitente.AddItem Emitente_Cheque
End Sub



Private Sub Juros_Exit(Cancel As Integer)
'Este if verifica o controle que está o foco
If IsNull(Me.ActiveControl) Then

'Se percebe que ele está nulo, então cancela qualquer que seja a ação
DoCmd.CancelEvent

'E emite a mensagem ao usuário do computador, dizendo que o campo não pode ficar vazio
MsgBox " O campo JUROS é de preenchimento obrigatório", vbInformation, "Atenção"
End If
End Sub
End Sub 'um End Sub a mais

Private Sub Origem_Cheque_GotFocus()
Me.Origem_Cheque.Dropdown
End Sub

Private Sub txtPagamento_AfterUpdate()
Me.txtdias = Me.txtVencimento - Me.txtPagamento
End Sub

Private Sub Testar_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Call mouseCursor(32649)
End Sub

Opa! Não vi que estavas a responder amigo Criquio.. Bom dia camarada!

Bom dia! No problem

Boa tarde Criquio.....
Verdade... não percebi, uma que ele deveria estar no inicio do proc. obrigadão Criquio. Estou falhando no básico...vou prestar mais atenção antes de postar.....

Harysohn amigão, esta certo.... efetuei as alteração(2ª)e deu certo. Caso o usuário entre no registro e não digite nada, nada acontece (não abre os códigos)
Sobre a duplicação de click, na verdade eu acrescentei eles(botôes) e após alterei(modelo) devo ter esquecido de apagar. Enfim deu certissimo...

Agravina, obrigado pela atenção em me ajudar.... os colegas Criquio e Harysohn resolveram meus dois problemas, mas lhe agradece da mesma maneira, mas fique tranquilo já ja me dá outro branco e posto novamente heheheheh, bricadeira.....
Muito obrigado a vocês. Tenho orgulho de participar do melhor forum de access.

O Fórum agradece o retorno