Galera, num aplicativo em que existem diversos registros na tabela <Negociação>, existem datas cadastradas nos campos <DataCompra> e <DataVenda>. Preciso montar uma consulta em SQL (que rodaria quando o form fosse carregado, separando registros que têm data da compra cadastrada, sem data de venda (venda ainda não realizada). (ex.: Peça 1022 – Data da Compra 22/03/2004. Data da Venda <ainda não cadastrada>).

Peças Adquiridas

Código         DataCompra          DataVenda

1022           18/12/2003          16/01/2004

1033           24/06/2004

1088           16/07/2004

O form Peças Não Vendidas, só mostraria as peças 1033 e 1088 (ignorando a peça 1022, que foi vendida).

Peças Não Vendidas

Código   DataCompra   DataVenda

1033     24/06/2004

1088     16/07/2004

Eis o código que escrevi (mas não está funcionando):

Dim strSQL as string

StrSQL = "Select * From tabela Where Not IsNull ‘campoCompra’ & IsNull ‘campoVenda’" & "Order by campoCompra ASC"

DtaNegociação.RecordSource = strSQL

DtaNegociação.Refresh

Private Sub Form_Load()

Dim SQL As String

SQL = "SELECT * FROM NomeDaTabela WHERE (((NomeDaTabela.[DataCompra]) is not Null) AND (NomeDaTabela.[DataVenda] is Null))" & "ORDER BY DataCompra ASC"

Data1.RecordSource = SQL

Data1.Refresh

End Sub

'Embora a tabela tenha diversos registros, apenas três deles não possuem data preenchida no campo <DataVenda>. Logo, a consulta deveria separar esses registros sem data de venda no meu grid: contudo, nenhum registro é listado. Qual será o motivo?