Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Resposta Descrição Checkbox - Formulário 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
thiagocintas
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Mar 10, 2010 11:30 am

Resposta Descrição Checkbox - Formulário Pesquisa

Mensagem por thiagocintas »

Estou com problemas na exibição dos campos, quando utilizo a função de pesquisar.
Inseri no formulário de cadastro duas checkbox, com as seguintes descrições: "Disponível" "Em utilização". Isso é utilizado para definir se um documento está disponível para visualização ou se alguem está utilizando.
Quando realizo a pesquisa, a resposta é feita da seguinte forma: Checkbox marcada - Retorna valor -1 / Checkbox não-marcada - Retorna valor 0.
Gostaria de saber como alterar essa resposta na pesquisa para : Checkbox marcada - Retorna valor Sim / Checkbox não-marcada - Retorna valor Não ou Vazio.


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: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Resposta Descrição Checkbox - Formulário Pesquisa

Mensagem por webmaster »

Thiago,

A primeira implementação já foi feita (-1 e 0)? Sem sim, é só trocar os valores não? Se não, pode colocar aqui o que já conseguiu?

Abraços


thiagocintas
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Mar 10, 2010 11:30 am

Re: Resposta Descrição Checkbox - Formulário Pesquisa

Mensagem por thiagocintas »

Ainda não foi implementado. Apenas inserir as checkbox no frmCadastro e quando efetuo a pesquisa, retornam esses valores (-1 e 0).
Segue abaixo o programa do cadastro

Código: Selecionar todos

Private Sub CarregaRegistro()
'carrega os dados do primeiro registro
    With wsCadastro
        If Not IsEmpty(.Cells(indiceRegistro, colPrateleira)) Then
            Me.txtRegistro.Text = .Cells(indiceRegistro, colRegistro).Value
            Me.txtFabricante.Text = .Cells(indiceRegistro, colFabricante).Value
            Me.txtArmario.Text = .Cells(indiceRegistro, colArmario).Value
            Me.txtPrateleira.Text = .Cells(indiceRegistro, colPrateleira).Value
            Me.txtPasta.Text = .Cells(indiceRegistro, colPasta).Value
            Me.txtDescricao.Text = .Cells(indiceRegistro, colDescricao).Value
            Me.txtNome.Text = .Cells(indiceRegistro, colNome).Value
            Me.txtRE.Text = .Cells(indiceRegistro, colRE).Value
            Me.txtRamal.Text = .Cells(indiceRegistro, colRamal).Value
            Me.txtDataRetirada.Text = .Cells(indiceRegistro, colDataRetirada).Value
            Me.txtMaquina.Text = .Cells(indiceRegistro, colMaquina).Value
            Me.Disponivel = .Cells(indiceRegistro, colDisponivel).Value
            Me.Em_utilizacao = .Cells(indiceRegistro, colEm_utilizacao).Value
        End If
    End With

    Call AtualizaRegistroCorrente
End Sub

Public Sub CarregaRegistroPorIndice(ByVal indice As Long)
'carrega os dados do registro baseado no índice
    indiceRegistro = indice

    Call CarregaRegistro
End Sub

Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
    With wsCadastro
        .Cells(indice, colRegistro).Value = id
        .Cells(indice, colFabricante).Value = Me.txtFabricante.Text
        .Cells(indice, colArmario).Value = Me.txtArmario.Text
        .Cells(indice, colPrateleira).Value = Me.txtPrateleira.Text
        .Cells(indice, colPasta).Value = Me.txtPasta.Text
        .Cells(indice, colDescricao).Value = Me.txtDescricao.Text
        .Cells(indice, colNome).Value = Me.txtNome.Text
        .Cells(indice, colRE).Value = Me.txtRE.Text
        .Cells(indice, colRamal).Value = Me.txtRamal.Text
        .Cells(indice, colDataRetirada).Value = Me.txtDataRetirada.Text
        .Cells(indice, colMaquina).Value = Me.txtMaquina.Text
        .Cells(indice, colDisponivel).Value = Me.Disponivel
        .Cells(indice, colEm_utilizacao).Value = Me.Em_utilizacao
    End With

    Call AtualizaRegistroCorrente
End Sub


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

Re: Resposta Descrição Checkbox - Formulário Pesquisa

Mensagem por webmaster »

Thiago,

Os controles Me.Disponivel e Me.Em_utilizacao seria seus checkbox?

Abraços


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.


thiagocintas
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Mar 10, 2010 11:30 am

Re: Resposta Descrição Checkbox - Formulário Pesquisa

Mensagem por thiagocintas »

São exatamente estes.


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

Re: Resposta Descrição Checkbox - Formulário Pesquisa

Mensagem por webmaster »

Thiago,

Como a propriedade Value do CheckBox retorna se o mesmo está selecionado ou não, tente algo como:

Código: Selecionar todos

...
.Cells(indice, colDisponivel).Value = IIf(Me.Disponivel.Value, "Sim", "Não")
.Cells(indice, colEm_utilizacao).Value = IIf(Me.Em_utilizacao.Value, "Sim", "Não")
...
A "volta" precisaria ser algo como:

Código: Selecionar todos

...
Me.Disponivel.Value = IIf(.Cells(indice, colDisponivel).Value = "Sim",True,False)
Me.Em_utilizacao.Value = IIf(.Cells(indice, colEm_utilizacao).Value = "Sim",True,False)
...
Deve funcionar. Abraços


thiagocintas
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Mar 10, 2010 11:30 am

Re: Resposta Descrição Checkbox - Formulário Pesquisa

Mensagem por thiagocintas »

Essa "volta" deve ser inserida logo após o comando de valores:
.Cells(indice, colDisponivel).Value = IIf(Me.Disponivel.Value, "Sim", "Não")
.Cells(indice, colEm_utilizacao).Value = IIf(Me.Em_utilizacao.Value, "Sim", "Não")


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

Re: Resposta Descrição Checkbox - Formulário Pesquisa

Mensagem por webmaster »

Thiago,

Foi uma pergunta?

Abraços


thiagocintas
Acabou de chegar
Acabou de chegar
Mensagens: 9
Registrado em: Qua Mar 10, 2010 11:30 am

Re: Resposta Descrição Checkbox - Formulário Pesquisa

Mensagem por thiagocintas »

É uma pergunta sim.
Inseri no programa suas orientações e não pq não funcionou.


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

Re: Resposta Descrição Checkbox - Formulário Pesquisa

Mensagem por webmaster »

Thiago,

Quando digo a "volta", quero dizer o seguinte:

Ida:
SalvarRegistro. Colocar os dados do controles nas célula das planilha

Volta:
CarregarRegistro. Colocar os dados das células da planilha nos controles

Os nome das funções refletem o raciocínio e onde as linhas devem ser adicionadas ok?

Abraços


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