[Resolvido]Problema com botões

Já vi, que eles e os filtros são meus karmas. rsrsrsrss
No meu frm cadastro de cliente, os botoes alterar, salvar e imprimir, quero incluir um código, função, sei lá o q. Para evitar salvar, alterar e imprimir campos vazios.
Mais ou menos assim.
Quando eu entro no frm, ele está vazio. Se eu pedir para alterar,salvar ou imprimir este documento, mesmo vazio, ele executa o comando. eu quero que quando o frm estiver vazio, apareça uma mensagem informando: "Escolha um cliente para alterar". Ou "escolha um cliente para imprimir", ou "cadastre um novo cliente ou altere um já existente". qual comando eu tenho q colocar? grata.

Boa tarde!

crie um botão de o nome de "salvar"

Ao clicar no botão "salvar" insira:

Private Sub Salvar_Click()

If IsNull(Me.Codigo) Then
MsgBox "Não há dados para salvar", vbInformation, "Salvar"

Else
DoCmd.Save
If Me.Dirty Then
MsgBox " cliente cadastrado com sucesso!", vbInformation + vbOKOnly, " Cadastro!"
Me.Refresh
DoCmd.GoToRecord , , acNewRec

End If
End If

End Sub

com o botão salvar, funcionou legal. Mas com o botäo alterar o código funciona corretamente qdo está vazio, mas quando está dirty não executa os comandos de perguntar se deseja alterar os dados, se sim, muda a cor do frm,etc,etc...o botão alterar não está liberando para alterar. Com o botão imprimir ele avisa que não pode imprimir pq esta em branco, mas logo depois vem a opção de imprimir.

Esse é meu código para o botão alterar. Incluir o ifis null seu.

Private Sub bt_altera_dados_Click()

If IsNull(Me.CodigoCliente) Then
MsgBox "Formulário em branco. Escolha um cliente na caixa de pesquisa para alterar os dados.", vbInformation, "Alterar dados"

Else
If Me.Dirty Then
If MsgBox(" Deseja alterar algo nesse cliente ?", vbYesNo + vbDefaultButton1 + vbInformation, "teste de mensagem") = vbYes Then

Me.Section(0).BackColor = 11389934 ' muda a cor do corpo do formulario
Me.CabeçalhoDoFormulário.BackColor = 11389934 ' muda a cor do cabeçalho
' os comando abaixo libera todos os campos para edição
CodigoCliente.Enabled = True
Nome.Enabled = True
CPF.Enabled = True
FoneResidencial.Enabled = True
FoneComercial.Enabled = True
Celular.Enabled = True
Email.Enabled = True
Endereco.Enabled = True
PontoReferencia.Enabled = True
Observacao.Enabled = True
Else ' caso o usuario cancele, surge a mensagem
MsgBox " Operação cancelada pelo usuário", vbInformation, " Operação cancelada "
End If
End If
End If
DoCmd.RunCommand acCmdRefresh ' caso ocorra alteração de dados, atualiza a tabela e o formulario
End Sub

No botão imprimir tente este!

Dim X As String
X = DCount("*", "SuaTabela ou consulta")
If X <= 0 Then
MsgBox "Não existem dados", vbInformation, "Alerta"
DoCmd.CancelEvent
Exit Sub
Else
Endif

On Error Resume Next
DoCmd.OpenReport "SeuRelatorio", acPreview
DoCmd.RunCommand acCmdZoom75
DoCmd.RunCommand acCmdPreviewEightPages


Aneju na mensagem 2

para alterar dados ao invés deste:
If IsNull(Me.CodigoCliente) Then


troque para:
If not IsNull(Me.CodigoCliente) Then


acrecente o not antes do IsNull.

Testa ai.

Tou começando a entender como funciona este negócio, tou começando a gostar mais ainda. rsrsrrss

No botão imprimir aquele código não funcionou. Peguei o que eu já tinha e fiz uma misturada doida com os comandos If isNull e If Not isNull e funcionou. Ficou assim:

On Error Resume Next
Dim strDocName As String
Dim strFilter As String
If IsNull(Me.CodigoCliente) Then
MsgBox "Formulário em branco. Não foi possível imprimir.", vbInformation, "Imprimir"
Else
If Not IsNull(Me.CodigoCliente) Then
If MsgBox("Imprimir esse registro?", vbQuestion + vbYesNo, "Imprimir") = vbYes Then
strDocName = "RelCRecepNomeCliente"
strFilter = "CodigoCliente=Forms!FrmRecepNomeCLiente!CodigoCliente"
DoCmd.OpenReport strDocName, acViewNormal, , strFilter
End If
End If
End If
End Sub



E o botão alterar, eu troquei e tb não funcionou. Então, eu deixei o If isNull como estava e na linha de baixo onde tinha If Me. Dirty troquei pelo If Not IsNull(Me.CodigoCliente) Then

Private Sub bt_altera_dados_Click()

If IsNull(Me.CodigoCliente) Then
MsgBox "Formulário em branco. Escolha um cliente na caixa de pesquisa para alterar os dados.", vbInformation, "Alterar dados"

Else
If Not IsNull(Me.CodigoCliente) Then
If MsgBox(" Deseja alterar algo nesse cliente ?", vbYesNo + vbDefaultButton1 + vbInformation, "teste de mensagem") = vbYes Then


FUNCIONOU PERFEITO. Se vai dar erro lá a frente, só Deus sabe. (risos)

MUUUUIIIITTTOOOOO OBRIGADA. MAS TENHO UM PROBLEMA COM OUTRO BOTÃO QUE É O BOTÃO AGENDAR ATENDIMENTO.
Este tá russo!!

Neste frm cadastro de cliente, ao terminar o cadastro de cliente o usuario terá a opção de cadastrar direto o agendamento do atendimento deste funcionário, através de um botão que abrirá outro frm.
Só que eu não sei como fazer. Pois, ao clicar no botão, abrirá o frm agendar que já trará o codigo, cpf e nome do cliente preenchido e bloqueado para edição, que estava na tela anterior, no outro frm. Entende?

Vou abrir outro topico. abs

Que bom que resolveu!

O forum agradece!