Donde me salen error es en donde este *.
Error 3251 " Operacion no valida para este tipo de objeto".
Private Sub Form_Current()
Dim liquid1
Dim criterioP As String, criterioC As String
Dim STRSQL As String
tipoanterior = Me!TipodeGasto
Set PAGOS = CurrentDb()
Set CONVE = PAGOS.OpenRecordset("expedientes")
If IsNull([claveexpediente]) Or [claveexpediente] = "" Then
' que no haga nada
Texto142.ForeColor = 0
claveexpediente.ForeColor = 0
Else
If Me!CLAVE = "OB" Then
criterioC = "[Expediente]='" & Me![claveexpediente] & "'"
* CONVE.FindFirst (criterioC)
* If CONVE.NoMatch Then liquid1 = "" Else liquid1 = CONVE!Liquidado '
If liquid1 = "T" Then
MsgBox ("CONVENIO LIQUIDADO")
Texto142.ForeColor = 255
claveexpediente.ForeColor = 255
Else
If liquid1 = "P" Then
MsgBox ("CONVENIO PARCIALMENTE LIQUIDADO")
Texto142.ForeColor = 6723891
claveexpediente.ForeColor = 6723891
Else
Texto142.ForeColor = 0
claveexpediente.ForeColor = 0
End If
End If
End If
End If
CONVE.Close
If EnEuros Then
IMPORTE.DecimalPlaces = 2
[IMPORTE DEL IVA].DecimalPlaces = 2
[importe retención contractual].DecimalPlaces = 2
[importe irpf].DecimalPlaces = 2
Suplidos.DecimalPlaces = 2
Total.DecimalPlaces = 2
Calciva.DecimalPlaces = 2
calctotfac.DecimalPlaces = 2
Calcretcon.DecimalPlaces = 2
Calcirpf.DecimalPlaces = 2
Calctotal.DecimalPlaces = 2
Else
IMPORTE.DecimalPlaces = 0
[IMPORTE DEL IVA].DecimalPlaces = 0
[importe retención contractual].DecimalPlaces = 0
[importe irpf].DecimalPlaces = 0
Suplidos.DecimalPlaces = 0
Total.DecimalPlaces = 0
Calciva.DecimalPlaces = 0
calctotfac.DecimalPlaces = 0
Calcretcon.DecimalPlaces = 0
Calcirpf.DecimalPlaces = 0
Calctotal.DecimalPlaces = 0
End If
End Sub
