SO MOSTRAR REGISTROS DE LIVROS EMPRESTADOS...

XYKOVIEIRA 06/03/2012 22:25:17
#396569

Galera, num project em VB6 há um form onde se cadastram empréstimos e devoluções de livros.
Num form de consultas, uma pesquisa de todos os livros emprestados (devolvidos ou não) exibe
os registros num dbGrid. Se peço para mostrar apenas os registros de livros que ainda não foram
devolvidos, aparece o dbGrid, apenas com os registros de livros emprestados e em poder de ter-
ceiros. Contudo, quando não há livros emprestados, é exibido o dbGrid, vazio... Como devo proce-
der, para que, ao invés da exibição do dbGrid vazio, apenas uma msg informe que [Ô]Não há livros
fora[Ô]? Sem ter de exibir o Grid vazio?
A rotina que utilizo é a seguinte:

Dim Procura As String
Set AM = DB.OpenRecordset([Ô]Transações[Ô], dbOpenTable)
Procura = [Ô]SELECT * FROM Transações WHERE Not isNull(Saida) and Retorno IS Null ORDER BY Saida DESC[Ô]
Data1.RecordSource = Procura
Data1.Refresh
cmdTudo.Enabled = True
cmdApagar.Enabled = False

Assim, ao invés de exibir o dbGrid vazio, uma simples msgbox seria exibida, informando [Ô]Não há livros emprestados![Ô]...
Agradeço, se alguém puder ajudar...
TECLA 06/03/2012 22:35:09
#396570 
Dim Procura As String
Set AM = DB.OpenRecordset([Ô]Transações[Ô], dbOpenTable)
Procura = [Ô]SELECT * FROM Transações WHERE Not isNull(Saida) and Retorno IS Null  ORDER BY Saida DESC[Ô]
Data1.RecordSource = Procura
If Data1.RecordSource.RecordCount < 1 Then
    SeuGrid.Visible = False
    MsgBox [Ô]Não há livros emprestados[Ô]
Else
    SeuGrid.Visible = True
    Data1.Refresh
    cmdTudo.Enabled = True
    cmdApagar.Enabled = False
End If
NALDOXD 07/03/2012 08:59:16
#396590
correcto
XYKOVIEIRA 07/03/2012 09:24:12
#396592
Tecla, usando o seu código, dá o seguinte erro: [Ô]Compile error: Invalid qualifier[Ô], na linha
<If Data1.RecordSource.RecordCount < 1 Then>
TECLA 07/03/2012 10:06:52
#396595 Resposta escolhida
Realmente, existe um erro de sintaxe. Altere a palavra RecordSource por Recordset.

Data1.Recordset.RecordCount
XYKOVIEIRA 07/03/2012 11:09:51
#396609
Valeu, Tecla e NaldoXD.
TECLA 07/03/2012 20:31:39
#396637
Citação:

:
Valeu, Tecla e NaldoXD.



Problema resolvido, encerre o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar