Visual Basic - Como hago para No duplicar los registro

Life is soft - evento anual de software empresarial
   
Vista:

Como hago para No duplicar los registro

Publicado por kleiver kleiver.salcedo@gmail.com (1 intervención) el 11/06/2016 18:33:00
Buenas

Me gustaria que me ayudaran con problema tengo un registro de usuarios, quiero que cuando este registrando me diga si ya el usuario existe,

este es el codigo que tengo ahorita

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
With rsusuarios
'Buscar Usuario en BD para ver si esta registrado
     .Find "usuario='" & Trim(usua) & "'"
    If .EOF Or .BOF Then
        MsgBox " El Usuario " & usua & " Ya se encuentra Registro", vbInformation, "Aviso"
 
 
        Text1.Text = ""
        Text2.Text = ""
 
        Else
        'Guarda Informacion en la BD
        .Requery
        .AddNew
        !usuario = Text1.Text
        !clave = Text2.Text
        !nombre = Text3.Text
        !apellido = Text4.Text
        !direccion = Text5.Text
        !telefono = Text6.Text
        !fecha = DTPicker1.Value
        .Update
        .Requery
        limpiar
            End If
 
End With
 
 
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Como hago para No duplicar los registro

Publicado por Juan Gilberto (277 intervenciones) el 12/06/2016 19:12:00
Prueba lo siguiente
---Antes de un Find tienes que posicionarte al principio del recordset
---Si despues del Find llegaste al EOF entonces significa que no existe el registro
---Siguiente codigo es el tuyo modificado
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'
    With rsusuarios
        If .EOF = False OR .BOF = False Then .MoveFirst
        .Find "usuario='" & Trim(usua) & "'"
        If .EOF = False Then
            MsgBox " El Usuario " & usua & " Ya se encuentra Registro", vbInformation, "Aviso"
            Text1.Text = ""
            Text2.Text = ""
        Else
            .AddNew
                !usuario = Text1.Text
                !clave = Text2.Text
                !nombre = Text3.Text
                !apellido = Text4.Text
                !direccion = Text5.Text
                !telefono = Text6.Text
                !fecha = DTPicker1.Value
            .Update
            limpiar
        End If
    End With
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de JoaoM

Como hago para No duplicar los registro

Publicado por JoaoM (72 intervenciones) el 14/06/2016 00:01:45
Buena respuesta sobre la pregunta.
Voy tratar de adaptarla a una que tengo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar