Intento cargar una tabla con los datos que extraigo de tres combos
(cboInicioJornada, cboIntervaloPacientes, cboFinDeJornada), como veran cargo
el primero ( 1111 Desde + :00) y luego hago un bucle para rellenar la
tabla hasta el final cambiando los minutos ( 2222 :60 por :00) y sigo
rellenando (3333 hasta el final).
Pero solo me carga el primer dato y no continua con el bucle.
Si alguien me da una mano se lo agradezco.
S.L
****Aqui el codigo******
Private Sub cmdAceptarHoraAg_Click()
Dim Intervalos As Integer
Dim Desde As Integer
Dim Hasta As Integer
Dim I As Integer
Dim J As Integer
''''Tengo abierta la base de datos en un modulo por eso solo llamo el
recordset que esta abierto en el mismo modulo
Set rs = dbBase.OpenRecordse("tblAgenda", 2)
Intervalos = Me.cboIntervaloPacientes.Text
Desde = Me.cboInicioJornada.Text
Hasta = Me.cboFinDeJornada.Text
If MsgBox(" * LEEA CON ATENCIÓN" _
& vbCrLf & vbCrLf & "Ud eligó trabajar desde la hora " _
& cboInicioJornada.Text & _
" hasta la hora " & cboFinDeJornada.Text _
& " dando hora cada " & cboIntervaloPacientes.Text & " minutos" _
& vbCrLf & "Si está de acuerdo haga clic en Sí" _
& vbCrLf & "Si desea modificar haga clic en No" _
, vbInformation + vbYesNo, App.ProductName _
& " - " & frameConfAgDiaria.Caption) = vbYes Then
Select Case Intervalos
Case Is = "10"
rs.AddNew
rs.Fields("Hora") = Trim(Desde) & ":" &"00" '1111 este lo carga
rs.Update
For I = Desde To Hasta - 1
Intervalos = 0
Do While Intervalos < 60
Intervalos = Intervalos + 10
If Intervalos = 60 Then
rs.AddNew
rs.Fields("Hora") = Trim(I + 1) & ":" & "00" '2222 aquí ya no carga nada
rs
