Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Ajuda no Formulário de Pesquisa

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
mariogus
Colaborador
Colaborador
Mensagens: 11
Registrado em: Seg Out 19, 2009 12:33 pm

Ajuda no Formulário de Pesquisa

Mensagem por mariogus » Ter Nov 10, 2009 4:15 pm

Tomas,

Não estou conseguindo aplicar no formulário de pesquisa os itens para o meu cadastro de fornecedores..Podes me ajudar?



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 2746
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Ajuda no Formulário de Pesquisa

Mensagem por webmaster » Ter Nov 10, 2009 8:28 pm

Mario,

Neste mesmo fórum há alguns modelos disponibilizados pelos colegas que resolveram alguns problemas por aqui. Eles adaptaram o modelo às necessidades deles, diferentes nas originais. Pode ser um bom ponto de partida.

De toda forma, se não adiantar, detalhe melhor que está acontecendo para pode ajudar.

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

mariogus
Colaborador
Colaborador
Mensagens: 11
Registrado em: Seg Out 19, 2009 12:33 pm

Re: Ajuda no Formulário de Pesquisa

Mensagem por mariogus » Ter Nov 10, 2009 9:12 pm

Bom,Tomás

Como estou iniciando no VBA...estou um pouco perdido..Mas vamos lá..o que está acontencendo é que ao clicar duas vezes sobre o registro aparece o seguinte erro no código

Code

Código: Selecionar todos

Private Sub lstLista_Click()
    If lstLista.ListIndex > 0 Then
        Dim indiceRegistro As Long
        [color=#FFFF40]indiceRegistro = UserForm1.ProcuraIndiceRegistroPodId(lstLista.List(lstLista.ListIndex, 0))[/color]
        If indiceRegistro <> -1 Then
            Call UserForm1.CarregaRegistroPorIndice(indiceRegistro)
        End If
        Unload Me
    Else
        lblMensagens.Caption = "É preciso selecionar um item válido na lista"
    End If
End Sub

Erro que apresentou foi esse:

Erro em tempo de execução '91'
A variavel do objeto ou a variável do bloco With não foi definida.



Avatar do usuário
webmaster
Administrador
Mensagens: 2746
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Ajuda no Formulário de Pesquisa

Mensagem por webmaster » Qua Nov 11, 2009 9:51 am

Mario,

Para o duplo clique funcionar, é preciso que o form de Cadastro esteja aberto. A função chamada pertence a ele e só funciona enquanto ele estiver em memória.

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Guima
Consultor
Consultor
Mensagens: 242
Registrado em: Sex Out 30, 2009 6:10 am

Re: Ajuda no Formulário de Pesquisa

Mensagem por Guima » Qua Nov 11, 2009 10:08 pm

Oi Tomáz, oi Mário...

Só dando uma bicada no tópico, ele pode ocultar o formulário também usando o Hide, dessa forma ele não descarregada, e pode conseguir o efeito desejado, certo ?

Abraço e até mais


Guilherme

Sub Guilherme_Initialize()
If Me.Guima <> "" Then
MsgBox "Obrigado pela força "
Else
MsgBox "Um abraço pra todos "
End If
End Sub

Avatar do usuário
webmaster
Administrador
Mensagens: 2746
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Ajuda no Formulário de Pesquisa

Mensagem por webmaster » Qua Nov 11, 2009 11:50 pm

Tomando o cuidado de mostrá-lo ou fechá-lo depois, tudo bem. De qualquer forma, recomendo a seguinte leitura:

http://www.tomasvasquez.com.br/blog/mic ... erformhide

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

mariogus
Colaborador
Colaborador
Mensagens: 11
Registrado em: Seg Out 19, 2009 12:33 pm

Re: Ajuda no Formulário de Pesquisa

Mensagem por mariogus » Qui Nov 12, 2009 9:42 pm

Tomas

Adaptei conforme o exemplo - mas dar ao duplo clique os dados não são retornados.
Anexos
Metroll_Fornecedores.rar
(77.42 KiB) Baixado 180 vezes



Avatar do usuário
webmaster
Administrador
Mensagens: 2746
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Ajuda no Formulário de Pesquisa

Mensagem por webmaster » Sex Nov 13, 2009 9:04 am

Mario,

O cadastro é meio "grande". Seria possível disponibilizar com alguns dados?

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

mariogus
Colaborador
Colaborador
Mensagens: 11
Registrado em: Seg Out 19, 2009 12:33 pm

Re: Ajuda no Formulário de Pesquisa

Mensagem por mariogus » Qui Nov 19, 2009 1:42 pm

Tomas,

Infelizmente precisaria de todos os dados...não existe uma outra maneira de fazer isso? Fiz um modelo - ele até faz referência ao registro - mas não aparece o registro..estou anexando para visualizares.
Anexos
Metroll_Fornecedores.rar
(77.42 KiB) Baixado 169 vezes



Avatar do usuário
webmaster
Administrador
Mensagens: 2746
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Ajuda no Formulário de Pesquisa

Mensagem por webmaster » Seg Nov 30, 2009 1:58 pm

Mario,

Uma massa pequena para fazer testes é suficiente. 10 registros já está de bom tamanho. A partir desses geramos os outros casos.

Abraços


Tomás
https://www.tomasvasquez.com.br/blog
https://www.tomasvasquez.com.br/cursocsharp
https://twitter.com/tomamais
Se sua dúvida foi solucionada, acrescente [RESOLVIDO] ao título.

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder