Preciso fazer um IF

[Engespro 0]

Só da uma corrigida aqui:

 

'String para exibir os produtos que são da mesma subcategoria, selecionados pelo menu_vertical.strDest = " SELECT Top 2 SubCategoria.Codigo_Subcat, Produto.Codigo_Prod, Produto.Nome_Prod, "strDest = strDest & " Produto.Texto, Produto.Imagem_Prod, Produto.Preco, Marca.Codigo_Marca, Marca.Logo, "strDest = strDest & " Prod_Vitrine.* FROM SubCategoria INNER JOIN Produto " strDest = strDest & " ON SubCategoria.Codigo_Subcat = Produto.Codigo_Subcat INNER JOIN Marca "strDest = strDest & " ON Marca.Codigo_Marca = Produto.Codigo_Marca INNER JOIN Prod_Vitrine "strDest = strDest & " ON Produto.Codigo_Prod = Prod_Vitrine.Codigo_Prod "strDest = strDest & " WHERE Prod_Vitrine.Codigo_Vitrine = 9 AND Categoria.Codigo_Cat = "& varSubcat 'String para exibir os produtos que são da mesma categoria, selecionados pelo menu_horizontal.strDest = " SELECT Top 2 Categoria.Codigo_Cat, SubCategoria.Codigo_Subcat, Produto.Codigo_Prod, Produto.Nome_Prod, "strDest = strDest & " Produto.Texto, Produto.Imagem_Prod, Produto.Preco, Marca.Codigo_Marca, Marca.Logo, "strDest = strDest & " Prod_Vitrine.* FROM Categoria INNER JOIN SubCategoria " strDest = strDest & " ON Categoria.Codigo_Cat = SubCategoria.Codigo_Cat INNER JOIN Produto "strDest = strDest & " ON SubCategoria.Codigo_Subcat = Produto.Codigo_Subcat INNER JOIN Marca "strDest = strDest & " ON Marca.Codigo_Marca = Produto.Codigo_Marca INNER JOIN Prod_Vitrine "strDest = strDest & " ON Produto.Codigo_Prod = Prod_Vitrine.Codigo_Prod "strDest = strDest & " WHERE Prod_Vitrine.Codigo_Vitrine = 9 AND Categoria.Codigo_Cat = "& varCat

[alack 0]

natalia, cuidado!

 

se você estiver trabalhando com MySQL vasio é diferente de nulo.

 

If varCat = "" then varCat = 0if varsubCat = "" then varCat = 0

se você usar esse código, varCat só será zero se o campo for vasio, e não nulo.

 

pra nulo use o seguinte:

If isnull(varCat) then varCat = 0if isnull(varsubCat) then varCat = 0

verifique também se o recordset que você está usando para verificar os dados para esse select.

 

dá uma verificada. qualquer coisa pergunta pá nóiz do novu! :D

[natalia 0]

Não varCat recebe o codigo da categoria

[natalia 0]

Pessoal, funcionou ficou assim:If varCat <> "" ThenSet rsDestCat = Conexao.Execute(strDestCat)ElseSet rsDestSub = Conexao.Execute(strDestSub)End IfObrigada à todos!

[silas_i 0]

Ufa hein... essa deu trabalho hein..r.s.r.s....rs..rs mas que bom que tudo foi resolvido !

[natalia 0]

Ai gente, se eu falar vcs não vão acreditar, funcionou p/ um menu para o outro não funciona. O que eu faço???????????????