Visual Basic - Error 3251 en tiempo de ejecución en Access

Life is soft - evento anual de software empresarial
 
Vista:

Error 3251 en tiempo de ejecución en Access

Publicado por Heraldo (1 intervención) el 24/05/2016 18:23:24
Hola,
Soy novato en Access

Se me está presentando un error cuando divido una base de datos, en el siguiente código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Anio_LostFocus()
 
Dim Db As DAO.Database
Dim Rst As DAO.Recordset
 
Set Db = CurrentDb()
 
Set Rst = Db.OpenRecordset("Comisiones", dbOpenDynaset)
Rst.Index = "PrimaryKey"
 
Rst.Seek "=", [DT], [Numero_de_comision], [Anio]  'Campos del formulario
If Not Rst.NoMatch Then
 
MsgBox "Este No. de comisión para este año en esta territorial ya existe!! Por Favor Verificar.", vbiinformation
Cancel = True
 
End If
Rst.Close
Db.Close
 
Set Rst = Nothing
Set Db = Nothing
 
End Sub

En la linea: Rst.Index = "PrimaryKey"
Se me detiene el depurador

Alguien me puede colaborar.

El error se presenta al dividir la base de datos. cuando la trabajo sin dividir no genera inconveniente.
Gracias al que me pueda colaborar.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder