No ingresar daros repetidos acces desde VB

[jeaguiar25]

Buenos Días!!!
Yo siempre buscando respuestas acudo a quienes saben más que yo y responden bien y rápido. Tengo un pequeño problema, en una base de datos acces que manipulo desde un form desde visual ingreso datos de usuarios a una lista de espera, lo que deseo es que esta en esta lista no se repita en una misma especialidad 2 veces el mismo usuario.
el Codigo que desarrolle es el siguiente:

Private Sub Ingreso_a_Lista_Click()
Dim buscar As String
If rst.BOF = False And rst.EOF = False Then
If buscar = "Especialidad" & "Documento" = True Then
MsgBox "No Se puede Ingresar Dos veces en la misma Lista de Espera a un mismo Usuario"
Else
rst.AddNew
cnn.Execute "INSERT INTO Listadeespera (FechaIngreso,Documento,Especialidad,Medico,Nombre 1,Nombre2,Apellido1,Apellido2,Carne,Vencimiento,Te lefonos,Observaciones) Values('" & _
LabelFechaIngresoLE & "', '" & Text1 & "', '" & Combo1 & "', '" & Combo2 & "', '" & Text2 & "', '" & Text3 & "', '" & Text4 & "', '" & Text5 & "', '" & Text6 & "', '" & Text7 & "', '" & Text8 & " ', '" & Text9 & " ')"
MsgBox "El Usuario ha sido Agregado a la base de datos de manera exitosa!"
rst.Update
'--------------------------------------------------------------------------------------------------------End If
End If
End Sub
Pero me ingresa el usuario igual 2 veces, alguien me puede decir donde está el error u horror? Muchas gracias!!!

[Heimish2000]

Lo único que se me ocurre es que estes llamando a ese evento dos veces por alguna causa.

P.D. Supongo que ese es tu unico INSERT y no tengas otro en otra parte del código.

[jeaguiar25]

En el Formulario es el único INSERT INTO, tal vez me exprese mal lo que deseo hacer es que busque en la tabla antes de agregar y si el registro (según el número de documento y especialidad) ya está ingresado, que no lo vuelva a ingresar y me avise con un Msgbox

[Heimish2000]

Ok, creia que te estaba insertando doble.

Ese IF no tiene sentido:

If buscar = "Especialidad" & "Documento" = True Then

"Documento" nunca valdrá true.

Lo que tienes que hacer es un SELECT y si te devuelve algún registro no hacer la inserción.

[jeaguiar25]

Me podrías dar una ayuda y decirme como harías tu la sentencia para esto?
Gracias por el apoyo

[lokoman]

Hola!!
Intenta asi:

Código vb:

Private Sub Ingreso_a_Lista_Click()
Dim buscar As String
Dim rsConsulta as Adodb.Recordset
Set rsConsulta=new adodb.recodset
 
If rst.BOF = False And rst.EOF = False Then
rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD=' " & strVALOR_ESPECIALIDAD  & " ' AND DOCUMENTO=' " & strVALOR_DOCUMENTO  & " ' " , CNN, DYNAMIC, LOCKTYPE ' ---> Completa la sentencia  
If rsConsulta.EOF=FALSE Then
MsgBox "No Se puede Ingresar Dos veces en la misma Lista de Espera a un mismo Usuario"
rsConsulta.Close
Set rsConsulta=nothing
Exit sub
Else
cnn.Execute "INSERT INTO Listadeespera (FechaIngreso,Documento,Especialidad,Medico,Nombre 1,Nombre2,Apellido1,Apellido2,Carne,Vencimiento,Te lefonos,Observaciones) Values('" & _
LabelFechaIngresoLE & "', '" & Text1 & "', '" & Combo1 & "', '" & Combo2 & "', '" & Text2 & "', '" & Text3 & "', '" & Text4 & "', '" & Text5 & "', '" & Text6 & "', '" & Text7 & "', '" & Text8 & " ', '" & Text9 & " ')"
MsgBox "El Usuario ha sido Agregado a la base de datos de manera exitosa!"
End If
End Sub
 

[jeaguiar25]

Lokoman:
En este caso Dim buscar As String esta de más, verdad?
Por otra parte me da error al completar la sentencia, en mi form Combo1 es donde opto por la especialidad y text1 donde digito el documento por lo cual strVALOR_ESPECIALIDAD debería de ser = a combo1 y strVALOR_DOCUMENTO = a text1, me podrías ayudar a completar la sentencia, porque me da error me dice que los argumentos están fuera de la referencias
Me olvidaba, no debería poner al inicio del Sub Dim strValor As String?

[lokoman]

El [ Dim buscar As String ] está de mas, ya que no lo uso... !

Verifica y nos cuentas:

Código vb:

Private Sub Ingreso_a_Lista_Click()
    Dim strVALOR_ESPECIALIDAD As String
    Dim strVALOR_DOCUMENTO As String
    Dim rsConsulta As ADODB.Recordset
    Set rsConsulta = New ADODB.recodset
 
    strVALOR_ESPECIALIDAD = COMBO1.Text
    strVALOR_DOCUMENTO = TEXT1.Text
    
    If rst.EOF = False Then
        rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD=' " & strVALOR_ESPECIALIDAD & " ' AND DOCUMENTO=' " & strVALOR_DOCUMENTO & " ' ", cnn, adOpenDynamic, adLockBatchOptimistic
       
        If rsConsulta.EOF = False Then
            MsgBox "No Se puede Ingresar Dos veces en la misma Lista de Espera a un mismo Usuario"
            rsConsulta.Close
            Set rsConsulta = Nothing
            Exit Sub
        Else
            cnn.Execute "INSERT INTO Listadeespera (FechaIngreso,Documento,Especialidad,Medico,Nombre 1,Nombre2,Apellido1,Apellido2,Carne,Vencimiento,Te lefonos,Observaciones) Values('" & _
                        LabelFechaIngresoLE.CAPTION & "', '" & TEXT1.TEXT & "', '" & COMBO1.TEXT & "', '" & Combo2.TEXT & "', '" & Text2.TEXT & "', '" & Text3.TEXT & "', '" & Text4.TEXT & "', '" & Text5.TEXT & "', '" & Text6.TEXT & "', '" & Text7.TEXT & "', '" & Text8.TEXT & " ', '" & Text9.TEXT & " ')"
            MsgBox "El Usuario ha sido Agregado a la base de datos de manera exitosa!"
        End If
    End If
End Sub
 

[jeaguiar25]

Sabes que me da un error en la sentencia SELECT, me dice que no coinciden los tipos de datos en la expresión de criterios, sin embargo tanto (strVALOR_ESPECIALIDAD = Combo1 .Text) como (strVALOR_DOCUMENTO = Text1.Text) me figuran como los valores del formulario. En el SELECT cambie el (LISTADEESPERA) por ListadeEspera (que es como figura el nombre de la tabla) y (ESPECIALIDAD) lo cambie por Especialidad (que es como figura el nombre del campo) el cnn me da la ruta correcta, adOpenDynamic es = 2 y adLockBatchOptimistic =4. Tenes idea de que puede fallar?

[jeaguiar25]

Perdon ya lo solucione, cambie el (AND) del select por (&), pero igual me ingresa 2 veces los usuarios en la lista de espera, se te ocurre que más puedo hacer?

[jeaguiar25]

Te dejo el programita por si lo quieres ver
http://www.megaupload.com/?d=F17RQUN6
Saludos

[lokoman]

Justo como está debe de funcionar. El error de que NO COINCIDEN LOS TIPOS, es porque le estamos pasando datos de tipo diferente a como estan declarados en la base de datos...

Si DOCUMENTO es numerico, entonces:

Código vb:

rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD=' " & strVALOR_ESPECIALIDAD & " ' AND DOCUMENTO= " & strVALOR_DOCUMENTO , cnn, adOpenDynamic, adLockBatchOptimistic
 

Si especialidad es numerico, entonces:

Código vb:

rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD= " & strVALOR_ESPECIALIDAD & " AND DOCUMENTO=' " & strVALOR_DOCUMENTO & " ' ", cnn, adOpenDynamic, adLockBatchOptimistic
 

Si ambos son numericos, entonces:

Código vb:

rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD= " & strVALOR_ESPECIALIDAD & " AND DOCUMENTO= " & strVALOR_DOCUMENTO , cnn, adOpenDynamic, adLockBatchOptimistic
 

Si ambos son caracter, entonces:

Código vb:

rsConsulta.Open "SELECT * FROM LISTADEESPERA WHERE ESPECIALIDAD=' " & strVALOR_ESPECIALIDAD & " ' AND DOCUMENTO=' " & strVALOR_DOCUMENTO & " ' ", cnn, adOpenDynamic, adLockBatchOptimistic
 

Como le cambiaste el (AND) por ( & ) el SELECT no es valido, no trae datos y por eso siempre entra en el ELSE que contiene la instruccion del INSERT.

Cuales son los datos que contiene el Combo1.text y el Text1.text?

[jeaguiar25]

El combo1 es caracter y el text1 es númerico volvi a cambiar el (&) por el (AND) en el SELECT pero igual me sigue agregando duplicados. Sigo probando ya que estoy trancado, valoro mucho tu ayuda. Saludos

[lokoman]

Acabo de verificar tu proyecto, aquí está la rutina funcionando:

Código vb:

Private Sub Ingreso_a_Lista_Click()
    Dim strVALOR_ESPECIALIDAD As String
    Dim strVALOR_DOCUMENTO As String
    Dim rsConsulta As ADODB.Recordset
    Set rsConsulta = New ADODB.Recordset
 
    strVALOR_ESPECIALIDAD = DataCombo1.Text
    strVALOR_DOCUMENTO = Text1.Text
    
    If rst.EOF = False And rst.BOF = False Then
    rsConsulta.Open "SELECT * FROM ListadeEspera WHERE Especialidad = '" & strVALOR_ESPECIALIDAD & "' and Documento = " & strVALOR_DOCUMENTO, cnn, adOpenDynamic, adLockBatchOptimistic
       
        If rsConsulta.EOF = False Then
            MsgBox "No Se puede Ingresar Dos veces en la misma Lista de Espera a un mismo Usuario"
            rsConsulta.Close
            Set rsConsulta = Nothing
            Exit Sub
        Else
            cnn.Execute "INSERT INTO ListadeEspera (FechaIngreso,Documento,Especialidad,Medico,Nombre1,Nombre2,Apellido1,Apellido2,Carne,Vencimiento,Telefonos,Observaciones) Values('" & _
                        LabelFechaIngresoLE.Caption & "','" & Text1.Text & "','" & DataCombo1.Text & "','" & DataCombo2.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & " ','" & Text9.Text & " ')"
            MsgBox "El Usuario ha sido Agregado a la base de datos de manera exitosa!"
        End If
    End If
End Sub
 

Nos cuentas!!

[jeaguiar25]

De más Lokoman!!!! Fuiste, como siempre, de gran ayuda. No dudes que en algun momento vuelva a preguntar en el foro, pues siempre hay dudas cuando se intenta aprender. Por otra parte, que te parecio lo que estoy intentando hacer? Ya que al no poder ir a mi trabajo por licencia médica por una hernia de disco, estoy buscando la manera de hacer algo útil.
Nuevamente gracias!!!!!

[lokoman]

Un placer!
Mejórate, nos vemos!!