Error 3021 No hay ningún registro activo. (Access)
Publicado por Hev (1 intervención) el 12/07/2021 14:20:03
Hola! Estoy intentando hacer un código VBA en el que comparando 2 tablas inserto en la segunda tabla solamente los campos no repetidos de la primera tabla. Al ejecutar el codigo obtengo el error del titulo.
¿Alguien sabe a que se debe el problema y como debo solucionarlo?
Un saludo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Public Function InsertarRegistros()
Dim str As String
Dim Registro As Integer
Dim EmpresaAvisado As String, ArticuloAvisado As String, FechaAvisado As String
Dim EmpresaFiltro As String, ArticuloFiltro As String, FechaFiltro As String
Dim Repetido As String
Repetido = "Repetido"
Registro = 0Set rst1 = CurrentDb.OpenRecordset("Filtro")
Set rst2 = CurrentDb.OpenRecordset("Avisado")
rst1.MoveFirstDo While Not rst1.EOF rst2.MoveFirst Do While Not rst2.EOFEmpresaAvisado = rst2.Empresa
EmpresaFiltro = rst1.Empresa
ArticuloAvisado = rst2.Artículo
ArticuloFiltro = rst1.Artículo
FechaAvisado = rst2.Fecha
FechaFiltro = rst1.Fecha
If EmpresaAvisado <> EmpresaFiltro And ArticuloAvisado <> ArticuloFiltro And FechaAvisado <> FechaFiltro Then
Registro = Registro + 1
rst2.AddNewrst2.Empresa = rst1.Empresa
rst2.Artículo = rst1.Artículo
rst2.Fecha = rst1.Fecha
rst2.Validacion = rst1.Validacion
rst2.Update rst1.MoveNextEnd If
rst2.MoveNextLoop
rst1.MoveNextLoop
'-------------------------------------------------------------------------------------MsgBox ("Se han insertado " & Registro & " registros en Avisado")
rst1.Closerst2.CloseSet rst1 = NothingSet rst2 = NothingEnd Function
Un saludo.
Valora esta pregunta
0