RELATAR ERRO NO SELECT

IRENKO 11/04/2007 17:06:13
#211338
Como faço um IF para verificar se o compo da tabela esta vazio, se estiver retorno ao usuario a mensagem:

"Lista de Material ainda não foi baixada"

O campo é (Codigo) e esta como texto, tenho que colocar no mesmo select abaixo e antes do primeiro IF.

Private Sub CmdBuscar_Click()
Dim Procura As String
Dim intPosicao As Integer, Texto As String

Dim x As String
If AtivarBancoLM = True Then

Procura = TxtBuscaLM.text

Set LM_Busca = New ADODB.Recordset
LM_Busca.Open "SELECT LM_1 FROM LMnr WHERE LM_1='" & Procura & "'", Banco_LM, adOpenKeyset, adLockPessimistic
'caso o nome nao exista
If LM_Busca.RecordCount = 0 Then
    MsgBox "Lista de Material não cadastrada!", vbCritical, "Erro de pesquisa"
    
    LM_Busca.Close
    Set LM_Busca = Nothing
    Exit Sub

Else

LM_Busca.Close
Set LM_Busca = Nothing


CarregaRequisicao

End If
End If
End Sub
FABIO.LOUREIRO 11/04/2007 17:25:11
#211344
juro que não entendi!.

mas acho que basta trocar o:
If LM_Busca.RecordCount = 0 Then
para:
If LM_Busca.eof Then

do contrario me perdoe.
USUARIO.EXCLUIDOS 11/04/2007 17:27:08
#211345
<B>
SET LM_BUSCA = NEW ADODB.RECORDSET
LM_BUSCA.OPEN "SELECT COUNT(CODIGO) FROM LMNR"
IF LM_BUSCA.RECORDCOUNT = 0 THEN
MsgBox "Lista de Material não cadastrada!", vbCritical, "Erro de pesquisa"
END IF
</B>
IRENKO 12/04/2007 09:17:44
#211428
Vou tentar ser mais claro.

A rotina abaixo continua valendo:
'caso o nome nao exista
If LM_Busca.RecordCount = 0 Then
MsgBox "Lista de Material não cadastrada!", vbCritical, "Erro de pesquisa"

LM_Busca.Close
Set LM_Busca = Nothing
Exit Sub

Agora tenho que criar outra para verificar se o campo (Codigo) da mesma tabela referenciada no select esta vazio, se estiver mostro a mensagem:

"Lista de Material ainda não foi baixada"

O campo (LM_1) da tabela é a referencia chave.

Resumindo:

Primeiro consisto se o documento existe, se existe verefico se foi baixado atraves do campo (Codigo), vazio ou não.
LIZANDRO 12/04/2007 09:24:56
#211433
Tenta ae .

if isnull(LM_Busca!LM_1) then
    MsgBox "Lista de Material ainda não foi baixada!", vbCritical, "Erro de pesquisa"
endif
Tópico encerrado , respostas não são mais permitidas
Voltar