index e toolbar


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: index e toolbar

ninh@

SÃO PAULO
SP - BRASIL

Postada em 03/02/2005 18:26 hs

HEEEELLLLLPPPPPP!!!!!!!!!!!!!!!

alguem sabe me dizer porque este comando so funciona a primeira vez e nao mais?????

estou constrindoum formulario com toolbar e outros comandos nesta toobar funcionam, acho que tenho q criar um index pra usar na parte em vermelho do cod. mas nao sei como fazer o indice

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "cmdLocalizar"
Dim criterio As Variant
Dim str As String

str = adoAgencias.Recordset.Bookmark

    adoAgencias.Recordset.Index="agencia"   'recordset e do tipo table
    str = InputBox$("Digite o nome da agência: ", "Localizar Agencia")
    criterio = CVar(str)
'    If str = "" Then
'       MsgBox "Para localizar a Agência, digite o nome da agência."
'       Exit Sub
'    End If
       adoAgencias.Recordset.Find "agencia = '" & criterio & "'"
       txtAgencia.SetFocus
Case "cmdSair"
    Unload Me
End Select
End Sub

Tem alguem me olhando..... é vc?

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 04/02/2005 10:38 hs

Coloquei este mesmo código e testei e deu certo mais de uma vez sem precisar destas linhas: str = adoAgencias.Recordset.Bookmark

adoAgencias.Recordset.Index="agencia" 'recordset e do tipo table

Vi o outro post e não dá pra saber o q é... vc poderia passar mais detalhes?

Vc está procurando um registro por exemplo com o nome da agência = "AGB"

Se vc digitar "AG" no caso, como a comparação está como igual realmente não vai achar nenhum registro semelhante (a não ser q tenha alguma agência com o nome extato de "AG") Caso isso aconteça vc vai "perder" o ponteiro e mesmo se vc digitar "AGB", e este registro EXISTE!, vc não vai encontrar o registro.

para evitar isto tente fazer assim:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "cmdLocalizar"
Dim criterio As Variant
Dim str As String

    str = InputBox$("Digite o nome da agência: ", "Localizar Agencia")
    criterio = CVar(str)
'    If str = "" Then
'       MsgBox "Para localizar a Agência, digite o nome da agência."
'       Exit Sub
'    End If
       adoAgencias.Recordset.Find "agencia = '" & criterio & "'"

       If adoAgencias.Recordset.EOF Then
        MsgBox "registro não encontrado", vbCritical
        adoAgencias.Recordset.MoveF irst
       End If
       txtAgencia.SetFocus
Case "cmdSair"
    Unload Me
End Select
End Sub

Se vc quiser encontrar palavras semelhantes, por exemplo se vc digitar "Ag" e quiser encontrar palavras q começam com estas letras tente assim:

adoAgencias.Recordset.Find "Name like '" & criterio & "*'"

ok?? Bom isso tudo é uma especulação do problema, realmente não sei o q passa pode ser isso q descrevi ou não.

qq problema é só postar

ninh@

SÃO PAULO
SP - BRASIL

Postada em 04/02/2005 14:42 hs

oi ghost

sua dica funcionou assim

        Case "cmdLocalizar"
            Dim criterio As Variant
            Dim str As String
            str = InputBox$("Digite o nome da agência: ", "Localizar Agencia")
            criterio = CVar(str)
            If str = Empty Then
                adoAgencias.Recordset.MoveMin
            End If
            If adoAgencias.Recordset.EOF Then
                MsgBox "registro não encontrado", vbCritical
            End If
            adoAgencias.Recordset.Find "agencia = '" & criterio & "'"

mas tenho uma conexão ado, alguns textbox e duas maskedit para n telefone e estas funções msk estao trazendo numeros de outros registros, ex agencia teste tem fone 123 e fax 456 e ao posicionar o foco na agencia teste o fone vem de outra agencia, b por exemplo, nao acredito q isso seja da codificação mas ja tentei varias propriedades e nada da certo, ja troquei a msk por uma nova e o erro contiuuuuaaaaa.....

o q vc acha....

Tem alguem me olhando..... é vc?

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 06/02/2005 13:55 hs

A única explicação ao q parece é q está indo pra outro registro...
O seu ADOcontrol está linkado nestes textbox e mskeditbox? Ou vc faz isso por código?

Outra coisa... caso não tenha encontrado o registro saia da sub

If adoAgencias.Recordset.EOF Then
MsgBox "registro não encontrado", vbCritical

exit sub '<= Sair da sub
End If
adoAgencias.Recordset.Find "agencia = '" & criterio & "'"

Pois mesmo q não encontre vc está forçando ele a localizar novamente na linha q destaquei em vermelho.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR