santiagomf

Si estás usando Access 2013... la respuesta la tienes en la página de Microsoft: usa una versión anterior de Access. http://support.microsoft.com/kb/2755119/es Si lo que quieres es abrir la base de datos para recuperar la información, prueba a...

En el código de la página "resumen" pon esto: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer Dim aux As Variant If Target.Address <> "$A$1" Then Exit Sub ' No es la celda A1 If Target.Value = "" Then Exit Sub If...

Si intentas poner como no visible el objeto, la propiedad será para todo el informe y se verá igual en todos los registros. Yo intentaría jugar con el "origen del control", pondría algo así como: =iif(nuevos<2;<campo de la foto>;null)

¿Qué error te da? ¿No devuelve registros? ¿Qué datos tienes en cada tabla? En principio el SQL parece correcto... dependiendo de los datos y lo que quieras hacer, pero si dices que en 2007 no te funciona será porque en versiones anteriores sí iba....

Prueba con este código. Creo que te funcionará: Sub crearTxt() Dim i As Long Dim Nro1 As String Dim Nro2 As String Dim Nro3 As String Dim Nro4 As String Dim Nro5 As String Dim nf As Integer nf = FreeFile Open "c:\archivo2.txt" For Output As nf For i...

Por lo que veo tienes una columna con los mínimos de cada fila, supongo que para el formato condicional. También podrías usar esa columna para la suma con una función así: Function sumarSiMismoValor(ByRef rangoDatos As Range, ByRef rangoMinimos As...

Prueba con este código: Option Explicit Sub borrarCancelaciones() Dim i As Long Dim n As Long n = 0 For i = Cells.SpecialCells(xlCellTypeLastCell).Row To 7 Step -1 ' Desde la última a la línea 7 If InStr(UCase$(Cells(i, 8)), "CANCELACIÓN") > 0 Then...

Yo comprobaría si la variable "cantLista" tiene un valor mayor que 0. Tengo la impresión que no, que vale 0. El "close" debería estar en el bucle justo delante del "Next cont2", ya que si dentro del bucle abres el recordset también deberías cerrarlo...

Si en A1 tienes el importe (520) y en B1 el porcentaje (6%), la fórmula que tienes que poner para el importe final es: =redondear(A1*(1-b1);2)

Suponiendo ese formato con una longitud de 10 caracteres, yo crearía una función: function snOkFormato(byval txt as string) as boolean snOkFormato=false ' Hasta comprobar lo contrario if len(txt)<>10 then exit function ' Comprueba la longitud if...