[Resolvido]campo nome em branco

BOM DIA,A TODOS preciso de uma frm para inserir no campo nome do frm livro caixa,que me avise que o com o campo nome está em branco me dando uma aviso para preenche-lo; porém neste campo ja existe uma formula para inserir cliente não cadastrado na tabela cadastro de clientes ,isso é possivel?

Você pode colocar código no evento Antes de atualizar do Form para exigir o preenchimento do campo:

Código:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.CampoCliente) Then
    Cancel = True
    Me.CampoCliente.SetFocus
    MsgBox "Informe o nome do Cliente."
    Exit Sub
End If
End Sub

E pode inserir um novo cliente na tabela se o nome digitado não existir na combo onde escolhe o cliente:

Código:

Private Sub CampoCliente_NotInList(NewData As String, Response As Integer)
If MsgBox("Deseja adicionar  " & NewData & "  ao cadastro de Clientes?, vbQuestion + vbYesNo, "Confirmação") = vbYes Then
    If CurrentProject.AllForms("FrmClientes").IsLoaded Then DoCmd.Close acForm, "FrmClientes", acSavePrompt
      Dim db As Database
      Dim rs As DAO.Recordset
      Set db = CurrentDb
      Set rs = db.OpenRecordset("TblClientes")
      rs.AddNew
      rs!NomeCliente = NewData
      rs.Update
      rs.Close
      Set rs = Nothing
      db.Close
      Set db = Nothing
      Response = acDataErrAdded
Else
      Response = acDataErrContinue
      Me.CampoCliente.Undo
End If
End Sub

Olá grande Norberto como vai?

Uma observação, dando uma passada pelos tópicos, resolvi testar seu código
e no meu form não quer funcionar da o aviso para informar o nome do cliente mas fecha o form!

Veja:

Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me.Nome) Then
Cancel = True
Me.Nome.SetFocus
MsgBox "Informe o nome do Cliente."
Exit Sub
End If
End Sub

Já estou analisando aqui Norberto, porque tenho outro código tambem e está dando o mesmo erro!

Achei que o cod era pro frm livro caixa ,acabei de por no frm tab clientes ,e ficouo redondinho ,.obrigado

eu posso usar esse mesmo codigo do frm cadastro de cleintes no frm livro caixa para evitar seu preenchimento em branco? ,desculpe a confusão!!!ou deve ser outro código ?
Pq eu usei ele e gerou um erro nos campo totais dos frm ,pois dentro do campo nome do frm livro caixa eu tenho esse código:


Private Sub Combinação53_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Combinação53_NotInList(NewData As String, Response As Integer)

If MsgBox("Deseja adicionar " & NewData & " ao cadastro de Clientes?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tab_Clientes")
rs.AddNew
rs!Nome = NewData
rs.Update
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me.Combinação53.Undo
End If

End Sub

Entaum é assim ,no frm cadastro de clientes a formula (código) esta funcionando certinho,ja no frm livro caixa, o campo nome tem a função de adicioanr o cliente que não estiver na lista ok, eu so preciso da função ,de não registrar o campo nome em branco ,(tipo um Alerta):para o campo ser preenchido,antes de salvar!!!!.
Pois eu usei esse codigo que vc me passou, no campo nome, do frm livro caixa, e gerou um erro nos campos totais:
o nome, do campo nome, no frm livro caixa é: caixa de combinação53 e o cód no evento antes de atualizar é esse:

Private Sub Combinação53_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Combinação53_NotInList(NewData As String, Response As Integer)

If MsgBox("Deseja adicionar " & NewData & " ao cadastro de Clientes?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tab_Clientes")
rs.AddNew
rs!Nome = NewData
rs.Update
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me.Combinação53.Undo
End If

End Sub

E o cod no evento, se não estiver na lista é esse:

Private Sub Combinação53_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Combinação53_NotInList(NewData As String, Response As Integer)

If MsgBox("Deseja adicionar " & NewData & " ao cadastro de Clientes?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
Dim db As Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tab_Clientes")
rs.AddNew
rs!Nome = NewData
rs.Update
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me.Combinação53.Undo
End If

End Sub

Obrigado Norberto ,boa noite!vou fazer as mudanças

Norberto .obrigado redondinho ,!!!!!