haber si te entedi, si lo que tu quieres es que al momento de presionar la tecal f o F, quieres que aparezca otro formulario, pero en determinado control?, bueno solo tendras que poner este codigo en el keypress en esos controles
if keyascii=102 or keyascii=70 then
frmventana.show 1
endif
espero te sirva, ahora con lo del mschart es facil, solo agrega el ocx de mschar a tu forma y dale la presentacion que quieras, y en el load, inicializa con los datos que quieras mostrar, y a partir de ahi la podras modificar con los datos que tu quieras, yo lo hago de esta forma
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
esto es solo para darle una presentacion inicial con las leyendas y datos que mostrara, pero ya despues realmente hago un consulta en un boton y la vuelo actualizar
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
y se actuliza mi grafica, bueno espero que te sirva
