Private Sub Option3_Click()
If Option3.Value = True Then
Text73.Text = "X"
Text71.Text = ""
Text72.Text = ""
Text1.Text = InputBox("NUMERO DE FOLIO")
If Text1.Text = "" Then
Exit Sub
Else
CRITERIO = Text1.Text
If Not Form2.Adodc1.Recordset.EOF Then
Form2.Adodc1.Recordset.MoveFirst
Form2.Adodc1.Recordset.Find CRITERIO
Form2.Adodc1.Recordset.Delete CRITERIO
Form2.Adodc1.Recordset.Update
Form2.Adodc1.Recordset.MoveNext
MsgBox "Se ha Eliminado el Folio No: " & Text1.Text
End If
End If
End If
End Sub
Pero me sale error 3001 en tiempo de ejecucion
" Arguments are of the wrong type , are out of acceptable range, or are in conflict with one another"
La tabla que tengo en access tiene un solo campo que se llama FOLIOS y es tipo texto
Alguna idea de como solucionar esto?
Muchas Gracias
