[Resolvido]VBA que escolhe a data semestral...

Colegas, este VBA feito pelo Dadokeys90 funciona perfeitamente.
Contudo ela só deve ser aplicada se o campo N_saida1 for repedito dentro do mesmo semestre, o que é estabelecido quando preencho o campo Data. Onde entra o comando IF?
Agradeço desde já!!


Private Sub N_Saida1_AfterUpdate()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim parametro As String

parametro = Me.N_Saida1

Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT * FROM movimentacao WHERE n_saida1=" & parametro)

If rs.RecordCount > 0 Then
MsgBox "Este código já existe!", vbExclamation, "Atenção"
Me.N_Saida1 = ""
End If
rs.Close
db.Close
End Sub

Utilize o Dcount para buscar na tabela o numero de campos preenchidos

se o Dcount retornar >0 aplique o código

If DCount ...... >0 Then

Codigo

End If

Cumprimentos.

Harysohn, não me ajudou muito, pois não tenho intimidade alguma com esta função DCount!!!

Eis ai...

Altere para os dados da sua tabela.

Dim db As DAO.Database
Dim rs1 As DAO.Recordset

Set db = CurrentDb()

Set rs1 = db.OpenRecordset("SELECT * FROM tblExemplo WHERE DataPagamento = #" & Format(Me.DataAditamento, "mm/dd/yy") & "# And DataPagamento<=#" & Date & "# And DataPagamento >=#" & DateAdd("m", -6, Date) & "#")

rs1.MoveLast
rs1.MoveFirst

If rs1.RecordCount >= 2 Then
MsgBox "Foram encontrados " & rs1.RecordCount & " para a data: " & rs1!DataPagamento & "", vbInformation, "Registro Duplicado no Semestre"
Else

' aqui vai o seu código, caso forem encontrados 1 registro para a data ou nenhum

End If

rs1.Close
Db.Close


Cumprimentos.

Valeu! Vou estudar este procedimento para aprender!
De qualquer forma você resolveu me problema quando me ajudou com o column em outro tópico!!
Abraço!

O Fórum agradece o Retorno.

Não se esqueça de clicar no Joinha da mensagem que o auxiliou.

Cumprimentos.

Eu que agradeço!