IF NAO FUNCIONA

IRENKO 12/04/2007 16:12:43
#211562
Pessoal, ja tentei de tudo:
If Tabela_RMCab!Ltd = Empty Then
If Tabela_RMCab!Ltd = "" Then
If Tabela_RMCab!Ltd = 0 Then

e nada!

Estou tentando carregar a celula Plan6.Range("C3") obedecendo o criterio da condição IF. Se o campo Tabela_RMCab!Ltd estiver vazio carrega somente o campo Tabela_RMCab("LM") caso contrario carrega os dois, so que o IF não esta funcionando esta pulando para apos o Else e carregando a celula com:

LM Nº 2026 - LTD Nº

Deveria ser somente :LM Nº 2026

Onde posso estar errando?


Sql_1 = "SELECT LM,Data,Requisitante,Setor,Cliente,Produto,Desenho,Ltd,Controle,Contrato FROM DadosReq WHERE LM Like '%" & Frm_CadReq.Teste.text & "%'"
Set Tabela_RMCab = Banco_LM.Execute(Sql_1)

Do While Not Tabela_RMCab.EOF
Plan6.Range("E1") = Tabela_RMCab("Contrato")
Plan6.Range("F1") = Tabela_RMCab("LM")
Plan6.Range("H1") = Tabela_RMCab("Data")
Plan6.Range("H1").NumberFormat = "DD/MM/YYYY"
Plan6.Range("A5") = Tabela_RMCab("Requisitante") & " " & "-" & " " & Tabela_RMCab("Setor")
Plan6.Range("D5") = Tabela_RMCab("Produto")
Plan6.Range("G3") = "Controle :" & " " & Tabela_RMCab("Controle")

If Tabela_RMCab!Ltd = Empty Then
Plan6.Range("C3") = "LM Nº" & " " & Tabela_RMCab("LM")
Else

Plan6.Range("C3") = "LM Nº" & " " & Tabela_RMCab("LM") & " " & "-" & " " & "LTD Nº" & " " & Tabela_RMCab("Ltd")
End If
VBAPRENDE 12/04/2007 16:14:59
#211563
Resposta escolhida
tenta colocar if isnull(Tabela_RMCab!Ltd) Then
Pode ser que de certo
Tópico encerrado , respostas não são mais permitidas