• Domingo 22 de Diciembre de 2024, 18:21

Autor Tema:  Re: Help me keypress y gráficas.. again  (Leído 927 veces)

slagrafake

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Help me keypress y gráficas.. again
« en: Lunes 9 de Junio de 2003, 19:53 »
0
ue tal!
Busco la solución a un key press y y para una gráfica, en cuanto al keypress, requiero que al presionar la tecla F9 al estar situado en un textbox, y solo en este, se habra otro form.
Y en cuanto a las gráficas requiero una actualización; tengo este código que es como conectar y actualizar la gráfica,
pero no lo comprendo al cien por ciento; podrían ayudarme?

Gracias de antemano.

Private Sub Form_Load()
MSChart1.Visible = True
rstdatos.Open Source:="select count(nolevantamiento) as Capturados,1,1,12,3 from oficiolev where oficiolev.nolevantamiento>0 ", ActiveConnection:=cnnpredial
Set MSChart1.DataSource = rstdatos

End Sub

Private Sub CommandButton1_Click()

If rstdatos.State Then rstdatos.Close
rstdatos.Open Source:="select 10 as Capturados,count(fechaasignactapredial) as Asignados,count(fechaimpresionoficio) as Impresos,count(FechaRecepInformatica) as EnvValuacion," & _
"count(FechaEntregaValuador) as EntValuador,count(fecharegresovaluador) as RegValuador,count(fechaentregagestcat)as EntGestionC,count(fechacapturaavaluo) as Acapturados," & _
"count(fechaimpresiónavaluo) as Aimpresos,count(fechaenviorequer) as EnvRequer,count(fechanotificacionavaluo) as Notificados,count(fechainconformidad) as Inconformados" & _
" from oficiolev where oficiolev.nolevantamiento>0 ", ActiveConnection:=cnnpredial
Set MSChart1.DataSource = rstdatos
End Sub

Majuhemo

  • Miembro activo
  • **
  • Mensajes: 85
    • Ver Perfil
Re: Help me keypress y gráficas.. again
« Respuesta #1 en: Lunes 9 de Junio de 2003, 21:32 »
0
Hola:
sobre lo primero trata con esto:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 120 Then Form2.Show  ' tecla F9
End Sub

sobre lo segundo, no se como ayudarte.

Saludos;
Ruben Delgado A.
rudela@msn.com
Lima-Peru

rlarrea

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
Help me keypress y gráficas.. again
« Respuesta #2 en: Lunes 9 de Junio de 2003, 22:39 »
0
Hola colega espero te ayude esto

Private Sub txtid_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF9 Then form2.Show
End Sub

:good:
Rocky Larrea Chira
Lima -- Peru
Programador