Mas que a la forma de escribir modismos o redacción de frases,me refiero a las faltas de ortografía (sin contar la omisión de tildes):

e estado
no e encontrado
quiero que lo agan

Por mucho...

Yo mejor haría un concurso de ortografía y redacción, pues me da vergüenza ajena leer mensajes como este.

Y aquí va mi pregunta

¿Es incompatible la programación con la gramática?

Y cual es el problema?

ese código tiene que funcionar sin problemas siempre y cuando tengas una referencia a ADO

Los nombres de los campos Sí se pueden poner con espacios incluso con acentos,y los corchetes son, precisamente para que reconozca el nombre del campo que contiene espacios o cualquier otro carácter...

Hola, otra forma es con la función DateAdd:


Text2 = DateAdd("n", 10, Text1)


Saludos

Hola, una pregunta:

¿Cómo conectas la BD, con un control Data o por código?

Saludos

Hola, con la función Environ. Prueba lo siguiente:



Private Sub Command1_Click()
MsgBox Environ("ProgramFiles")
End Sub


Saludos

Hola Nano, suele ocurrir ( lo de cruzarse, a mi ya me ocurrió mas de una vez).
A tu pregunta: No puedo darte una razón pero he observado que "*" funciona con DAO y "%" con ADO (según la versión) no...

Prueba poniendo la consulta así:


"SELECT * from tabla WHEREcampoLIKE'%" & Text1 & "%'"


Suponemos que el valor a buscar está en un TextBox.

Saludos

Hola, si de lo que se trata es de saber el número de elementos de una matriz, existe la función Ubound que devuelve ese dato:

MsgBox "la matriz tiene " & UBound(MiMatriz) & " elementos"

Saludos

Hola Dancor.

Con un control MSHFlexGrid ( oMSFlexGrid, funcionará igual):
Colocas en cualquier parte del Form dos controles PictureBox (Picture1 y Picture2) con la propiedad Visible a False y en...

En vez de ponerlo en el LOAD, ponlo en el evento Click del FileListBox



Private Sub FileList_Click()
List1.AddItem DirList.Path & " \" & FileList.FileName
End Sub


y cada vez que...

Sólo tienes que poner en el evento Timer (con interval = 1000, un segundo), la siguiente instrucción:


List1.ListIndex = List1.ListCount - 1


y cada segundo seleccionará el último de la...

juanfosaiz, ¿Leiste la respuesta anterior?

¿No funcionó, quizá?

Saludos

No, no creo que en un PictureBox se puedan meter los registros de una tabla. Segurante , por alguna razón que desconozco, se ha perdido el control MSFlexGrid y cuando esto ocurre, VB lo reemplaza con...

Hola,

¿Un control DATA?, mas bien parece un control MSFlexGrid. Si la propiedad ColWidth funciona, también debería hacerlo la propiedad Rows.

De todas formas, intenta lo que te indiqué antes y...

Hola

Prueba con este código (marca la referencia "Microsoft Scripting Runtime")



Dim FSO As New FileSystemObject
Dim Flr As Folder
Set Flr = FSO.GetFolder("RutaOrigen")
Flr.Copy...

Hola,

¿Qué control es el que dá error? Porque la propiedad Rows es común a varios controles de VB. "una pestañita" es un SSTab?

De todos formas, si antes no te pasaba, prueba eliminando el...

Con una conexión ADO:



Dim cn As ADODB.Connection
Set cn = New ADODB.Connection

cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
App.Path & "\MiDB.mdb;Jet OLEDB:Database...

Hola, coloca un control Timer en el formulario con la propiedad Interval p.e. a 500 (medio segundo) y pones éste código:



Private Sub Timer1_Timer()
Label1.Visible = IIf(Label1.Visible = True,...

Ya has probado si esto funciona?

Combo2.AddItem "=>"
Combo2.AddItem "=<"

y si el campo a seleccionar es de tipo Number?

No hombre! no me refería a que copiaras todo el proyecto sino sólo cómo declaras (y abres) las variables Databse y Recordset.

Y en qué línea dá el error, ¿en todas las que abres el recordset, o...

Hola, para que podamos ayudarte deberías poner el código que utilizas para abrir la BD y cómo declaras las variables.

Saludos

Hola, prueba con este procedimiento



Private Sub EliminarDuplicados(Lista As ListBox)
Dim i As Integer
' para que no haga el efecto de desplazamiento
Lista.Visible = False
Do While i <...

Tampoco es necesario que crees un módulo, lo que te puso Nano lo puedes poner en el Form de inicio y funcionará igual

Saludos