[Resolvido]Impedir que campos fiquem em branco após finalizar um lançamento,,,,

Olá pessoal.. Alguém pode ajudar? A situação é a seguinte:
Tenho um form com um subform (Formulário Contínuo) ..
Após preencher os campos do form e do subform, o usuário clica no botão finalizar(que está no form), é emitida uma mensagem e um novo registro é aberto para um novo lançamento..
Meu problema é que alguns campos do subform estão ficando sem preenchimento.
Exemplo de preenchimento do subform:
campo1 campo2 campo3
1 jose 5
2 6
3 maria
Nesse caso o único registro preenchido corretamente é o 1.
No registro 2 o campo2 está vazio e no registro 3, o campo3 está vazio. Gostaria de que ao clicar no botão finalizar se algum campo estivesse vazio aparecesse uma mensagem do tipo (Existem campos em branco. Verifique.)
Não sei se fui claro, mas esse é o meu problema.
Alguém pode ajudar..
Desde já agradeço ....

no botão finalizar inclua esse comando no evento ao clicar

if forms!seusubformulario!seucamposubformulario.text = "" then
msgbox ( "campo de preenchimento obrigatório", vbinfomation ,vbok, "sua mensagem de aviso aqui")

end if


teste e nos informe.


Abraços

Valeu a ajuda ..
Aparece a seguinte mensagem: Você não pode fazer referência a uma propriedade ou a um método de um controle , a menos que o controle tenha o foco.
Infelizmente não funcionou ..

Bom dia...

Mas me diga, onde você deseja que o campo seja de preenchimento obrigatório ?

No evento ao sair dos campos que pretende ser obrigatório o preenchimento:

Private Sub OrdCorte_Exit(Cancel As Integer)

If IsNull(Me.ActiveControl) Then

MsgBox "Esse campo é de preenchimento obrigatório !!!", vbCritical, "Atenção"

DoCmd.CancelEvent

End If
End Sub

Obrigado pelas dicas...
Mas o problema é o seguinte:
O meu subform é um formulário contínuo.. São 7 campos.
Se a pessoa preenche o primeiro campo ela tem que preencher 3 campos específicos.. Acontece que muitas vezes o usuário, no subform, preenche o primeiro campo do primeiro registro e não preenche os outros campos. Ele passa para o registro seguinte, no subform, e nesse registro ele preenche todos os campos.. E faz isso constantemente. Ou seja, o subform fica com alguns registros preenchidos corretamente e outros não.. O que eu queria era que ao clicar no botão Finalizar e no botão Sair do form principal ele verificasse se existe algum registro com o primeiro campo preenchido e os outros em branco. Se isso fosse verdade , ele emitisse uma mensagem avisando. Ficará complicado fazer isso no evento Ao Sair de cada campo, pois alguns campos são preenchidos automaticamente quando o primeiro campo é preenchido.
Não sei se fui claro, mas é isso aí..
Alguém tem alguma outra sugestão ..
Desde já agradeço..

Boa tarde Augusto.

Poste teu projeto aqui, zipando o mesmo, para que nós possamos lhe dar uma força.

Diga-nos quais campos no teu subformulário terá que ser preenchimento obrigatório.

Abraços.

Augusto, releia a mensagem 5. Adapte somente nos campos que são obrigatórios.

Desculpe a demora , tive alguns problemas ..
Pessoal acho que não me expliquei bem..
Preciso que ao clicar no botão finalizar que está no form principal , o access verifique se no subform existe algum registro com o campo1 preenchido e o campo2 e campo3 em branco.
Não dá certo se eu fizer isso no evento ao sair de cada campo do subform. Pois em alguns dos campos eu preciso entrar para que um determinado cálculo seja realizado.
Existe algum exemplo aqui ou código que eu possa usar como base ?
Teria que ser realmente através do botão finalizar do form principal. Alguém tem alguma sugestçao ?
Agradeço novamente ...

Augusto este codigo encontrei em meus arquivos mas não é meu e tb não lembro quem é o autor. Teste e retorne
1) Num Módulo novo cole o código abaixo:

Public Function CpoExigido(ByVal UmForm As Form) As Boolean
Dim ctl As Control
Dim Num As Integer
On Error GoTo Err_CpoExigido
CpoExigido = False
Num = 0
For Each ctl In UmForm
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
If ctl = "" Or IsNull(ctl) Then
Num = 1
Exit For
End If
End If
Next ctl
If Num = 1 Then
MsgBox "O campo " & ctl.Name & " está vazio." & vbCr & _
"Verifique e preencha.", _
vbInformation, "Faltam dados..."
CpoExigido = True
Else
CpoExigido = False
End If

Exit_CpoExigido:
On Error Resume Next
If Not (ctl Is Nothing) Then
Set ctl = Nothing
End If
Exit Function

Err_CpoExigido:
Select Case Err
Case 0
Resume Next
Case Else
MsgBox Err.Description, vbInformation, "Erro: " & CStr(Err.Number)
End Select
End Function

2) Depois no evento Antes de Atualizar ou botão gravar de seu formulário cole o código abaixo:

If CpoExigido(Me) Then Cancel = -1

Olá cafpr.
Mais uma vez desculpe a demora.. O corre-corre tá muito grande....
E mais uma vez obrigado pela ajuda..
Seu código funciona, mas eu só quero que ele verifique 3 campos do subform.. Do jeito que está ele está verificando os campos do form principal.. E no form principal tenho um campo de procura que está sempre em branco , logo o código fica acusando esse campo vazio...
É possível ?

Boa noite Augusto.

Acrescente este código no botão salvar.

On Error Resume Next
If IsNull(Me!Campo1) Or Me!Campo1 = "" Then
MsgBox "Falta Digitar O Campo1 ", vbExclamation, "Aviso"
Me.Campo1.SetFocus
Exit Sub
End If
If IsNull(Me!Campo2) Or Me!Campo2 = Null Then
MsgBox "Falta Digitar O Campo2. ", vbExclamation, "Aviso"
Me.Campo2.SetFocus
Exit Sub
End If
If IsNull(Me!Campo3) Or Me!Campo3 = "" Then
MsgBox "Falta Digitar o Campo3. ", vbExclamation, "Aviso"
Me.Campo3.SetFocus
Exit Sub
End If.

e após ó codigo do botão salvar.

Olá cafpr..
Mais uma vez peço desculpas pela demora ..
Seu código funcionou ...
Obrigado pela ajuda e pela paciência..

Grande abraço ...