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