saludos a todos los miembros de este foro, tengo un problema , haber si alguien me puede orientar, tengo que verificar que existan dos claves en una tabla, hay una clave por cada campo, para verificar si existen tengo que comparar, con 2 variables, el problema aqui es que el recordset me verifica la primera condicion, pero no la segunda y es que no se van recorriendo juntos sino que uno el primer campo si se recorre, pero en el otro ahi se queda, estoy utilizando este codigo:
Dim stDocName As String
Dim stLinkCriteria As String
Dim variable As Variant
Dim variable1 As Variant
Dim db As DAO.Database
Dim registro As DAO.Recordset
Set dbase = CurrentDb
Set registro = dbase.openrecordset("CLIENTEART")
Do
variable = Cuadro_combinado65
variable1 = CLAVEART
registro.MoveFirst
If registro![CLAVECLI] <> variable And registro![CLAVEART] <> variable1 Then
'ABRE EL FORMULARIO MENSAJE
stDocName = "MENSAJE1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
registro.AddNew
registro![CLAVECLI] = Cuadro_combinado65
registro![CLAVEART] = CLAVEART
registro.Update
ElseIf registro![CLAVECLI] = variable And registro![CLAVEART] = variable1 Then
registro.Edit
registro![CLAVECLI] = Cuadro_combinado65
registro![CLAVEART] = CLAVEART
registro.Update
End If
registro.MoveNext
Exit Do
Loop Until registro.EOF
aqui esta el problema:
If registro![CLAVECLI] <> variable And registro![CLAVEART] <> variable1 Then
cuando en registro![CLAVECLI] <> variable esta evaluando el siguiente registro, registro![CLAVEART]<>variable1 se queda en el anterior, no avamzan al mismo tiempo, estos dos campos [CLAVECLI] y [CLAVEART] estan en la misma tabla.
por favor si tienen alguna idea de como avanzar los dos al mismo tiempo se los voy a agradecer muchisimo, ya que llevo atorado 4 dias con el mismo rollo, por su amable atencion, gracias.
