** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Sacar promedio de temperaturas
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoSacar promedio de temperaturas

 Responder Responder Página  <12
Autor
Mensaje
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2085
Enlace directo a este mensaje Enviado: 18/Mayo/2021 a las 20:36
Hola,
No he sido capaz de hacer funcionar la select, siempre me daba error, al final he optado por abrir directamente la consulta y utilizar los datos de la misma, no sé si de un modo elegante y eficaz pero al menos funciona.

Os la pongo por si alguien cree que es mejorable o le viene bién para algo.

Private Sub cboAno_Change()
'declaramos variables
Dim rs As DAO.Recordset
Dim bytdis As Byte
Dim varano As Variant
Dim contador As Byte
'abrimos recordset
Set rs = CurrentDb.OpenRecordset("Consulta2", dbOpenSnapshot)
rs.MoveLast
rs.MoveFirst
'ponemos valor a contador
contador = 1
Do Until rs.EOF
'igualamos la variable de dispositivo
 bytdis = rs!DISPOSITIVO
'igualamos la variable de año
 varano = rs!Año
'veamos si dispositivo y año coinciden
 If bytdis = contador And varano = Me.cboAno Then
Select Case bytdis
Case 1
 Me.txtprocam = rs!PromedioDeTEMP2
 contador = contador + 1
Case 2
 Me.txtpromos = rs!PromedioDeTEMP2
 contador = contador + 1
Case 3
 Me.txtproarc = rs!PromedioDeTEMP2
 contador = contador + 1
Case 4
 Me.txtproveh = rs!PromedioDeTEMP2
contador = contador + 1
End Select
 End If
 rs.MoveNext

Loop


rs.Close
Set rs = Nothing
Me.txttonto.SetFocus
End Sub



Saludos, ximo

Editado por ximo - 18/Mayo/2021 a las 20:46
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2085
Enlace directo a este mensaje Enviado: 18/Mayo/2021 a las 20:38
Hola,
Perdón por el formato pero es cosa de Edge, por eso no lo utilizo.

Saludos, ximo
PD: algo pasa con mi Mozzilla
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13990
Enlace directo a este mensaje Enviado: 18/Mayo/2021 a las 21:02
Antes de copiar / pegar aquí ... pega el codigo en un editor de texto plano (NotePad por ejemplo) y desde ahí lo copias aquí ....

Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2085
Enlace directo a este mensaje Enviado: 19/Mayo/2021 a las 12:23
Hola,

Siempre lo paso por el bloc de notas, pero esta vez no hay forma de pegar código, directamente escrito en el formulario creo que funcionara como si escribo esto.


Saludos, ximo
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2085
Enlace directo a este mensaje Enviado: 22/Mayo/2021 a las 08:28
Hola,
podemos cerrar el hilo cuando gusten, ya que no hay ningún aporte más.


Saludos, ximo
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 2085
Enlace directo a este mensaje Enviado: 04/Junio/2021 a las 17:33
Hola,
Podemos cerrar.

Saludos, ximo
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
 Responder Responder Página  <12
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable