Início![[Resolvido]Gráficos no Win Seven Empty](https://2img.net/i/empty.gif)
Assis 6/11/2010, 15:08Boa tarde JPaulo
Já tem o Windows Seven ?
http://dl.dropbox.com/u/771097/Grafico%20no%20Windows%207_OLD.mdb
Lembra-se disto?
Já tem o Windows Seven ?
http://dl.dropbox.com/u/771097/Grafico%20no%20Windows%207_OLD.mdb
Lembra-se disto?
2 participantes
[Resolvido]Gráficos no Win Seven
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
No evento "Após atualizar" do grupo groBotoes, faça a chamada ao click da checkbox:
Private Sub grpBotoes_AfterUpdate()
On Error GoTo grpBotoes_Err
Dim SQL As String, Critério As String
Grafico1.Visible = True 'Torna visível o gráfico.
'Move o ponteiro do registro para o nº
'selecionado em grpBotoes.
rs.AbsolutePosition = grpBotoes.Value
Critério = rs("Despesa") 'retorna o nome da Despesa.
'Guarda o nome da Despesa na textbox oculta.
Me.txtDespesa = Critério
SQL = "SELECT * FROM qryExemplo_Despesas WHERE " _
& "(Despesa='" & Critério & "');"
Grafico1.RowSource = SQL 'Define a origem do gráfico.
lblCredor.Caption = Critério 'Altera o título do form.
Me.chkTrend.Value = -1
chkTrend_Click
Me.Recalc
grpBotoes_Sai:
Exit Sub
grpBotoes_Err:
Call InformaErro
Resume grpBotoes_Sai
End Sub
Private Sub grpBotoes_AfterUpdate()
On Error GoTo grpBotoes_Err
Dim SQL As String, Critério As String
Grafico1.Visible = True 'Torna visível o gráfico.
'Move o ponteiro do registro para o nº
'selecionado em grpBotoes.
rs.AbsolutePosition = grpBotoes.Value
Critério = rs("Despesa") 'retorna o nome da Despesa.
'Guarda o nome da Despesa na textbox oculta.
Me.txtDespesa = Critério
SQL = "SELECT * FROM qryExemplo_Despesas WHERE " _
& "(Despesa='" & Critério & "');"
Grafico1.RowSource = SQL 'Define a origem do gráfico.
lblCredor.Caption = Critério 'Altera o título do form.
Me.chkTrend.Value = -1
chkTrend_Click
Me.Recalc
grpBotoes_Sai:
Exit Sub
grpBotoes_Err:
Call InformaErro
Resume grpBotoes_Sai
End Sub
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Boa noite Criquio
No win Seven continua igual...
No win Seven continua igual...
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Eu testei no win 7 mesmo e funcionou. Com Access 2007.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Eu só tenho o 2003