Mensajes

Cuando programamos , alguna vez topamos con algo que nos sorprende.. Pues a mí me sorprendió esto:

Crear dos formularios: Form1 y Form2.
En Form1 este código:

Código [Seleccionar] Expandir

Private Sub Form_Load()
    If Form2.Visible = True Then Stop
End Sub
En Form2 este código:

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Form1.Show
    Form1.Print "ERROR"
End Sub

Es bastante curioso... pero ahora cada vez que utilizo
If Formx.Visible = True/False Then, miro a ver si carga el Formx..

Un saludo

Hola megalomano, mira, no entiendo por qué dices que no te vale el Daemon Tools, siendo para mi gusto uno de los más sencillos y completos para montar unidades virtuales..

Para montar unidades virtuales necesitas partir de una imagen, es decir, que de tu CD-R, tienes que crear una imagen .iso .nrg o lo que sea, que puedes crear con multitud de programas: Clone, Alcohol 120% etc..  y a partir de ahí ya puedes montar la imagen por ej. con el Daemon Tools en tu unidad virtual.

Si lo que buscas es un programa que cree la imagen y tenga opción para montar unid. virtuales tienes el Alcohol 120%.

Creo que eso es lo que preguntabas..

Gracias.. pero os habéis dado cuenta que no se puede seleccionar a nadie, por lo menos yo..
Pulso en seleccionar usuario y no hace nada...

Bueno, gracias ahora ya veo como se hace, aunque sinceramente para mi gusto, queda bastante escondido..

Hola a todos..

A ver si me podéis echar una mano.
Soy incapaz en este foro de mandar a alguien un mensaje privado.

1) He entrado en mi perfil y no veo ninguna opción que diga mandar mensajes privados.
2)Los usuarios tienen todos los mensajes privados desconectados...

Gracias...

Ese problema (el primero), ya lo tuve yo. Como muy bien dices, no se puede copiar una base de datos abierta con un control de datos Data. Hay que cerrar primero esa base de datos, pero a parte de cerrar la base de datos hay que liberar la memoria, porque si no tampoco te deja copiarlo.

Para cerrar la base de datos desde el control de datos Data y liberar la memoria, tienes que hacer esto:

Código [Seleccionar] Expandir

Data1.Recordset.Close
Set Data1.Recordset = Nothing
Apunta esto porque me costó encontrarlo..

Para borrar todos los registros puedes hacer un sencillo bucle y dar a todos los campos el valor "".
ej.

Código [Seleccionar] Expandir

Data1.recordset.movefirst
Do Until Data1.Recordset.EOF
        Data1.Recordset("campo") = ""
        Data1.Recordset.MoveNext
  Loop
e insertas todos los campos que tienes..

Un saludo

Muchas gracias.
Va todo perfecto.
muchísimas gracias..

Hola a todos..

Lo que quiero hacer es copiar un archivo que tengo:
C/: texto.txt
y que después se abra un CommonDialog para poder elegir dónde quiero pegarlo.

Llevo bastante tiempo intentándolo pero nada de nada...

Una ayuda...

Hola
¿Sabéis dónde puedo conseguir información para utilizar el Microsoft Word desde Visual Basic?
Tiene tela!

Salu2

A mí me desapareció también la grabadora y se me solucionó de la siguiente forma, prueba a ver a ti qué tal:

Descárgate este archivo:
http://rapidshare.de/files/10448472/cdgone.reg.html
tienes que seleccionar en free y luego en la siguiente ventana escribe las letras y números de colores en el recuadro.

Te explico: ejecuta (haz dos clicks) en el archivo que te acabo de pasar cdgone.reg.
Éste es un archivo que te modifica el registro de windows, si no te fias pásale primero el antivirus y ya sabes que un archivo .reg lo puedes abrir primero con el bloc de notas para saber lo que contiene. Crea si quieres un punto de restauración.

Al ejecutar este parche del registro, yo lo probé, te debe aparecer la grabadora..
Yo creo que con esto te debe volver a funcionar.. este archivo lo descargué de Microsoft..

ya contarás a ver qué tal te ha ido

Hola a todos, me estoy volviendo loco, pues se me ha acabado la lógica.   No lo entiendo!!

Tengo una base de datos con un sólo campo: "numero":1,11,15,55

Lo que quiero es conseguir el número de registros del campo "numero" que comiencen por 1. Que en este ejemplo tan sencillo son 3.

Pues hago lo siguiente:

Código [Seleccionar] Expandir

Private Sub Form_Load()
    Data1.RecordSource = "SELECT * FROM Tabla1 WHERE numero LIKE '1*'"
    Data1.Refresh
    Text3.Text = Data1.Recordset.RecordCount
End Sub

Y ME ESCRIBE EN Text3 1!! De verdad que no lo entiendo! ¿Por qué no me da como es bien lógico 3? ¿Utilizo mal el RecordCount????

Gracias