Hola a todos. Tengo un problema y a ver si me ayudais a solucionarlo. Me explico tengo un formulario con un campo [CONTPOL] es de tipo texto y le he escrito un código en el evento después de actualizar (de un ejemplo que vi por internet) para que cuando entre algún valor, busque en la tabla, si lo encuenta me visualice los datos y si no lo encuentra me pregunta si quiero darlo de alta, pero cuando entro el valor en el campo CONTPOL me da el error que os diguo. Os pongo el código entrado en el evento:
Private Sub CONTPOL_AfterUpdate()
Dim buscar As String
Dim CriterioBusqueda As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone 'Recorremos la tabla pólizas
buscar = Me.CONTPOL.Value
CriterioBusqueda = "[CONTPOL]='" & "" & buscar & "'"
'Comprobamos si existe el Codigo contracte
If DCount("CONTPOL", "POLISSES", CriterioBusqueda) > 0 Then
Me.Undo 'Limpiamos el campo
'Si lo encontramos un mensaje
rsc.FindFirst CriterioBusqueda
Me.Bookmark = rsc.Bookmark
Set rsc = Nothing 'cerramos el recordset
Else 'De no existir el contracte
If MsgBox("Contracte inexistent" & vbCrLf & "Vols donar-lo d'alta: " & buscar, vbYesNo) = vbYes Then
Me.Undo 'Limpiamos
DoCmd.GoToRecord , , acNewRec 'Creamos un nuevo registro
CONTPOL = buscar 'Asignamos el valor de la variable Buscar al campo contrato
Me.CONTPOL2.Value = CONTPOL
Else 'De haber elegido No
Me.Undo 'Limpiamos
End If 'Salimos
End If
End Sub
Al depuar me marca en amarillo la línea rsc.FindFirst CriterioBusqueda
Si alguien me puede escribir el código correcto se lo agradeceria.
