[Resolvido]Origem da Linha e do Controle definidos com VBA

Como informado no tópico Form Folha de dados eu preciso travar a combo COD__DESLOC_, que é uma combo relacionada a outros quatro campos do form, quando o campo protocolo tiver um lançamento repetido. Isso é necessário para que não haja a possibilidade que num mesmo serviço seja pago o deslocamento duas vezes.
Nesse tópico peço ajuda para saber como definir através de VBA as linhas: Origem do Controle e Origem da Linha.
Na origem do controle uso: CODIGODESLOCAMENTOMAN
Na origem da linha uso: SELECT [TabPrecosDeslUrbManutencao].[CodigodoServicoMedicao], [TabPrecosDeslUrbManutencao].[Descricao], [TabPrecosDeslUrbManutencao].[Recurso], [TabPrecosDeslUrbManutencao].[TIPO], [TabPrecosDeslUrbManutencao].[ICOM], [TabPrecosDeslUrbManutencao].[VEÍCULO] FROM TabPrecosDeslUrbManutencao WHERE ((([TabPrecosDeslUrbManutencao].[Recurso])=Formulários!FormTabMedicaoMan!RECURSO) And (([TabPrecosDeslUrbManutencao].[TIPO])=Formulários!FormTabMedicaoMan!TXTEXCESSÃO) And (([TabPrecosDeslUrbManutencao].[ICOM])=Formulários!FormTabMedicaoMan!Texto64) And (([TabPrecosDeslUrbManutencao].[VEÍCULO])=Formulários!FormTabMedicaoMan!TXTVEICULO));

Muito obrigado

Oi nois aqui taveis...

Leandro Crie uma Private Sub CarregaCombo e coloque

Private Sub CarregaCombo()
Dim StrSuaCombo As String
'Autor Harysohn, para Leandro Fórum Máximo Access

'**************** Assim se estiver usando BackEnd****************************

'String com path para conexão com a base de dados.
strPath = "C:\SeuBD.accdb" 'Endereço do Seu BD
' Conecta ao banco de dados
' Se vc estiver tbls vinculadas use:
'Set dbBanco = CurrentDb()
Set dbBanco = OpenDatabase(strPath)

'ComBox SuaCombo
StrSuaCombo = "SELECT ChavePrimária, SeuCampo, SeuCampo1 FROM SuaTabela IN '" & strPath & "'"
Me.SuaCombo.RowSource = StrSuaCombo
Me![SuaCombo].ColumnCount = 2 'Numero de colunas condizente ao numero de campos
Me![SuaCombo].ColumnWidths = "0cm; 10cm" 'Espaco das colunas
'******************************************************************************************
Assim se a tabela for local***********************************************************************
StrCboAla = "SELECT SeuCampo FROM SuaTabela"
Me.SuaCombo.RowSource = StrSuaCombo
Me![SuaCombo].ColumnCount = 1
Me![SuaCombo].ColumnWidths = "2cm"

End Sub
'FIM*****************************************************************************

No Evento ao Abrir do form coloque código chamando o Sub
Form Open
CarregaCombo
End Sub

No envento ao fecha do form
SuaCombo.RowSource = "" 'Aqui limpa a combo

A combo tem que esta com a origem da linha limpa
Tipo/Origem da linha: Tabela/Consulta
Numero de colunas:1
Largura de Colunas: 0


Saudações

Eu ia me esquecendo...Fiz um exemplo para o repositório..

http://maximoaccess.forumeiros.com/search?search_id=egosearch

a como andas este tópico amigão?

Tópico encerrado. Se houver motivo para reabrir, faça o favor.

haryson

utilizei o codigo que você nos forneceu, da seguinte forma

Private Sub CarregaCombo()
Dim StrSuaCombo As String
'Autor Harysohn
If Me.cmbtpitem.Value = "EMOP" Then
'ComBox SuaCombo
StrSuaCombo = "SELECT DISTINCTROW coditememop, descricaoitememop FROM TbItemEMOP"
Me.cmbcoditem.RowSource = StrSuaCombo
Me![cmbcoditem].ColumnCount = 2 'Numero de colunas condizente ao numero de campos
Me![cmbcoditem].ColumnWidths = "4cm; 15cm" 'Espaco das colunas
ElseIf Me.cmbtpitem.Value = "TCPO" Then
StrSuaCombo = "SELECT DISTINCTROW coditemtcpo, descricaoitemtcpo FROM TbItemTCPO"
Me.cmbcoditem.RowSource = StrSuaCombo
Me![cmbcoditem].ColumnCount = 2 'Numero de colunas condizente ao numero de campos
Me![cmbcoditem].ColumnWidths = "4cm; 15cm" 'Espaco das colunas
End If
End Sub

as colunas que pego da tabela são, uma de codigo do item e a outra de descrição do item.

Gostaria que quando estiver no campo da combo criada em vba "cmbcoditem", quando eu digitar o codigo ou a descrição, fizesse igual ao Distinctrow, mas não consegui.

consegue me ajudar?