Logica Simples , porem Complicada

[sr.silva 1]

Pessoal,

 

Estou no meio de uma logica aqui, simples...porem esta se tornando muito complicada realizar.

 

'############# INFORMOU CAMPOS MARCA E VALOR UNITARIO, ANEXOU ARQUIVO E/OU INSERIU COMENTARIO	if ( status = "T" ) or ( status = "D" ) then				j = 0			while (not RS.EOF) and (not temvazio)					if Fields("Marca_" & Cint( RS("IdCotacaoItem") )).Value.String <> "" or Fields("VlUnitario_" & Cint( RS("IdCotacaoItem") )).Value.String <> "" and Fields("Arquivo_" & Cint( RS("IdCotacaoItem") )).FileName <> "" or RSCom("comentario") <> "" or not isNull(RSCom("comentario")) then							j = j + 1			end if					RS.movenext		wend		RS.movefirst		if j = RS.RecordCount -1 then			msg = "Caso tenha digitado ""Marca"" ou ""Vl Unitário"" e/ou anexado arquivo e/ou inserido comentário, favor clicar no botão ""ENVIAR COTACÃO""."						end if		end if			'############# INFORMOU CAMPOS MARCA E VALOR UNITARIO	if ( status = "T" ) or ( status = "D" ) then				j = 0			while (not RS.EOF) and (not temvazio)					if Fields("Marca_" & Cint( RS("IdCotacaoItem") )).Value.String <> "" or Fields("VlUnitario_" & Cint( RS("IdCotacaoItem") )).Value.String <> ""  then				j = j + 1			end if					RS.movenext		wend		RS.movefirst		if j = RS.RecordCount -1 then			msg = "Caso tenha digitado nos campos ""Marca""  ou  ""Vl. Unitário"", favor clicar no botão ""ENVIAR COTACÃO""."										end if		end if

A ideia e a seguinte:

 

- A condicao que esta apos o while nao esta satifazendo. De modo que a variavel msg sempre fica com o ultimo valor.

Ou seja:

 

msg = "Caso tenha digitado nos campos ""Marca""  ou  ""Vl. Unitário"", favor clicar no botão ""ENVIAR COTACÃO""."

O problema, e fazer com que esse tipo de validacao fique correto!!

[jrcardozo 4]

o qyue vai em temvazio??? ele tem que ser true para entrar no while

[sr.silva 1]

Desconsidere a variavel temvazio...

 

esqueci de tirar!!!

[jrcardozo 4]

no lugar de <>"" onde faz o If pra entrar no bloco que incrementa J, tentou usar algo assim pra comparar se o recordset tem valor:isnull(valor)=falseounot null(valor)ou trim(valor) <> emptyoulen(trim(valor))<>0