aja72

A primera vista lo que está mal es la disposición de las comillas simples, debería ser así: rstExistencias.FindFirst "Máquina='" & cboMaquinaM1.Text & "'"

El problema que me comentas tiene toda la pinta de estar relacionado con los permisos NT. Ten en cuenta que cuando te conectas a la página web normalmente se hace como usuario anónimo y que los permisos de este usuario están muy restringidos por...

Creo que el problema está en el RecordCount, que no siempre indica la cantidad de registros devueltos por la consulta. Mi consejo es que siempre que accedas a Recordset utilices código de este tipo: I = 0 While Not rstExistencias.EOF...

Efectivamente el error está en la sintaxis, deberías escribir lo siguiente: rstExistencias.FindFirst "Máquina=" & cboMaquinaM1.Text Si el campo es alfanumérico entonces deberías poner: rstExistencias.FindFirst "Máquina='" & cboMaquinaM1.Text & "'" Si...

Lo que parece estar mal es que introduces FORM1. TEXT1.TEXT en la cadena de texto, en vez de anexar su valor. La cadena SQL deberías construirla así: Dim lStr As String lStr = "Select * From TABLA Where DNI='" & FORM1.TEXT1.TEXT & "'" Observa además...

Haz lo siguiente: - Dar formato a Sección detalle. - Marcar 'Formato de Columnas múltiples'. Aparece una nueva pestaña 'Organización' - En la pestaña 'Organización' especifica el ancho de cada columna y marca la opción 'Hacia abajo y luego a lo...

Prueba lo siguiente: Label1.Caption = Format (numero,"0.00")

El problema es que has puesto las declaraciones en mitad del código y esto no es correcto. Debes poner las declaraciones: Justo al principio del código del formulario.

El CommonDialog no sirve para abrir ficheros, sirve para seleccionarlos. El fichero seleccionado lo obtienes en la propiedad FileName después de hacer ShowOpen. Para abrir el fichero como si hicieras doble click con el explorador puedes añadir el...

Te pongo un trozo de código de ejemplo: Dim xl As Excel.Application Dim w As Worksheet Set xl = CreateObject("Excel.Application") xl.Visible = False xl.Application.Workbooks.Open App.Path & "\informe.xls" Set w = xl.Worksheets.item("Hoja1")...