no me puedo mover hacia atras en el record
Publicado por Bella Panamá (80 intervenciones) el 09/10/2001 00:49:30
tengo la siguinte programación
1. Private Sub recorreobservaciones()
' levanta las observaciones de los usuarios anteriores
If recordObservaciones.State = adStateOpen Then
recordObservaciones.Close
End If
comando.CommandText = "select * from ci_manejodocumentos_salidainterna where md_numcontrol2 = " & lblNumDoc.Caption
recordObservaciones.Open comando
End Sub
2. en un comand de inicio tengo esto:
Private Sub cmdInicio_Click()
recorreobservaciones
recordObservaciones.MoveFirst
Me.lblusuarioobservacion.Caption = recordObservaciones!md_de
Me.txtasuntoobservacion.Text = recordObservaciones!md_asunto
Me.txtobservacion.Text = recordObservaciones!md_observacionesdesalida
End Sub
3. en el boton de siguiente esto:
Private Sub cmdSiguiente_Click()
recordObservaciones.MoveNext
Me.lblusuarioobservacion.Caption = recordObservaciones!md_de
Me.txtasuntoobservacion.Text = recordObservaciones!md_asunto
Me.txtobservacion.Text = recordObservaciones!md_observacionesdesalida
End Sub
4. en el boton de anterior esto:
Private Sub cmdAnterior_Click()
recordObservaciones.MovePrevious
Me.lblusuarioobservacion.Caption = recordObservaciones!md_de
Me.txtasuntoobservacion.Text = recordObservaciones!md_asunto
Me.txtobservacion.Text = recordObservaciones!md_observacionesdesalida
End Sub
5. en el boton de fin esto:
Private Sub cmdFinal_Click()
recorreobservaciones
recordObservacio
1. Private Sub recorreobservaciones()
' levanta las observaciones de los usuarios anteriores
If recordObservaciones.State = adStateOpen Then
recordObservaciones.Close
End If
comando.CommandText = "select * from ci_manejodocumentos_salidainterna where md_numcontrol2 = " & lblNumDoc.Caption
recordObservaciones.Open comando
End Sub
2. en un comand de inicio tengo esto:
Private Sub cmdInicio_Click()
recorreobservaciones
recordObservaciones.MoveFirst
Me.lblusuarioobservacion.Caption = recordObservaciones!md_de
Me.txtasuntoobservacion.Text = recordObservaciones!md_asunto
Me.txtobservacion.Text = recordObservaciones!md_observacionesdesalida
End Sub
3. en el boton de siguiente esto:
Private Sub cmdSiguiente_Click()
recordObservaciones.MoveNext
Me.lblusuarioobservacion.Caption = recordObservaciones!md_de
Me.txtasuntoobservacion.Text = recordObservaciones!md_asunto
Me.txtobservacion.Text = recordObservaciones!md_observacionesdesalida
End Sub
4. en el boton de anterior esto:
Private Sub cmdAnterior_Click()
recordObservaciones.MovePrevious
Me.lblusuarioobservacion.Caption = recordObservaciones!md_de
Me.txtasuntoobservacion.Text = recordObservaciones!md_asunto
Me.txtobservacion.Text = recordObservaciones!md_observacionesdesalida
End Sub
5. en el boton de fin esto:
Private Sub cmdFinal_Click()
recorreobservaciones
recordObservacio
Valora esta pregunta


0