[Resolvido]Formatar mês

Kaynan

Teste

Format(nomedata, "mmmm")

Primeiro vou te dar um puxão de orelha, se fosse um inciante dava para entender, estais usando nome interno do access como nome de controle. Para conseguir o que desejas, cria um campo não acoplado e coloca no evento após atualizar desse campo:

   Dim strsql As String
   strsql = "SELECT Cod_os, DTCHEGADA, TXTVALOR FROM REA8 WHERE Format(DTCHEGADA, 'mm') = NomeDoCampoNãoAcoplado ORDER BY DTCHEGADA;"
   Me.ListRec.RowSource = strsql
   strsql = "SELECT ID, CampoReservadoDaTabelaAserTrocado, TXTVALOR FROM Despesas WHERE Format(Data, 'mm') = NomeDoCampoNãoAcoplado ORDER BY CampoReservadoDaTabelaAserTrocado;"
   Me.ListDesp.RowSource = strsql

Lembrando que quando fores fazer a filtragem tens que digitar o mês com 2 dígitos, ou seja, 01, 02, 03... 12.

Será isto ?

Assis pelo que entendi, a filtragem seria por mês, ou seja ele digita o mês e a filtragem ocorre nas 2 listbox, não é isso kaynan?
Testa ai.