cuando busco datos pasa esto:

[jose58]

Buenos dias como esta.

veran actualmente diseño un programita para llevar control de asistencias, pero sucede que cuando extraigo datos por medio de un combobox me pasa que por ejemplo:

al selecionar un nombre me extrae los datos y los muestra en unos text.text pero al selecionar otro nombre dejando los datos del nombre anterior se montan encima de los otros, y esto no me puede pasar porque el usuario si coloca un nombre que no es, y va a colocar otra que es la correcta va a suceder ese error

el codigo que utilice fue:

Set con = CreateObject("ADODB.Connection")
con.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & "C:\Documents and Settings\eparra01\Escritorio\asistencia\asis.mdb")

busca = Combo1.Text

SQL = "SELECT * FROM ANALISTA WHERE APELLIDOYNOMBRE LIKE '" & busca & "'"
Set RS = con.Execute(SQL)
Do While Not RS.EOF
Text1.Text = Text1.Text & RS("P00")
Text2.Text = Text2.Text & RS("CEDULA")
Text3.Text = Text3.Text & RS("CARGO")
Text4.Text = Text4.Text & RS("UNIDAD")
RS.MoveNext
Loop


atento a los comentarios.

[tsunamijavip]

Añade text1.text = ""
para limpiarlos y que no se te añadan (no se si es eso lo que preguntas realmente)

Quedaria un cosa asi:

Código:

Do While Not RS.EOF
Text1.Text = "" 
Text1.Text = Text1.Text & RS("P00")
Text2.Text = ""
Text2.Text = Text2.Text & RS("CEDULA")
Text3.Text = ""
Text3.Text = Text3.Text & RS("CARGO")
Text4.Text = ""
Text4.Text = Text4.Text & RS("UNIDAD")
RS.MoveNext
Loop

[jose58]

Iniciado por tsunamijavip

Añade text1.text = ""
para limpiarlos y que no se te añadan (no se si es eso lo que preguntas realmente)

Quedaria un cosa asi:

Código:

Do While Not RS.EOF
Text1.Text = "" 
Text1.Text = Text1.Text & RS("P00")
Text2.Text = ""
Text2.Text = Text2.Text & RS("CEDULA")
Text3.Text = ""
Text3.Text = Text3.Text & RS("CARGO")
Text4.Text = ""
Text4.Text = Text4.Text & RS("UNIDAD")
RS.MoveNext
Loop

Gracias hermano si funciono que cabeza la mia.

lo pense pero lo hice al reves