Como rescatar datos entre intervalos
Mi pregunta es como hago para que la variante CLIEN rescate solo los registros entre las variantes DESDECLIENTE Y HASTACLIENTE me da el error que son tipos no coincidentes, pero cuando hago el criterio solo con una variante DESDECLIENTE o bien HASTACLIENTE me funciona bien.
Dim dbf
Dim registros
Dim CLIEN As Variant
Dim DESDECLIENTE As Variant
Dim HASTACLIENTE As Variant
DESDECLIENTE = Forms!MENU![DESDE CLIENTE]
HASTACLIENTE = Forms!MENU![HASTA CLIENTE]
Set dbf = CurrentDb
Set registros = dbf.OpenRecordset("SALIDA", dbOpenDynaset)
CLIEN = "CLIENTESALIDA<=" & HASTACLIENTE And CLIEN = "CLIENTESALIDA>=" & DESDECLIENTE
registros.FindFirst CLIEN
Do Until registros.NoMatch
registros.Edit
registros("DOCUMENTO") = "FACTURADO"
registros.Update
registros.FindNext CLIEN
Loop
Registros.Close
Dim dbf
Dim registros
Dim CLIEN As Variant
Dim DESDECLIENTE As Variant
Dim HASTACLIENTE As Variant
DESDECLIENTE = Forms!MENU![DESDE CLIENTE]
HASTACLIENTE = Forms!MENU![HASTA CLIENTE]
Set dbf = CurrentDb
Set registros = dbf.OpenRecordset("SALIDA", dbOpenDynaset)
CLIEN = "CLIENTESALIDA<=" & HASTACLIENTE And CLIEN = "CLIENTESALIDA>=" & DESDECLIENTE
registros.FindFirst CLIEN
Do Until registros.NoMatch
registros.Edit
registros("DOCUMENTO") = "FACTURADO"
registros.Update
registros.FindNext CLIEN
Loop
Registros.Close
1 respuesta
Respuesta de Roberto Alvarado
1