Me dice ningun registro activo, pero no se a que se refiera, me pueden ayudar por favor ?
Function ActualizarStatusFactura()
Dim I As Integer
I = 0
Cadena = "SELECT FechaPago,StatusFact FROM Facturas WHERE NoFact='" & MSFlexGrid.TextMatrix(I, 2) & "'"


AbrirDAO


For I = 1 To MSFlexGrid.Rows - 1


Set Dr = BaseDatos.OpenRecordset(Cadena)
If MSFlexGrid.TextMatrix(I, 7) = "PAGADA" Then


Dr.Edit
Dr!FechaPago = Format(TXTFECHA.Text, "mm/dd/yyyy")
Dr!StatusFact = MSFlexGrid.TextMatrix(I, 7)
Dr.Update
End If
Next I


CerrarDAO
End Function

Hola, me acuerdo que vos querias actualizar solo las pagadas...no se que haces ahi yo lo haria algo asi:

primero me conexto a la base(eso me inmagino ya esta), despues recorro con un bucle todas las filas del flexgrid...(eso ya esta)...dentro de este bucle pregunto que si hay una columna que diga "pagada" entonces que actualize esa...ahi ejecutas la consulta pero fuera del if o sea lo esta haciendo para todas...y aparte la consulta no debe ser un SELECT debe ser un UPDATE ya que vos queres actualizar el registro...estas lineas:

Código:

Dr.Edit
Dr!FechaPago = Format(TXTFECHA.Text, "mm/dd/yyyy")
Dr!StatusFact = MSFlexGrid.TextMatrix(I, 7)
Dr.Update

estan demas, se puede hacer directamente en la consulta....

saludos.

Ya quedo neo, mil gracias por tu paciencia !!!


Function ActualizarStatusFactura()
Dim I As Integer


For I = 1 To MSFlexGrid.Rows - 1
Cadena = ""
Descrip = Trim(MSFlexGrid.TextMatrix(I, 2))


Cadena = "SELECT FechaPago,StatusFact FROM Facturas WHERE NoFact='" & Descrip & "'"


AbrirDAO
Set Dr = BaseDatos.OpenRecordset(Cadena)
If MSFlexGrid.TextMatrix(I, 7) = "PAGADA" Then
Do While Not Dr.EOF
Dr.Edit
Dr!FechaPago = Format(TXTFECHA.Text, "mm/dd/yyyy")
Dr!StatusFact = MSFlexGrid.TextMatrix(I, 7)
Dr.Update
Dr.MoveNext
Loop
End If
CerrarDAO
Next I
End Function