Evaluen este codigo y diganme que esta mal
Publicado por hecmir (53 intervenciones) el 08/03/2005 15:10:03
Private Sub Cuadro_combinado62_Enter()
Dim A As DAO.Recordset
If CCLI = "ADMINISTRACION" Then (valor del campo)
Set A = CurrentDb.OpenRecordset("COPMPARACION", dbOpenDynaset)(tabla a consultar)
CurrentDb.QueryDefs("ELIM_COMP").Execute(elimina datos en la tabla anterior)
CurrentDb.QueryDefs("CON_ADMINISTRACION").Execute(anexa datos en la tabla comparacion)(y de aqui es que el combo va a tomar los valores despues de ejecutar las otras dos operaciones )
Else
If CCLI = "ORGANIZACIÓN INDUSTRIAL" Then
Set A = CurrentDb.OpenRecordset("COPMPARACION", dbOpenDynaset)
CurrentDb.QueryDefs("ELIM_COMP").Execute
CurrentDb.QueryDefs("COM_ORG_IND").Execute
End If
End If
End Sub
Dim A As DAO.Recordset
If CCLI = "ADMINISTRACION" Then (valor del campo)
Set A = CurrentDb.OpenRecordset("COPMPARACION", dbOpenDynaset)(tabla a consultar)
CurrentDb.QueryDefs("ELIM_COMP").Execute(elimina datos en la tabla anterior)
CurrentDb.QueryDefs("CON_ADMINISTRACION").Execute(anexa datos en la tabla comparacion)(y de aqui es que el combo va a tomar los valores despues de ejecutar las otras dos operaciones )
Else
If CCLI = "ORGANIZACIÓN INDUSTRIAL" Then
Set A = CurrentDb.OpenRecordset("COPMPARACION", dbOpenDynaset)
CurrentDb.QueryDefs("ELIM_COMP").Execute
CurrentDb.QueryDefs("COM_ORG_IND").Execute
End If
End If
End Sub
Valora esta pregunta
0