Página 1 de 1
Radio Buttom SEM RETORNO DE REGISTROS, APÓS PESQUISA PESQUIS
Enviado: 10 Nov 2017 às 17:28
por AMORIM123
Salve, Salve...galera do fórum!
Estou com seguinte questão:
No meu listbox (“lista_empresas”), com evento duplo click recupero as informações do registro selecionado ...nos textbox, combobox e etc do mult-page (“inclusão”), até aqui tudo bem a única exceção a esta recuperação é o radio buttton (“Empresa Credenciada? ”) que consta na mult-page “SEFAZ”...até aqui não consegui descobrir o motivo...aos colegas que puderem ajudar agradeço!
Segue anexo projeto!
Re: Radio Buttom SEM RETORNO DE REGISTROS, APÓS PESQUISA PES
Enviado: 10 Nov 2017 às 23:29
por babdallas
Você só colocou o arquivo do Access, mas não veio o de Excel.
Re: Radio Buttom SEM RETORNO DE REGISTROS, APÓS PESQUISA PES
Enviado: 12 Nov 2017 às 22:32
por AMORIM123
Caro baddallas...obrigado por notificar; segue anexo!
Att,
Re: Radio Buttom SEM RETORNO DE REGISTROS, APÓS PESQUISA PES
Enviado: 12 Nov 2017 às 23:48
por babdallas
Veja se é isso o que deseja.
Radio Buttom SEM RETORNO DE REGISTROS, APÓS PESQUISA PESQUIS
Enviado: 13 Nov 2017 às 12:13
por AMORIM123
Babdallas, ficou ótimo, exatamente isso!
Porém não identifiquei a alteração feita ainda...kk
Radio Buttom SEM RETORNO DE REGISTROS, APÓS PESQUISA PESQUIS
Enviado: 13 Nov 2017 às 12:21
por AMORIM123
Tou meio sem tempo (no trabalho) no momento de analisar a intervenção feita... mas foi a propriedade "Locked" que estava true, né?!
Muito obrigado!!!
Radio Buttom SEM RETORNO DE REGISTROS, APÓS PESQUISA PESQUIS
Enviado: 14 Nov 2017 às 09:12
por AMORIM123
Humm...como o preenchimento que deveria ser realizado pela instrução "Fields"→ do banco accdb para excel, não preencheu devidamente o campo:
Código: Selecionar todosMe.opt_sim.Value = .rs.Fields("CREDENCIAMENTO")
Me.opt_nao.Value = .rs.Fields("CREDENCIAMENTO")
você fez um teste de condição, por condição "se" para forçar o preenchimento do campo...boa! Aprendendo!
Código: Selecionar todosIf .rs.Fields("CREDENCIAMENTO") <> "" Then
If .rs.Fields("CREDENCIAMENTO") = "SIM" Then
Me.opt_sim.Value = True
Else
Me.opt_nao.Value = True
End If
End If