Como insertar datos desde excel a access si cumple condiciones

Dim Nombre, Curso, Direccion, Telefono As String
Dim Ci, Valor, Pago, Saldo As Double
Dim Recordset As ADODB.Recordset
Dim Fecha As Date

If Me.TextBox1 = "" Or Me.TextBox2 = "" Or Me.TextBox5 = "" Or Me.TextBox4 = "" Or CURSOS = "" Or Me.TextBox7 = "" Then
MsgBox "Algun campo del formulario se encuentra sin datos" & Chr(13) & _
" Asegurese que todos los campos tengan datos para " & Chr(13) & _
"continuar el proceso de registro", vbExclamation, "Datos vacios"
GoTo salir
End If
Set Recordset = New ADODB.Recordset
Set Conexion = New ADODB.Connection

With Conexion

.Provider = "Microsoft.ACE.OLEDB.12.0;"

.ConnectionString = ActiveWorkbook.Path & "\Alumnos.accdb"

.Open

End With

Ci = TextBox1
Nombre = TextBox2
Fecha = TextBox5
Telefono = TextBox4
Curso = TextBox3
Valor = TextBox6
Pago = TextBox7
Saldo = Valor - Pago
If Pago > Valor Then
MsgBox "El pago supera el valor del curso", vbCritical, "Monto incorrecto"
GoTo salir
End If

seleccion = "INSERT INTO Registro_Alumnos VALUES ( '" & Ci & "' , '" & Nombre & "', '" & Fecha & "', '" & Telefono & "' , '" & Curso & "', '" & Valor & "', '" & Pago & "' , '" & Saldo & "')"

Set Recordset = Conexion.Execute(seleccion)

Conexion.Close

MsgBox "Se registró el alumno " & UCase(Nombre) & " en el curso " & _
UCase(Curso) & " exitosamente ! ", vbInformation, "Registro de datos"

i = Me.LISTA.ListCount

Me.LISTA.AddItem

Me.LISTA.List(i, 0) = Ci
Me.LISTA.List(i, 1) = Nombre
Me.LISTA.List(i, 2) = Telefono
Me.LISTA.List(i, 3) = Curso
Me.LISTA.List(i, 4) = Valor
Me.LISTA.List(i, 5) = Pago
Me.LISTA.List(i, 6) = Saldo

LIMPIAR "Registro", Me

salir:
Exit Sub
End Sub

Un saludo para todos con este código inserto información a access funciona bien, pero ahora debo impedir que se registre alumnos que cursen un mismo curso, es decir el alumno puede registrar los cursos que quiera pero NO uno que ya este cursando

ejemplo: if (cedula) =textbox1 and (curso )=textbox3  then

msgbox"El alumno ya esta registrado en este curso"

else

seleccion = "INSERT INTO Registro_Alumnos VALUES ( '" & Ci & "' , '" & Nombre & "', '" & Fecha & "', '" & Telefono & "' , '" & Curso & "', '" & Valor & "', '" & Pago & "' , '" & Saldo & "')"

Set Recordset = Conexion.Execute(seleccion)

Como puedo hacer esta condición

Añade tu respuesta

Haz clic para o