[Resolvido]Fechamento contábil no access

Senhores,

Tenho duas tabelas, sendo tab1_movmensal e tab2_fechamento, na tab2_fechamento existem dois campos, campo1 e campo2, onde o campo1 DataFechamento (formato data) e o campo2 periodofechado (formato texto). Nesta tabela fechamento são preenchidos “data de fechamento” e “SIM” nos dois campos respectivamente. Exemplo: 31/05/2012 no campo DataFechamento e SIM no campo periodofechado.
A tabela tab1_movmensal é preenchida através do frm_movimento.

Minha dúvida é a seguinte: Como proceder para criar uma validação ao preencher o campo DtProtocolo no frm_movimento que o access verifique se o mês e ano deste campo está na ta2_fechamento e se no campo periodofechado está preenchido com “SIM”, de modo se a verificação for afirmativa o access não deixará gravar o registro e retornará a mensagem: “Período fechado”.

Você pode tentar o seguinte:

Código:

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tab2_fechamento WHERE DataFechamento LIKE '*" & Format(Me.CampoDataDoForm, "/mm/yyyy" & "'")

If rs.RecordCount > 0 Then
    If rs!peridofechado = "Sim" Then
        MsgBox "Blá blá blá", vbInformation, "Atenção"
        Me.Undo
    End If
End If

rs.Close
Set rs = Nothing

Mais ou menos isso. Veja se consegue adaptar.

obrigado, deu certo, ficou ótimo.