CARREGANDO STRING

IRENKO 22/10/2009 17:17:36
#326100
Private Sub TargetBox_Click()
SemNome = Replace(TargetBox.Name, [Ô]Grid_A[Ô], [Ô][Ô])
If FrmBusca.Controls([Ô]Grid_A[Ô] & SemNome).text <> [Ô][Ô] Then
FrmBusca.LBDados.Caption = FrmBusca.Controls([Ô]Grid_A[Ô] & SemNome).text

FrmBusca.LB_Lista.Caption = FrmBusca.Controls([Ô]Grid_A[Ô] & SemNome).text
FrmBusca.LB_Lista = Format(CDbl(FrmBusca.LB_Lista), [Ô]0000[Ô])
End If

Set TbResumo = New ADODB.Recordset
If TbResumo.State = 1 Then TbResumo.Close

TbResumo.Open [Ô]SELECT Status, [LM_1] FROM LMnr WHERE LM_1 = [ô][Ô] & FrmBusca.LB_Lista.Caption & [Ô][ô][Ô], ConexaoLM, adOpenDynamic, adLockOptimistic

If Not TbResumo.EOF Then
StatusLm = TbResumo([Ô]Status[Ô])
LmCodigo = TbResumo([Ô]LM_1[Ô])
TbResumo.MoveNext
End If
FrmBusca.Label16 = StatusLm
TbResumo.Close
Set TbResumo = Nothing

FrmBusca.LbInformacao.Visible = True


If StatusBusca = 1 Then
If StatusLm = CStr([Ô]Pendente para liberacao[Ô]) Then
FrmBusca.LbInformacao.Caption = [Ô]Atenção!![Ô] & [Ô][Ô] & [Ô]LM número[Ô] & [Ô]:[Ô] & [Ô]([Ô] & FrmBusca.LB_Lista.Caption & [Ô])[Ô] & [Ô],[Ô] & [Ô] [Ô] & [Ô]pendente para liberação[Ô]
ElseIf StatusLm = CStr([Ô]Pendente[Ô]) Then
FrmBusca.LbInformacao.Caption = [Ô]Atenção!![Ô] & [Ô][Ô] & [Ô]LM número[Ô] & [Ô]:[Ô] & [Ô]([Ô] & FrmBusca.LB_Lista.Caption & [Ô])[Ô] & [Ô],[Ô] & [Ô] [Ô] & [Ô]já liberada para o SEMAT[Ô]
End If
ElseIf StatusBusca = 1 Then
If StatusLm = CStr([Ô]Liberado[Ô]) Then
FrmBusca.LbInformacao.Caption = [Ô]Atenção!![Ô] & [Ô][Ô] & [Ô]LM número[Ô] & [Ô]:[Ô] & [Ô]([Ô] & FrmBusca.LB_Lista.Caption & [Ô])[Ô] & [Ô],[Ô] & [Ô] [Ô] & [Ô]já Transferida para o SEMAT[Ô]
End If
End If
End Sub

Tô com um probleminha nesse codigo. Na variavel String (StatusLm), eu gravo o texto do campo da tabela pra depois tratar, só que as vezes carrega o (FrmBusca.LbInformacao.Caption) e as vezes não, dá pra entender? O campo é Texto, não vejo o porque a busca não funciona corretamente. Alguma sugestão?
IRENKO 22/10/2009 19:39:35
#326111
Será que estou tratando a variavel string corretamente?
TECLA 22/10/2009 21:06:15
#326118 Resposta escolhida
Não está claro, tem mais CÓDIGOS no tópico do que EXPLICAÇÕES sobre o mesmo.
Tópico encerrado , respostas não são mais permitidas
Voltar