[Resolvido]Inserir IIf em string para caixa de combinação

Boa tarde,

Preciso inserir essa string em uma caixa de combinação via vba, mas emperrei na inserção do IIf (Seimed).

SELECT CodMaterialMovimento, DescMaterial, EquipeMovimentacao, CMMovimentacao, Sum(IIf([TipoMovimentacao]='Retirada Equipes',[QtdeMaterialMovimento],[QtdeMaterialMovimento]*-1)) AS Qtde
FROM TabMateriais INNER JOIN TabMovimentacoes ON TabMateriais.CodMaterial = TabMovimentacoes.CodMaterialMovimento
GROUP BY CodMaterialMovimento, DescMaterial, EquipeMovimentacao, CMMovimentacao
WHERE TipoMovimentacao In ('" & 'Baixa Equipes','Devolucao Equipe','Retirada Equipes' & "') AND ChecHD=" & Me!CheckHD
HAVING (((EquipeMovimentacao)= Forms!FormMaterialBaixado!EquipeBaixa) AND ((CMMovimentacao)=" & Me!CMBaixa) AND ((Sum(IIf([TipoMovimentacao]='Retirada Equipes',[QtdeMaterialMovimento],[QtdeMaterialMovimento]*-1)))>0))
ORDER BY TabMovimentacoes.CodMaterialMovimento;

Como é o certo?

Me retorna uma mensagem de erro: "A instrução SELECT inclui uma palavra reservada ou um nome de argumento que está incorreto ou faltando, ou a pontuação está incorreta"

Agradeço a atenção.

Boa tarde, Leandro
Tem destacada a expressão
IIf([TipoMovimentacao]='Retirada Equipes',[QtdeMaterialMovimento],[QtdeMaterialMovimento]*-1)
Porquê o asterisco?
Não será
IIf([TipoMovimentacao]='Retirada Equipes',[QtdeMaterialMovimento],[QtdeMaterialMovimento]-1)
Abraço,
Alexandre

Obrigado pelo interesse Alexandre, boa tarde.

Esse asterisco está multiplicando por "menos um", tornando o número negativo.

Funciona numa combo, com linguagem nativa SQL, agora preciso restringir os códigos para evitar repetições por isso comecei a tentar inserir com vba na linha combo.

No meio tempo em que postei, resolvi mudar o IIf para SeIMed e coloquei espaços onde não haviam, com isso o erro de palavra reservada cessou, o código agora está assim:

Porém o erro agora é na parte em vermelho.

strCbo = "SELECT CodMaterialMovimento, DescMaterial, EquipeMovimentacao, CMMovimentacao, Sum(SeImed([TipoMovimentacao]='Retirada Equipes',[QtdeMaterialMovimento],[QtdeMaterialMovimento]*-1)) AS Qtde"
strCbo = strCbo & " FROM TabMateriais INNER JOIN TabMovimentacoes ON TabMateriais.CodMaterial = TabMovimentacoes.CodMaterialMovimento"
strCbo = strCbo & " GROUP BY CodMaterialMovimento, DescMaterial, EquipeMovimentacao, CMMovimentacao"
strCbo = strCbo & " WHERE TipoMovimentacao='" & "Baixa Equipes" & "'"
strCbo = strCbo & " Or TipoMovimentacao='" & "Devolucao Equipe" & "'"
strCbo = strCbo & " Or TipoMovimentacao='" & "Retirada Equipes" & "'"
strCbo = strCbo & " And ChecHD='" & Me!CheckHD & "'"
strCbo = strCbo & " HAVING EquipeMovimentacao=" & Forms!FormMaterialBaixado!EquipeBaixa & "AND CMMovimentacao=" & Me!CMBaixa & "AND Sum(SeImed([TipoMovimentacao]='Retirada Equipes',[QtdeMaterialMovimento],[QtdeMaterialMovimento]*-1))>0"
strCbo = strCbo & " ORDER BY TabMovimentacoes.CodMaterialMovimento;"
Me!CodMaterialBaixa.RowSource = "Table/Query"
Me!CodMaterialBaixa.RowSource = strCbo

Obrigado pela ajuda!!!

strCbo = "SELECT CodMaterialMovimento, DescMaterial, EquipeMovimentacao, CMMovimentacao, Sum(SeImed([TipoMovimentacao]='Retirada Equipes',[QtdeMaterialMovimento],[QtdeMaterialMovimento]*-1)) AS Qtde"
strCbo = strCbo & " FROM TabMateriais INNER JOIN TabMovimentacoes ON TabMateriais.CodMaterial = TabMovimentacoes.CodMaterialMovimento"
strCbo = strCbo & " WHERE TipoMovimentacao='" & "Baixa Equipes" & "'"
strCbo = strCbo & " Or TipoMovimentacao='" & "Devolucao Equipe" & "'"
strCbo = strCbo & " Or TipoMovimentacao='" & "Retirada Equipes" & "'"
strCbo = strCbo & " And ChecHD='" & Me!CheckHD & "'"
strCbo = strCbo & " GROUP BY CodMaterialMovimento, DescMaterial, EquipeMovimentacao, CMMovimentacao"
strCbo = strCbo & " HAVING EquipeMovimentacao=" & Forms!FormMaterialBaixado!EquipeBaixa & "AND CMMovimentacao=" & Me!CMBaixa & "AND Sum(SeImed([TipoMovimentacao]='Retirada Equipes',[QtdeMaterialMovimento],[QtdeMaterialMovimento]*-1))>0"
strCbo = strCbo & " ORDER BY TabMovimentacoes.CodMaterialMovimento;"
Me!CodMaterialBaixa.RowSource = "Table/Query"
Me!CodMaterialBaixa.RowSource = strCbo

Alexandre, obrigado, vou testar e volto cá com um parecer.

Boa tarde Alexandre, como vai?
Estive em férias por isso o tópico ficou tanto tempo parado.
Voltei hoje à batalha e comecei a mexer novamente nessa parte, inseri a string alterada e agora acusa o erro: "Função 'SeImed' Indefinina na expressão".
Estou cá fazendo meus testes, caso tenha alguma idéia por favor me repasse, muito obrigado.

Boa tarde, Leandro
Nunca uso SeImed. Usei apenas porque já o tinhas usado e funcionou. Por isso, ficou mais fácil adaptar-
Poderá ser assim
strCbo = "SELECT CodMaterialMovimento, DescMaterial, EquipeMovimentacao, CMMovimentacao, Sum(IIf([TipoMovimentacao]='Retirada Equipes',[QtdeMaterialMovimento],[QtdeMaterialMovimento]*-1)) AS Qtde"
strCbo = strCbo & " FROM TabMateriais INNER JOIN TabMovimentacoes ON TabMateriais.CodMaterial = TabMovimentacoes.CodMaterialMovimento"
strCbo = strCbo & " WHERE TipoMovimentacao='" & "Baixa Equipes" & "'"
strCbo = strCbo & " Or TipoMovimentacao='" & "Devolucao Equipe" & "'"
strCbo = strCbo & " Or TipoMovimentacao='" & "Retirada Equipes" & "'"
strCbo = strCbo & " And ChecHD='" & Me!CheckHD & "'"
strCbo = strCbo & " GROUP BY CodMaterialMovimento, DescMaterial, EquipeMovimentacao, CMMovimentacao"
strCbo = strCbo & " HAVING EquipeMovimentacao=" & Forms!FormMaterialBaixado!EquipeBaixa & "AND CMMovimentacao=" & Me!CMBaixa & "AND Sum(IIf([TipoMovimentacao]='Retirada Equipes',[QtdeMaterialMovimento],[QtdeMaterialMovimento]*-1))>0"
strCbo = strCbo & " ORDER BY TabMovimentacoes.CodMaterialMovimento;"
Me!CodMaterialBaixa.RowSource = "Table/Query"
Me!CodMaterialBaixa.RowSource = strCbo

Abraço,
Alexandre

Muito obrigado Alexandre!

Funcionou como eu preciso, minha necessidade para montar essa string era para adaptar também a restrição de códigos na combo.


Abraço