Access - problema con código

   
Vista:
Imágen de perfil de jose luis

problema con código

Publicado por jose luis (39 intervenciones) el 04/11/2014 19:49:24
Hola. Tengo este código que me controla las citas horarias de 30 a 30 minutos pero lo quiero pasar a intervalos de horas y no se como hacerlo.
Alguien me puede decir que he de variar?
Saludos
1
2
3
4
5
If rst.RecordCount = 0 Then
    For i = 7 To 21
    For j = 0 To 30 Step 30
        miHora = Format(i, "00") & ":" & Format(j, "00")
        Hora.AddItem miHora
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de xve

problema con código

Publicado por xve (114 intervenciones) el 04/11/2014 20:42:05
Hola Jose Luis, no entiendo muy bien tu código, ya que de 0 a 30 step 30, es unicamente el 0 y el 30.... pero esto te valdría?

1
2
3
4
5
If rst.RecordCount = 0 Then
    For i = 7 To 21
    For j = 0 To 60 Step 60
        miHora = Format(i, "00") & ":" & Format(j, "00")
        Hora.AddItem miHora

Coméntanos, ok?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de jose luis

problema con código

Publicado por jose luis (39 intervenciones) el 04/11/2014 20:53:16
Hola xve. ya lo he intentado pero lo que hace es poner 8:60- 9:00- 9:60....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

problema con código

Publicado por Emilio (221 intervenciones) el 05/11/2014 00:42:45
Hola José Luis

En teoría tu código te da la hora de las 7:00 a las 21:30 horas en intervalos de 30 minutos, si tu quieres que te los de en intervalos de hora solo tienes que eliminar el For J de la ecuación, con ponerlo así:

1
2
3
4
5
6
7
If rst.RecordCount = 0 Then
    For i = 7 To 21
    'For j = 0 To 30 Step 30      'O quitando esta linea
        miHora = Format(i, "00") & ":" & Format(j, "00")
        Hora.AddItem miHora
  'Next j     'Y esta también
Next i

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de jose luis

problema con código

Publicado por jose luis (39 intervenciones) el 05/11/2014 08:34:35
Muchas gracías Emilio, problema resuelto
Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar