Access - problema con código

Pos: 349

Val: 7

problema con código

Publicado por jose luis (40 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

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 42

Val: 57

problema con código

Publicado por xve (126 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?

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 349

Val: 7

problema con código

Publicado por jose luis (40 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

Comentar

problema con código

Publicado por Emilio (232 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í:

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

Comentar

Pos: 349

Val: 7

problema con código

Publicado por jose luis (40 intervenciones) el 05/11/2014 08:34:35

Muchas gracías Emilio, problema resuelto
Saludos

Valora esta respuesta

Comentar

error en duplicados

informe de acces movido