Visual Basic - editar...

hola tengo en mi programa un listview en donde pincho sobre un item y le doy Enter (del teclado)
y los datos me los muestra en sus respectivos text...pero me surgio un problema...
ejemplo:
ingreso 2 datos...con codigo, pres y med.
el primer dato me lo edita bien...pero al tratar de editar el segundo dato me muestra solo el codigo y el resto son los datos del primer registro... y no se q hacer espero me puedan ayudar porfavor...
les dejo mi codigo
Saludos y muchas gracias por su ayuda
Private Sub ListView1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text1.Text = ListView1.SelectedItem
Set baseTB = OpenDatabase(App.Path & "ase de datosd1.mdb")
Set regTB = baseTB.OpenRecordset("SELECT * FROM farmacos WHERE Codigo =" & Text1.Text, dbOpenDynaset)
If regTB.RecordCount = 0 Then
MsgBox "no existe"
Commandgrabar.Enabled = True
Text1.SetFocus
Else
Commandeliminar.Enabled = True
Commandactualizar.Enabled = True
Text2.Text = regTB!fecha
Text3.Text = regTB!guia
Text4.Text = regTB!proveedor
Text5.Text = regTB!cantidad
Text6.Text = regTB!devolucion
Text7.Text = regTB!presentacion
Text8.Text = regTB!medicamento
Text9.Text = regTB!farmacia
Text10.Text = regTB!trapi
Text11.Text = regTB!vivanco
Text12.Text = regTB!crucero
Text13.Text = regTB!cayurruca
Text14.Text = regTB!mantilhue
Text15.Text = regTB!futahuente
Text16.Text = regTB!carimallin
Text17.Text = regTB!sector1
Text18.Text = regTB!sector2
Text19.Text = regTB!sector3
Text20.Text = regTB!procedimiento
Text21.Text = regTB!clinicasdentales1
Text22.Text = regTB!clinicasdentales2
Text23.Text = regTB!clinicasdentales3
Text24.Text = regTB!clinicasdentales4
Text25.Text = regTB!ira
Text26.Text = regTB!era
Text27.Text = regTB!salamotora
Text28.Text = regTB!prestamos
Text29.Text = regTB!saldo
End If
End If
End Sub

Pues para mí está claro, no existe ningún registro para la línea en cuestión, y como no hay un procedimiento para borrar los datos, siguen apareciendo los anteriores, excepto en text1 que obtiene el valor de listview1.

2 consejos:

Acostumbrate a poner nombres descriptivos a los controles, te facilitará la tarea de programar.

Cuando asignes un valor a un objeto (baseTB, regTB) que además no es local sino global, al finalizar debes liberar el objeto set baseTB = nothing, siempre que quieras programar bien.

ok
pero q tengo q hacer para arreglarlo???
es q la verdad yo estoy recien comenzando
agradeceria su ayuda

Saludos

Ok, entiendo que no has comprendido nada, si no hay registros pues no los hay, si queremos que en esa situación los textbox estén vacíos con asignar una cadena vacía a cada uno de los textbox suficiente. Si el problema es que deberían existir registros con valores, habrá que revisar la instrucción SQL.

Supongo que en ambos casos sabras como hacerlo.

ok muchas gracias por todo