Bom dia, obrigado, segue link de vídeo sobre procedimento para transferir linha de listbox para outro formulário. ruclips.net/video/edW2fO19LiY/видео.html
@@CanalSGP obrigado pelas resposta demorei pra responder pois estava fazendo o scripts de salvar no bd ascess ai sumiu o cabeçalho não tinha cristão quê dava jeito Ai consegui agora estou fazendo pra mostras mas de dez na listbox mas o cabeçalho não passa de dez colunas Na verdade o quê eu presciso seria copiar uma linha inteira do ascees para as txbox que seria em torno de umas 60 coluna séria possível uma coisa dessa
@@CanalSGP Saberia me dizer se existem um jeito de por exemplo Copiar toda uma linha contendo mais de 52 coluna pra 52 texbox Mesmo que na listagem só aparecem o nome eo id?
@@CanalSGP deu certo consegui fazer com 57 colunas com cabeçalho está top muito obrigado Agora estou vendo os videos de calculo Texbox1 + txbox2 x 2 . = rsultado valeu.
Olaaa, tenho uma dúvida, tenho uma planilha dos meus investimentos, onde tem uma célula q mostra em Reais qual o meu lucro / prejuízo, essa minha planilha atualiza os valores dos investimentos, e consequentemente atualiza meu lucro / prejuízo. Então gostaria de criar um gráfico em linha q vá sempre registrado meu lucro / prejuízo, tipo um gráfico de ação, isso é possível ou não, tipo ir registrando no gráfico o valor de ganho a cada 1 hora ou dia automaticamente
Tem como carregar uma listbox agrupando os produtos? Exemplo: na sua tabela o Produto 1 teve 3 vendas que estão em linhas diferentes. Teria como aparecer a quantidade total de vendas por produto? Numa coluna aparecer o nome do produto e na outra coluna a quantidade total de vendas?
Olá, bom dia! Saberia me dizer alguma função GROUP_CONCAT no access que faça o que a função LIST faz no SQL? Eu não encontrei, então criei minha própria função no ACCESS (GetList o nome da função) e funcionou perfeitamente no ACCESS, porém, quando chamo tal função dentro de uma SELECT que farei num comando dentro do excel ele apresenta o erro: Função 'GetList' indefinida na expressão. Poderia me ajudar?
Professor boa noite. Na sua video aula CARREGAR DADOS de TABELA do ACCESS para LISTBOX EXCEL VBA - Aula 06, meu formulário ao carregar os dados do banco de dados está dando um erro 3709 nesta linha ( rs.Open "select * from Tabela1", Conexao, adOpenKeyset, adLockReadOnly), o que está dando errado?
@@CanalSGP O mesmo erro que está dando no meu. A mensagem é "A conexão não pode ser usada para realizar essa operação. Ela está fechada ou é inválida neste contexto."
Boa tarde professor O método de salvar no banco com a Listbox até 10 colunas é o mesmo para salvar com mais de 10 colunas no banco ? Desde já agradeço a atenção
.ColumnWidths = "60;60;120;60;120;60;60;60;60" End With End Sub Sub Carregar_Dados() On Error GoTo Erro Dim linhalistbox As Double linhalistbox = 1 ListBox1.Clear Call Cabecalho Set rs = New ADODB.Recordset Módulo1.ConectarBD rs.Open "SELECT * FROM Acessos", Conexao, adOpenKeyset, adLockReadOnly While Not rs.EOF With ListBox1 .AddItem .List(linhalistbox, 0) = rs(0) .List(linhalistbox, 1) = rs(1) .List(linhalistbox, 2) = rs(2) .List(linhalistbox, 3) = rs(3) .List(linhalistbox, 4) = rs(4) .List(linhalistbox, 5) = rs(5) .List(linhalistbox, 6) = rs(6) .List(linhalistbox, 7) = rs(7) .List(linhalistbox, 8) = rs(8)
linhalistbox = linhalistbox + 1
End With
rs.MoveNext Wend If Not rs Is Nothing Then rs.Close Set rs = Nothing End If Módulo1.DesconectarBD Exit Sub Erro: MsgBox "Erro!", vbCritical, "ERRO" End Sub Private Sub UserForm_Initialize() Call Carregar_Dados 'Call Carregar_Lista_Clientes 'Call Carregar_Lista_Empresa 'Call Carregar_MaisdeDezColunas End Sub
Mais uma vez venho aqui para que você possa me socorrer hehe, Há como fazer o processo inverso ao ensinado no video? Tenho um sistema onde efetuo uma requisição de compras que cada pedido possui um campo para preencher até 8 itens, Este formulário tem que ser impresso (PDF), até aqui já tenho tudo funcionando. A parte do que estou batendo cabeça é na de salvar essas informações no Banco de Dados ACCESS, até agora o cabeçalho do formulário eu já fiz conforme instruções nesta série de vídeos, mas tem a parte da relação de 8 itens que antes de emitir para a planilha ela fica armazenada em uma listbox. Minha ideia é que a rotina que a macro deve fazer é além de salvar os dados na planilha para emitir o arquivo em PDF ela deve salvar o registro no banco de dados como forma de backup para caso precisar no futuro eu possa consultar e modificar o registro do pedido de requisição de compras posteriormente!
Próxima Aula: Carregar Mais de Dez Colunas do Access para Listbox:
ruclips.net/video/s4Obdr3W2GM/видео.html
Os Vídeos são tão bons que acabei me inscrevendo no canal :)
Obrigado
Excelente Vídeo aula!!
Obrigado
Top
Obrigado
Olá amigo muito top esse formulário
estou tentando dar dois clik na lista e recarregar o formulário poderia me ajudar nessa questão?
Bom dia, obrigado, segue link de vídeo sobre procedimento para transferir linha de listbox para outro formulário. ruclips.net/video/edW2fO19LiY/видео.html
@@CanalSGP obrigado pelas resposta demorei pra responder pois estava fazendo o scripts de salvar no bd ascess ai sumiu o cabeçalho não tinha cristão quê dava jeito
Ai consegui agora estou fazendo pra mostras mas de dez na listbox mas o cabeçalho não passa de dez colunas
Na verdade o quê eu presciso seria copiar uma linha inteira do ascees para as txbox que seria em torno de umas 60 coluna séria possível uma coisa dessa
Boa tarde, acredito que seja muitas colunas, talvez seja o caso de reestruturar a base de dados.
@@CanalSGP Saberia me dizer se existem um jeito de por exemplo
Copiar toda uma linha contendo mais de 52 coluna pra 52 texbox
Mesmo que na listagem só aparecem o nome eo id?
@@CanalSGP deu certo consegui fazer com 57 colunas com cabeçalho está top muito obrigado
Agora estou vendo os videos de calculo
Texbox1 + txbox2 x 2 . = rsultado valeu.
Olá Boa noite, poderia mostrar o método a ser aplicado em uma listView?
Obrigado
Boa tarde, vou verificar para gravar uma vídeo aula neste sentido.
Olaaa, tenho uma dúvida, tenho uma planilha dos meus investimentos, onde tem uma célula q mostra em Reais qual o meu lucro / prejuízo, essa minha planilha atualiza os valores dos investimentos, e consequentemente atualiza meu lucro / prejuízo.
Então gostaria de criar um gráfico em linha q vá sempre registrado meu lucro / prejuízo, tipo um gráfico de ação, isso é possível ou não, tipo ir registrando no gráfico o valor de ganho a cada 1 hora ou dia automaticamente
Bom dia, não fiz procedimento semelhante ainda.
Tem como carregar uma listbox agrupando os produtos? Exemplo: na sua tabela o Produto 1 teve 3 vendas que estão em linhas diferentes. Teria como aparecer a quantidade total de vendas por produto? Numa coluna aparecer o nome do produto e na outra coluna a quantidade total de vendas?
Boa tarde, fazer relatórios é possível utilizando códigos SQL. Segue link de vídeo neste sentido. ruclips.net/video/GM7lWQp8z8Q/видео.html
Olá, bom dia!
Saberia me dizer alguma função GROUP_CONCAT no access que faça o que a função LIST faz no SQL?
Eu não encontrei, então criei minha própria função no ACCESS (GetList o nome da função) e funcionou perfeitamente no ACCESS, porém, quando chamo tal função dentro de uma SELECT que farei num comando dentro do excel ele apresenta o erro: Função 'GetList' indefinida na expressão.
Poderia me ajudar?
Bom dia, infelizmente não fiz algo neste sentido ainda.
Professor boa noite. Na sua video aula CARREGAR DADOS de TABELA do ACCESS para LISTBOX EXCEL VBA - Aula 06, meu formulário ao carregar os dados do banco de dados está dando um erro 3709 nesta linha ( rs.Open "select * from Tabela1", Conexao, adOpenKeyset, adLockReadOnly), o que está dando errado?
Bom dia, qual mensagem de erro retorna.
@@CanalSGP O mesmo erro que está dando no meu. A mensagem é "A conexão não pode ser usada para realizar essa operação. Ela está fechada ou é inválida neste contexto."
Boa tarde professor
O método de salvar no banco com a Listbox até 10 colunas é o mesmo para salvar com mais de 10 colunas no banco ?
Desde já agradeço a atenção
Boa tarde, para salvar para o Access não muda.
@@CanalSGP sim seria no access
Estou tentando mais está dando um erro quando vai inserir no banco do access
Bom dia, qual mensagem de erro retorna.
@@CanalSGPBoa tarde Professor, segue o Erro
Erro de tempo de execução '_2147217900(80040e14)':
Erro de sintaxe na instrução INSERT INTO.
Boa tarde, muito provável que seja erro de digitação no código SQL.
boa noite, como vc fez para os itens ficarem na linha de cabeçalhio?
não consigi de jeito nenhum
Bom dia, não entendi exatamente sua dúvida, mas o cabeçalho foi feito separado, mas não é fixo.
Bom Dia! super aula, uma dúvida, fiz certinho mas só veio as colunas 0 a 5 falto 6,7 e 8 oque sera que fiz errado?
Sub Cabecalho()
With ListBox1
.AddItem
.List(0, 0) = "Data"
.List(0, 1) = "HORA"
.List(0, 2) = "NOME"
.List(0, 3) = "RG"
.List(0, 4) = "EMPRESA"
.List(0, 5) = "PLACA"
.List(0, 6) = "VEÍCULO"
.List(0, 7) = "MOTIVO"
.List(0, 8) = "ACESSO"
.ColumnWidths = "60;60;120;60;120;60;60;60;60"
End With
End Sub
Sub Carregar_Dados()
On Error GoTo Erro
Dim linhalistbox As Double
linhalistbox = 1
ListBox1.Clear
Call Cabecalho
Set rs = New ADODB.Recordset
Módulo1.ConectarBD
rs.Open "SELECT * FROM Acessos", Conexao, adOpenKeyset, adLockReadOnly
While Not rs.EOF
With ListBox1
.AddItem
.List(linhalistbox, 0) = rs(0)
.List(linhalistbox, 1) = rs(1)
.List(linhalistbox, 2) = rs(2)
.List(linhalistbox, 3) = rs(3)
.List(linhalistbox, 4) = rs(4)
.List(linhalistbox, 5) = rs(5)
.List(linhalistbox, 6) = rs(6)
.List(linhalistbox, 7) = rs(7)
.List(linhalistbox, 8) = rs(8)
linhalistbox = linhalistbox + 1
End With
rs.MoveNext
Wend
If Not rs Is Nothing Then
rs.Close
Set rs = Nothing
End If
Módulo1.DesconectarBD
Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"
End Sub
Private Sub UserForm_Initialize()
Call Carregar_Dados
'Call Carregar_Lista_Clientes
'Call Carregar_Lista_Empresa
'Call Carregar_MaisdeDezColunas
End Sub
Bom dia, verifique se não tem células vazias no banco de dados, entre as informações. Ou talvez a propriedade columncount da listbox esteja errada.
Boa tarde, sabe resolver o erro de conexão access isam inválido
Boa tarde, pode ser algo relacionado a string de conexão, talvez versão errada.
Olá! Deu certo aqui, mas se a Tabela do Access tiver pelo menos uma "célula" em branco, dá erro e não carrega os dados. Como resolver isso?
Bom dia, acredito que a melhor opção é não ter células vazias no Access. Se tiver informação faltando é melhor colocar um traço ou underline.
Mais uma vez venho aqui para que você possa me socorrer hehe, Há como fazer o processo inverso ao ensinado no video?
Tenho um sistema onde efetuo uma requisição de compras que cada pedido possui um campo para preencher até 8 itens, Este formulário tem que ser impresso (PDF), até aqui já tenho tudo funcionando. A parte do que estou batendo cabeça é na de salvar essas informações no Banco de Dados ACCESS, até agora o cabeçalho do formulário eu já fiz conforme instruções nesta série de vídeos, mas tem a parte da relação de 8 itens que antes de emitir para a planilha ela fica armazenada em uma listbox. Minha ideia é que a rotina que a macro deve fazer é além de salvar os dados na planilha para emitir o arquivo em PDF ela deve salvar o registro no banco de dados como forma de backup para caso precisar no futuro eu possa consultar e modificar o registro do pedido de requisição de compras posteriormente!
Boa tarde, vou verificar para fazer um vídeo de como salvar itens de listbox para o Access.
muuito bom, segui todos os passos, mas não carrega a Listbox, da a mensagem:
"Não foi possível definir a propriedade List, tipo nao correspondente"
Boa tarde, obrigado, acredito que seja falha na referência a listbox.
@@CanalSGP percebi que este erro é pq tem dados varios no BD.
Bom dia, células vazias geram erro mesmo, porque altera as posições no recordset.
@@CanalSGP estou iniciando ainda.. para estes casos, tem solução?
Poderia fazer uma aula corrigindo estes erros.. se fizer, me avisa..ehehhe
Boa tarde, acredito que o mais indicado seria não deixar células vazias, se não tem informação colocar um traço ou underline talvez.