Visual Basic - Solo para expertos, ( busquedas)

Life is soft - evento anual de software empresarial
 
Vista:

Solo para expertos, ( busquedas)

Publicado por Fabian de Pipinas (14 intervenciones) el 19/06/2007 18:52:53
hola: Aqui le mando un codigo completo de como ingresar, modificar, borrar y buscar, solo que en la busqueda no me funciona, quizas no supe explicar bien mi problema la primera vez que pedi ayuda, bueno mi problema es que en la parte de busqueda no lo puedo hacer andar por mas que pase horas haciendolo, ya estoy re-mal por que yo no puedo solucionarlo, les pido a los expertos que me ayuden, sin mas muchas gracias.

Private Sub Command1_Click(Index As Integer)
Rem Para Agregar uso
Rem Data1.Recordset.AddNew
Rem Para Modificar uso
Rem Data1.Recordset.Edit
Rem Para Cancelar uso
Rem Data1.Recordset.CancelUpdate
Rem Para Ok uso
Rem Data1.Recordset.Update
Rem Nota 1: Update se usa, solo si antes hubo Edit o Addnew
Rem Nota 2: CancelUpdate se usa, solo si antes hubo Edit o Addnew

Rem Agregar
If Index = 2 Then
Text1.Enabled = True
Text2.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True

Data1.Recordset.AddNew
Rem Cancelo todos los botones
For x = 0 To 10
Command1(x).Enabled = False
Next x
Rem Habilito solo los botones a los que debo poder acceder
Command1(10).Enabled = True 'Ok
Command1(1).Enabled = True 'Cancel
End If

Rem modificar
If Index = 0 Then
Text1.Enabled = True
Text2.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True

Data1.Recordset.Edit
Rem Cancelo todos los botones
For x = 0 To 10
Command1(x).Enabled = False
Next x
Rem Habilito solo los botones a los que debo poder acceder
Command1(10).Enabled = True 'Ok
Command1(1).Enabled = True 'Cancel
End If

Rem Cancelar
If Index = 1 Then
Text1.Enabled = False
Text2.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False

Data1.Recordset.CancelUpdate
Rem Habilito todos los botones
For x = 0 To 10
Command1(x).Enabled = True
Next x
Rem Cancelo solo los botones a los que no debo poder acceder
Command1(10).Enabled = False 'Ok
Command1(1).Enabled = False 'Cancel
End If

Rem Fin
If Index = 4 Then
End
End If

Rem Primero
If Index = 9 Then
Data1.Recordset.MoveFirst
End If

Rem Ultimo
If Index = 8 Then
Data1.Recordset.MoveLast
End If

Rem Avanzar
If Index = 7 Then
Rem Avanzo
Data1.Recordset.MoveNext
Rem pregunto si estoy al final y emito un sonido
If Data1.Recordset.EOF Then
Beep
Data1.Recordset.MoveLast
End If
End If

Rem Retroceder
If Index = 5 Then
Rem si no estoy al principio retrocedo
Data1.Recordset.MovePrevious
Rem pregunto si estoy en el comienzo y emito un sonido
If Data1.Recordset.BOF Then
Beep
Data1.Recordset.MoveFirst
End If
End If

Rem Buscar
If Index = 6 Then
Data1.RecordsetType = 0
Data1.Refresh
Data1.Recordset.Index = "Nombre" 'Fue definido en la base de datos
Rem varMarcador = Data1.Recordset.Bookmark ' Almaceno la posicion actual
b$ = InputBox("Indique el Nombre de Cliente", "Buscar")
'Data1.Recordset.Seek "=", b$ 'Lo anule porque me da un error 524
' Si no encuentra el dato en la base y no se que es
Data1.Recordset.MoveFirst 'Me posiciono en el primer registro
Encontrado = False
While (Not Data1.Recordset.EOF) And (Encontrado = False)
If UCase(Text1.Text) = UCase(Trim(b$)) Then
'If UCase( Data1.Recordset!Nombre) = UCase(Trim(b$)) Then
Encontrado = True
Else
Rem Data1.Recordset.Bookmark = varMarcador
Data1.Recordset.MoveNext
End If
Wend
If Encontrado = True Then
MsgBox "Registro Existente"
Encontrado = False
Else
MsgBox "Registro Inexistente"
End If
End If


Rem Borrar
If Index = 3 Then
Data1.Recordset.Delete
End If

Rem OK
If Index = 10 Then
Rem deshabilito todos los text
Text1.Enabled = False
Text2.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False

Rem Creo que actualiza el registro
Data1.Recordset.Update
Rem Habilito todos los botones
For x = 0 To 10
Command1(x).Enabled = True
Next x
Rem Cancelo solo los botones a los que no debo poder acceder
Command1(10).Enabled = False 'Ok
Command1(1).Enabled = False 'Cancel
End If
End Sub

Private Sub Form_Load()
Rem Cancelo los botones a los que no debo poder acceder
Command1(10).Enabled = False 'Ok
Command1(1).Enabled = False 'Cancel
' Ajusto al ancho del Form1
IngreBusModCli.Width = 9300
' Ajusto el largo del Form1
IngreBusModCli.Height = 6300
End Sub



FABIAN..................
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

RE:ya habian hallado tu error

Publicado por Fabian de Pipinas (14 intervenciones) el 19/06/2007 19:19:22
He modificado
If UCase(Text1.Text) = UCase(Trim(b$)) Then

por

if ucase(nombre)=ucase(trim(B$)) then

y aun tengo el error

me podes decir como lo harias vos.
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

eso no es para expertos

Publicado por Yo (29 intervenciones) el 19/06/2007 22:35:02
por qué tienes esta linea ignorada:
'If UCase( Data1.Recordset!Nombre) = UCase(Trim(b$)) Then
?
si se supone que ahi compararia el contenido de la variable B$ con el campo nombre de tu recordset, y creo que eso es lo que te han dicho
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

No me funciono

Publicado por Fabian de Pipinas (14 intervenciones) el 20/06/2007 23:15:57
Bueno agradezco toda la ayuda que me han prestado pero no pude solucionar, mi problema.
Ya que paso de mi conocimiento este proyecto. Yo recien empiezo pero bueno, gracias, si alguien quiere mi proyecto se lo envio, haci me desasna un poco, nuevamente Gracias a todos lo que me ayudaron. Un Abrazo a todos
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

Envía el proyecto

Publicado por Ayudante (62 intervenciones) el 21/06/2007 00:16:30
Pues, si quieres, puedes enviármelo para revisarlo.
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