Tengo el siguiente codigo:
Código:
busqueda = Trim$(doc.Text)
With Adodc2.Recordset
.MoveFirst
.Find "DNI LIKE '" + busqueda + "'"
.Find "Cod_Carrera LIKE '" + cod.Caption + "'"
.Find "Año_Inscripcion LIKE #Year(Date)#"
If .EOF Then
txtsql = "INSERT INTO Alumnos_Carreras (DNI,Cod_Carrera,Año_Inscripcion) " _
& " VALUES ('" & doc.Text & "', '" & cod.Caption & "', #" & Date & "#) "
con.Execute (txtsql)
Else
MsgBox "Ya esta Inscripto"
txtsql = "UPDATE Alumnos_Carreras SET"
End If
End With
Adodc2.Refresh
Bien, yo en un formulario de visual traigo desde otras tablas algunos datos como el DNI, Nombre, Apellido, Codigo de Carrera y le digo (con el codigo que puse arriba) que grabe en otra tabla los datos DNI, Codigo de carrera, y el año pero que primero se fije (haga una busqueda) en esta nueva tabla para que no grabe dos registros iguales. El problema me lo tira en el tercer Find evidentemente hay algo mal con las fechas, pero no se que, para que grabe la fecha le digo que tome la del sistema y en le Find quiero que compare el año.
Espero haber sido claro.
Saludos y gracias.