Tópico anterior Próximo tópico Novo tópico
VB.NET
#495878 - 16/12/2020 20:39:12 | ||||
![]() ROBLEDO LAJEADO Cadast. em:Janeiro/2019 ![]() |
Última edição em 03/01/2021 23:29:03 por ROBLEDO OláEstou me batendo em um negócio simples, preciso fazer uma consulta em determinado campo de determinada tabela e informar o usuário se o campo tiver 'Sim' liberar acesso e se tiver 'Não', dar uma mensagem na tela e bloquear acesso. Como faço esse comando? |
|||
#495879 - 16/12/2020 21:53:07 | ||||
![]() EPISCOPAL VARZEA GRANDE Cadast. em:Maio/2009 ![]() |
Aqui no forum tem topicos sobrando ...... é so pesquisar ...
vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=474636&pagina=1 bmania.com.br/index.php?modulo=forum&metodo=abrir&id=450323&pagina=1 ____________________________________________________________________ Episcopal Studios |
|||
#495881 - 16/12/2020 23:46:00 | ||||
![]() KERPLUNK RIO GRANDE DO SUL Cadast. em:Junho/2009 ![]() |
Use ADOX
_______________________________________________________________________ Virei Oráculo! The end is nigh, be ready for the nukes! |
|||
#495890 - 17/12/2020 15:08:20 | ||||
![]() RICARDOPIBU CABO FRIO Cadast. em:Março/2018 ![]() |
'Não sei se é isso que procura:
'fiz uma txtbox dei o nome de: txtUsuario, e um outra com nome de txtAcesso 'Daà criei uma ListView com nome de: lstAcesso 'no evento Form_Load coloquei esses dados manualmente, que no seu caso deve vim de um banco de dados... '______________________________________________________________________________________________________ Private Sub Form_Load() Dim Item As ListItem Set Item = lstAcesso.ListItems.Add(, , 'Item 1') Item.SubItems(1) = 'Ricardo Araujo da Silva' Item.SubItems(2) = 'Sim' Set Item = lstAcesso.ListItems.Add(, , 'Item 2') Item.SubItems(1) = 'Marcelo dos Santos Prado' Item.SubItems(2) = 'Não' Set Item = lstAcesso.ListItems.Add(, , 'Item 3') Item.SubItems(1) = 'José Oliveira Cardoso' Item.SubItems(2) = 'Sim' End Sub '_______________________________________________________________________________________________________ 'E no evento ItemClick da ListView, coloquei esse comando: '_______________________________________________________________________________________________________ Private Sub lstAcesso_ItemClick(ByVal Item As MSComctlLib.ListItem) If lstAcesso.SelectedItem.SubItems(2) = 'Sim' Then txtUsuario = lstAcesso.SelectedItem.SubItems(1) txtAcesso = 'Acesso Permitido' Else MsgBox 'Você não tem permissão de acesso!', vbInformation, 'Acesso' txtUsuario = '' txtAcesso = '' End If End Sub '_______________________________________________________________________________________________________ Cursos de Excel e VB6: cursoexcelvba.com.br |
|||
#495914 - 22/12/2020 17:00:54 | ||||
![]() ROBLEDO LAJEADO Cadast. em:Janeiro/2019 ![]() |
Citação: : 'Não sei se é isso que procura: 'fiz uma txtbox dei o nome de: txtUsuario, e um outra com nome de txtAcesso 'Daà criei uma ListView com nome de: lstAcesso 'no evento Form_Load coloquei esses dados manualmente, que no seu caso deve vim de um banco de dados... '______________________________________________________________________________________________________ Private Sub Form_Load() Dim Item As ListItem Set Item = lstAcesso.ListItems.Add(, , 'Item 1') Item.SubItems(1) = 'Ricardo Araujo da Silva' Item.SubItems(2) = 'Sim' Set Item = lstAcesso.ListItems.Add(, , 'Item 2') Item.SubItems(1) = 'Marcelo dos Santos Prado' Item.SubItems(2) = 'Não' Set Item = lstAcesso.ListItems.Add(, , 'Item 3') Item.SubItems(1) = 'José Oliveira Cardoso' Item.SubItems(2) = 'Sim' End Sub '_______________________________________________________________________________________________________ 'E no evento ItemClick da ListView, coloquei esse comando: '_______________________________________________________________________________________________________ Private Sub lstAcesso_ItemClick(ByVal Item As MSComctlLib.ListItem) If lstAcesso.SelectedItem.SubItems(2) = 'Sim' Then txtUsuario = lstAcesso.SelectedItem.SubItems(1) txtAcesso = 'Acesso Permitido' Else MsgBox 'Você não tem permissão de acesso!', vbInformation, 'Acesso' txtUsuario = '' txtAcesso = '' End If End Sub '_______________________________________________________________________________________________________ Entendi teu exemplo, porém no meu caso é tratamento das opções de menu suspenso. Tenho se o módulo é contratado em uma tabela do banco, e quando o usuário clicar na opção do menu, só abriria se o módulo estivesse contratado, senão gostaria de colocar uma mensagem. |
|||
#495988 - 03/01/2021 23:28:09 | ||||
![]() ROBLEDO LAJEADO Cadast. em:Janeiro/2019 ![]() |
KERPLUNK poderia me dar um exemplo para o uso do ADOX para o tratamento de opção de menu suspenso?
|
|||
#495991 - 04/01/2021 11:14:02 | ||||
![]() KERPLUNK RIO GRANDE DO SUL Cadast. em:Junho/2009 ![]() |
No link que passei tem vários
_______________________________________________________________________ Virei Oráculo! The end is nigh, be ready for the nukes! |
|||
Tópico anterior Próximo tópico Novo tópico