IF NAO FUNCIONA
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
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
tenta colocar if isnull(Tabela_RMCab!Ltd) Then
Pode ser que de certo
Pode ser que de certo
Tópico encerrado , respostas não são mais permitidas