Sacar promedio de temperaturas |
Responder | Página <12 |
Autor | |
ximo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 03/Marzo/2006 Localización: España Estado: Sin conexión Puntos: 2085 |
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 |
|
ximo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 03/Marzo/2006 Localización: España Estado: Sin conexión Puntos: 2085 |
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 |
|
Mihura
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 13990 |
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í ....
|
|
ximo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 03/Marzo/2006 Localización: España Estado: Sin conexión Puntos: 2085 |
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 |
|
ximo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 03/Marzo/2006 Localización: España Estado: Sin conexión Puntos: 2085 |
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 |
|
ximo
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Colaborador Unido: 03/Marzo/2006 Localización: España Estado: Sin conexión Puntos: 2085 |
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 |
|
Responder | Página <12 |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |