[Resolvido]mensagens e formularios

Olá pessoal tem como eliminar as mensagens do access, como por exemplo não encontrar dados e dar a mensagem não existem dados a serem exibidos, ai ao invez das mensagem de caixa de dialogos criar um formulario para que o sistema fique com um aspecto mais bonito, obrigada

se alguém tiver um exemplo e puder disponibilizar para estudo

Essas mensagens que diz aparece em quais situacoes amanda?

Saudacoes

Private Sub Form_Load()
DoCmd.SetWarnings = False
End Sub

Esse e meu mestre.. Sou Fa dele hehehe

Abracos Vierao

Fui dar uma volta e o Outono de Agosto aqui refrescou-me a memória, hehehehe

Oi meus amigos, eu gostaria que fosse assim, por exemplo se eu fizesse uma pesquisa me retornasse uma mensagem por meio de formulario, tipo assim, digamos que fosse fazer uma pesquisa dai que desse um erro qualquer, o access por si própio vai emitir uma mensagem certo, então gostaria de dar uma mudada o invez de ser aquelas caixas de dialogos do próprio access, fosse por um intermédio de um formulário, tem aquela uma que quando navegamos pelos registro e chegamos ao ultimo ou ao primeiro não será emitido a mensagem vc não pode ir para o registro especificado, então gostaria de usar um formulario para as mensagens serem exibidas,não sei se dará certo e se tem como , epero ter sido mais clara. Abraços

Não precisa de criar formulários para isso. Basta assim, como este exemplo:

Private Sub Comando34_Click()
On Error GoTo Err_Comando34_Click
Dim Msg, Style, Title ' (sempre igual)
Msg="Não existem mais registros a visualizar" ' Esta mensagem pode ser alterada
Style=vbInformation ' o Tipo de caixa também (vbCritical, vbYesNo, etc)
Title="Aviso" 'o Título também pode ser alterado

DoCmd.GoToRecord , , acPrevious

Exit_Comando34_Click:
Exit Sub

Err_Comando34_Click:
Msg=MsgBox (Msg,Style,Title) 'aqui substituimos a mensagem padrão do Access
Resume Exit_Comando34_Click

End Sub

Pode ser assim tambem

Private Sub Comando34_Click()
On Error Goto TrataErro

'............Codigos

Exit Sub


TrataErro:
If err.Number = XXX Then 'Onde XXX é o numero do erro que recebe
MsgBox "Sua Mensagem para este Erro", vbCritical, "ERRO"
Exit Sub
Else
MsgBox Error, , "Erro nº" & err & " em Comando34_Click"
End If
End Sub


**** Pode adicionar quantos if's desejar conforme as mensagens de erro

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

Olá amigos, acabei de ver as repostas vou testar e depois retorno, um grande abraço e ótimo final de semana a todos