O problema é o seguinte: tenho um campo na tabela de nome (ORDEM) nela é gravada uma string. Tenho dois TextBox sendo:

TextBox1 = OC
TextBox2 = RC

preciso fazer uma pesquisa comparativa. Se no campo (ORDEM) da tabela as duas primeiras string for igual a OC  carregar no TextBox1

Se igual a RC carregar no TextBox2

Isso é possivel? Como criar esse codigo?

Saliento que depois das duas primeiras letras vem espaço e outros caracteres, preciso comparar somente as duas primeiras.

Dim sORDEM AS String

 

sORDEM = Tabela!ORDEM

IF sORDEM = "OC" Then

 TextBox1.text = carregar

 TextBox2 = ""

Else

  TextBox1 = ""

  TextBox2 = carregar

End If

 

vlu//

 

 

 

 Tentarei explicar melhor. Eu ja tenho um select que carrega os campos abaixo, o problema esta nos campos salientados. No campo OF da tabela LM suponhamos que esteja gravado (OF 21312), então se as duas primeiras letras for igual a OC grava no TxtOF, agora se for igual a RC (RC 21312) grava no TxtRC. Não sei se fui claro! Isso tem solução?

Sub Atualizar()
With Frm_LM
.Lb_Programador = Nnull(Tb_LM!Elaborado)
.Lb_Contrato = Nnull(Tb_LM!Contrato)
.Lb_Quant = Nnull(Tb_LM!QuantX)
.Lb_Data1 = Nnull(Tb_LM!Data)
.Lb_Data2 = Nnull(Tb_LM!DataPrazo)
.Lb_Cliente = Nnull(Tb_LM!Cliente)
.Lb_Produto = Nnull(Tb_LM!Equipamento)
.Lb_Desenho = Nnull(Tb_LM!Desenho)
.Lb_Rev1 = Nnull(Tb_LM!RevDesenho)
.Lb_DesConj = Nnull(Tb_LM!DesConjunto)
.Lb_Rev2 = Nnull(Tb_LM!RevConj)
.Lb_Obs = Nnull(Tb_LM!Obs)
.TxtPos = Nnull(Tb_LM!Posicao)
.TxtQT = Nnull(Tb_LM!Quantidade)
.ComboDisp = Nnull(Tb_LM!Dispositivo)
.TxtDesc = Nnull(Tb_LM!Descricao)
.ComboOrigem = Nnull(Tb_LM!Origem)
.ComboDestino = Nnull(Tb_LM!Destino)
.TxtOF = Nnull(Tb_LM!OF)
.TxtRC = Nnull(Tb_LM!OF)
.TxtSobra = Nnull(Tb_LM!Sobra)
.TxtPrazo = Nnull(Tb_LM!Prazo)
.TxtReceb = Nnull(Tb_LM!Recebido)
.TxtObra = Nnull(Tb_LM!Obra)
.TxtFab = Nnull(Tb_LM!Fabrica)
.TxtCod = Nnull(Tb_LM!Codigo)


End With
End Sub