Irenko
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 28/08/2006 15:21 hs
Na minha tabela tenho os campos (OF) e (Req), preciso tratar esse dois campos em especial para carregar os TextBox pois no form exite um unico Text para carregar anbos os campos. No campo (Req) grava-se RC-12515 no campo (OF) grava-se OF-23548. Preciso tratar o seguinte: se o campo (OF) de um item for OF-22155 e o campo (Req) for nulo então carrega o Text com OF-22155 se campo (Req) de um item for RC-22155 e o campo (OF) for nulo carrega o Text com RC-22155, sempre tratando essas duas primeiras letras. Como pode ser feito?
Sub AtualizarItems()
Dim Movimento2 As ADODB.Recordset
Dim Sql As String
Sql = "SELECT [OF],Req,Desc,Posicao,Quant,Csobra,Disp,Origem,Destino,Prazo,Receb,Obra,Fabrica,Codigo FROM Movimento WHERE LM Like '%" & Tbox.text & "%'"
Set Movimento2 = Banco.Execute(Sql)
If Movimento2.EOF And Movimento2.BOF Then
Else
Movimento2.MoveMax
Dim QuantDetalhes: QuantDetalhes = Movimento2.RecordCount: Movimento2.MoveMin
Dim Cont
For Cont = 1 To QuantDetalhes
Me.Controls("A" & Cont) = Nnull(Movimento2!posicao)
Me.Controls("C" & Cont) = Nnull(Movimento2!Disp)
Me.Controls("B" & Cont) = Nnull(Movimento2!Quant)
Me.Controls("D" & Cont) = Nnull(Movimento2!Desc)
Me.Controls("E" & Cont) = Nnull(Movimento2!Origem)
Me.Controls("F" & Cont) = Nnull(Movimento2!Destino)
Me.Controls("G" & Cont) = Nnull(Movimento2!OF) ====>Aqui
Me.Controls("G" & Cont) = Nnull(Movimento2!Req)====>Aqui
Me.Controls("H" & Cont) = Nnull(Movimento2!csobra)
Me.Controls("J" & Cont) = Nnull(Movimento2!Receb)
Me.Controls("L" & Cont) = Nnull(Movimento2!Obra)
Me.Controls("M" & Cont) = Nnull(Movimento2!Fabrica)
Movimento2.MoveNext
Next
Movimento2.Close
Set Movimento2 = Nothing
End If
End Sub
|
|
|
|
|
|
|
|
Postada em 28/08/2006 16:02 hs
For Cont = 1 To QuantDetalhes
Me.Controls("A" & Cont) = Nnull(Movimento2!posicao)
Me.Controls("C" & Cont) = Nnull(Movimento2!Disp)
Me.Controls("B" & Cont) = Nnull(Movimento2!Quant)
Me.Controls("D" & Cont) = Nnull(Movimento2!Desc)
Me.Controls("E" & Cont) = Nnull(Movimento2!Origem)
Me.Controls("F" & Cont) = Nnull(Movimento2!Destino)
Me.Controls("G" & Cont) = IIF(ISNULL(Movimento2!OF),MOVIMENTO2!REQ,MOVIMENTO2!OF)
Me.Controls("H" & Cont) = Nnull(Movimento2!csobra)
Me.Controls("J" & Cont) = Nnull(Movimento2!Receb)
Me.Controls("L" & Cont) = Nnull(Movimento2!Obra)
Me.Controls("M" & Cont) = Nnull(Movimento2!Fabrica)
Movimento2.MoveNext
Next
|
|
|
|
Irenko
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 28/08/2006 16:08 hs
Deu erro:
Não foi possivel definir a propriedade. Tipo não correspondente.
Na Linha:
Me.Controls("G" & Cont) = IIF(ISNULL(Movimento2!OF),MOVIMENTO2!REQ,MOVIMENTO2!OF)
|
|
|
|
wncruz
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 28/08/2006 16:13 hs
Me.Controls("A" & Cont) = Nnull(Movimento2!posicao)
Me.Controls("C" & Cont) = Nnull(Movimento2!Disp)
Me.Controls("B" & Cont) = Nnull(Movimento2!Quant)
Me.Controls("D" & Cont) = Nnull(Movimento2!Desc)
Me.Controls("E" & Cont) = Nnull(Movimento2!Origem)
Me.Controls("F" & Cont) = Nnull(Movimento2!Destino)
IF ISNULL(MOVIMENTO2!REQ) then Me.Controls("G" & Cont) = Nnull(Movimento2!OF) else Me.Contr ols("G" & Cont) = Nnull(Movimento2!Req) endif
Me.Controls("H" & Cont) = Nnull(Movimento2!csobra)
Me.Controls("J" & Cont) = Nnull(Movimento2!Receb)
Me.Controls("L" & Cont) = Nnull(Movimento2!Obra)
Me.Controls("M" & Cont) = Nnull(Movimento2!Fabrica)
Sds,
"O segredo é quebrar os problemas em pequenos pedaços administráveis. Se você lidar com eles, termina antes de saber disso."
 Watson Gomes da Cruz
|
|
|
|
|
|
Postada em 28/08/2006 16:25 hs
Se tiver a possibilidade de os dois campos serem nulos, irá necessitar de um if a mais no exemplo do wncruz
dsmn
|
|
|
|
Irenko
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 28/08/2006 16:53 hs
Não deu só carrega o campo (Req).
|
|
|
|
