SoloCodigo

Salu2. me resulta curioso esto:

si la funcion es:
Private Sub Form_Unload(Cancel As Integer)

para que un Unload me? se supone que eso es por si quieres hacer algo antes de que cierre el form. o Bien cancelar el cierre.

Por lo demas no se que te puede estar pasando lo siento.
 

Salu2.
Uso el que viene con VB6 y anteriormente el que venia con VB5, quiero decirte que ese va bien. aunke es verdad que en algunos compilaciones da algunos problemillas, que normalmente se resuelven manualmente en el fichero que crea el empaquetador, SETUP.LST. Aunque esté en inglés tu aplicación, parte por decirle a todo que si, y ya iras viendo como solucionar los errores que te puedan ir surgiendo, o bien buscate un VB en Castellano y comprobarás que es muy fácil. .

 

Salu2.

   Pues no es el caso .

necesito ejecutar unos aplicaciones de sonido para que luego el porg de vb no de errores de ejecucion en ciertos casos.

Osea imaginate, que vas a funcionar con DB de access y quieres que el usuario tenga acceso a tu db a través de office. Pos tu aplicación debería instalar el office.

Gracias por tu interes.
 

Salu2.
VarString = Format(Var002, "0000.")
de esa forma pondrá 0002

VarString = Format(Var002, "#000.")
asi pondrá 002 si el valor es menor que 1000

A mas 0 mas números = valor si despues del punto añedes 0 pone tantos 0 como decimales, si añades '#' si tiene decimales los limita al número de '#', o pone 0 si no hay decimales.

Ejemplo de la ayuda de VB


Espero haberte podido ayudar.

Salu2.
No estoy seguro de lo que es control Adoc, soy un poco nulo con los términos.

   Primeramente te dire que me parece escesivo codigo para lo que necesitas.

Pareces querer conprobar una introducción de user con una tabla, y si no existe lo añades., si es eso, conprueba sin el recordset, no te hace falta. ábrelo con una select.

VarString="SELECT * FROM AdocClientes WHERE Celula=" & TuVar
set VarRecordSet= Base.openrecordset(VarString,DbOpendynaset);

Si te da eof no existe. y lo añades.

Te dire en segundo lugar que creo pienso que tu codigo hace lo que le dices que compruebe un registro y continue, normalmente tendrias que hacer un bucle con un WHILE NOT "final del recordset" por ejemplo.

Bueno espero haberme explicado.

Salu2.
Te agradezco enormente tu interes, mi correo es:

sagutxo@telefonica.net

No es necesario que te comente que lo que necesites y esté en mis manos lo des por hecho.

                                                                                            Juanillo.

   

Salu2.
P.d. de anterior mensaje.

   Se me ha olvidado decirte algo importante te recomiendo que introduzcas el valor de  .MouseCol y .MouseRow en variables globales por ejemplo

PRINCIPIO de Codigo del formulario

Option Explicit
Dim EditaLinea as long
Dim EditaCol as long

y luego en la funcion dobleclick()
EditaLinea = MsFleshGrid.MouseRow
EditaCol=MsFleshGrid.MouseCol

ya que tengo entendido que esas opciones si no se guardan en variables son muy inestables.

llevo años con estas opcines y funcionan muy bien, ademas aunque fueran muchos datos con los ordenadores que se tienen ahora ni lo iban a notar.

Ya siento este lapsus, se me paso.  

RESPECTO A LA RUEDITA DEL SCROLL
----------------------------------------------
Yo no hago nada con ello y funciona.
prueba a ponerle los drv del ratón que tengas.

Tengo la opción scrollbars del msfleshgrid en el 2, vertical, cuento las lineas que entran en el flesgrid y cuando veo que ha llegado le quito a uno de los campos de flesgrid 240 que es lo que ocupa la barra scroll, Seguro que hay otra manera, pero como lo hice hace tiempo y funciona pos así quedo, ADJUNTO MINIEJEMPLO.

Supongamos que entran 22 lineas en el flesgrid....
flesgrid=Tabla1

 

Salu2.

   Podríais alguno decirme si hay algun comando en VB que borre un fichero del disco duro.

Gracias.

 
P.D. me he pasado toda la tarde mirando la ayuda y no he encontrado ninguno que me funcione.

Salu2.

Gracias, ese documento ya lo cogí, pero o bien son diferentes versiones o no me entero. Debo de ser un poco espesito . Te dejo una imagen en un .doc a ver si entiendes el porque de mis preguntas. Si te aburres en un momento y te apetece echarle un vistazo te lo agradecere mucho. Supongo que con un innoscripts en castellano se me acabarian los problemas, pero no estopy seguro .

   

Salu2.

   ¿¿¿Hay alguna manera de ejecutar una aplicacion antes del setup.exe o forma de introducir una ejecución de aplicación en el setup.lst?.

Utilizo el Asistente para empaketado de VB6.

GRACIAS.
   

Salu2.
No te explicas muy bien que digamos pero si lo que quieres es buscar un reg en un tabla te recomiendo que el RecordSource sea un SELECT:

VarString="SELECT * From Tabla WHERE CampoTabla=VALOR que buscas
-----------------------------
VarString="SELECT * From Tabla WHERE CampoTabla=" & VarBusqueda

Espero que te sirva.

Quiero pensar que todo, y que es cuestion de aprender a hacerlo. Si no se puede ir en linea recta seguro que dando un rodeillo acaba siendo posible.

Salu2.

P.D. Solo es una modesta opinión.

Lo siento se me han acabado las ideas, todos los mios los hago como te he dicho y me funcionan, si veo algo nuevo te lo posteo.

Salu2.