okey solucionado el tema de la conexion pero sigo sin poder lograr que no grabe un registro si ya existe uno igual en la tabla. Es decir yo quiero que antes de grabar se fije si no se repite el registro, pero me lo graba igual y me quedan dos registros iguales. La tabla tiene cuatro campos (matricula, dni,codigo y fecha) la matricula es autonumerica. La matricula nunca será igual pero puede haber mismos dni, codigos y distintos años y asi mas combinaciones. El problema es que el recordcount nunca encuentra todo igual, por eso sigue adelante y graba de nuevo un registro identico al existente.
Código:
Private Sub grabar_Click()
busqueda = Trim$(doc.Text)
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\Escuela.mdb"
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "SELECT DNI,Cod_Carrera,Fecha_Inscripcion FROM Alumnos_Carreras WHERE DNI = '" & busqueda & "' " _
& "AND Cod_Carrera = '" & cod.Caption & "' " _
& "AND Fecha_Inscripcion = " & Year(Date)
End With
If rs.RecordCount > 0 Then
MsgBox "Ya está inscripto"
Else
txtsql = "INSERT INTO Alumnos_Carreras (DNI,Cod_Carrera,Fecha_Inscripcion) " _
& " VALUES ('" & doc.Text & "', '" & cod.Caption & "', #" & Date & "#) "
con.Execute (txtsql)
txtsql = "UPDATE Alumnos_Carreras SET"
End If
Adodc2.Refresh
End Sub