[Resolvido]Restringir valores em caixa de combinação.

Bom dia prezados forumeiros.

Estive no fim de semana montando um modo de restringir uma combo em um Subformulário contínuo.

É assim: se o usuário lançar o código "10", não quero que seja possível a ele escolher novamente.

Com essa linha: strCod = strCod & CStr(Me!Servico) & ",", monta-se uma string nesse formato com os códigos que são lançados: 10,50,70,90,110.

Agora o que pretendo é colocar isso na origem da linha da combo restringindo os códigos com uso de "Not In(strCod)"

Já tentei aqui montar uma função com variável global para usar na grade da consulta mas não consegui.

Option Compare Database
Global strCod As String

Public Function RestringeCombo() As String
strCod = strCod & CStr(Forms!FormTabMedicaoServicos!SubFormTabMedicaoServicos2!Servico) & ","
RestringeCombo = strCod
End Function

Deixo aqui para vossa análise.

Estou errando onde? Quero entender. Ou isso não pode ser feito?

Obrigado

Cara, eu não entendi muito bem qual a aplicação disto!

Se ele lança, esse valor não fica armazenado em uma tabela? Não poderia ver se o valor existe e bloquear a inserção?

Como não sei a real necessidade, isso é apenas uma sugestão.

Abraços

le_lo, isso ocorre num subformulário folha de dados.
Alguns usuários espertalhões estão lançando códigos repetidos, e isso é proíbido.
Pensei em montar essa string e usá-la comom critério na origem da linha da combo dessa forma: Not In(String).
Alguns códigos da lista são: 10;30;50;70;90;110.
Com essa linha: strCod = strCod & CStr(Me!Servico) & "," monta-se a sequência nesse formato: 10,30,50,70,
Com a função:

Option Compare Database
Global strCod As String

Public Function RestringeCombo() As String
strCod = strCod = strCod & CStr(Me!Servico) & ","
RestringeCombo = strCod
End Function

Eu pensei em colocar na grade da consulta da origem da linha da combo e assim restringir os códigos que já foram lançados.