[Resolvido]Critério para Inserir registros com os campos de Seleção preenchidos.

Boa tarde pessoal,

Estou realizando uma reformulação no código abaixo, a qual desejo transferir registros de um formulário para a tabela com o critério de enviar somente os registros com os campos de seleção preenchidas.

O evento funciona bem selecionando o que desejo, mas se eu vier a desmarcar o campo, ele envia assim mesmo o registro.

Alguém para me ajudar a solucionar!

Código:

Public Sub NovoRegistro()
On Error Resume Next
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim I As Integer, I2 As Integer, Preenchidos As Boolean


For I = 1 To 41
If Len("" & Me("falha" & I)) > 0 Then
Preenchidos = True
End If
Next


If Me.turma > 0 And Me.Data > 0 And Me.Equip > 0 Then


If MsgBox("Confirma Transferência?", vbYesNo + vbQuestion, "CONFIRMAR") = vbNo Then Exit Sub


'Cadastrar tabela falhas

Set rs = CurrentDb.OpenRecordset("tblFalhas", dbOpenTable)

With rs
I2 = 0
For I = 1 To 41
If Len("" & Me("falha" & I)) > 0 Then
I2 = I2 + 1

.AddNew

![Data] = Me.Data
![Grupo] = Me.turma
![Setor] = Me.Setor
![Equipamento] = Me.Equip
![Responsavel] = Me.nome
![Turno] = Me.Turno
![Item] = Me("FDescricao" & I)
![Incoveniencia] = Me("tipo" & I)
![Registro] = Me.User


.Update


End If


Next

End With
End If
End Sub

Olá,

Tente o comando abaixo após a linha do MsgBox:

Código:

DoCmd.RunCommand acCmdSaveRecord

Olá a todos.
Fabricia, veja se link abaixo ajuda.
https://www.maximoaccess.com/t24981-funcao-para-verificar-campos-vazios-personalizada#179088
Abraço a todos

Obrigado pessoal, eu consegui meu objetivo, eu apenas alterei a opção de >0 para:
If Len("" & Me("falha" & I)) > 1 Then

Me atendeu...

Código:

Public Sub NovoRegistro()
On Error Resume Next
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim I As Integer, I2 As Integer, Preenchidos As Boolean


For I = 1 To 41
If Len("" & Me("falha" & I)) > 0 Then
Preenchidos = True
End If
Next


If Me.turma > 0 And Me.Data > 0 And Me.Equip > 0 Then


If MsgBox("Confirma Transferência?", vbYesNo + vbQuestion, "CONFIRMAR") = vbNo Then Exit Sub


'Cadastrar tabela falhas

Set rs = CurrentDb.OpenRecordset("tblFalhas", dbOpenTable)

With rs
I2 = 0
For I = 1 To 41
[code]If Len("" & Me("falha" & I)) > 1 Then[code][/code][/code]
I2 = I2 + 1

.AddNew

![Data] = Me.Data
![Grupo] = Me.turma
![Setor] = Me.Setor
![Equipamento] = Me.Equip
![Responsavel] = Me.nome
![Turno] = Me.Turno
![Item] = Me("FDescricao" & I)
![Incoveniencia] = Me("tipo" & I)
![Registro] = Me.User


.Update


End If


Next

End With
End If


Set rs = Nothing
MsgBox "Transferência confirmada." & vbCr & vbCr & I2 & "  registros do Turno.", vbOKOnly + vbInformation, "com Sucesso"
End Sub

Olá Fabricia, obrigado pelo retorno.
Abraço