ohmygood

Te envío una función que no es mía, es de J.Bengoechea que deberás añadirle unas líneas al código para que te calcule también los sábados. Ya verás que es sencillo Public Function SumaHábiles(FechaInicio As Date, Totaldías As Long) ' Suma días...

La función . TransferText(TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName, CodePage) Posiblemente sea por el parámetro TransferType que puede tener estos valores: AcImportDelim valor predeterminado AcImportFixed...

Entiendo que quieres automatizar el proceso pero no sé cuándo, es decir, al abrir la aplicación con access, o al entrar en la ficha en el formulario, etc. Supongamos que es al entrar en la ficha, tendrías que comparar si la fecha actual del sistema...

Lo que pides no es usual, normalmente será sólo un cliente como parámetro que en la consulta en modo diseño se pone en el apartado criterios entrecerrado con corchetes, también podrías anidar supongo mediante la conjunción O y otro parámetro para el...

Para este tipo de informes lo usual es crear un formulario antes del informe y poner las cajas de texto adecuadas para poner los datos que queremos como parámetros. Por ejemplo, creas un formulario pones una caja de texto supongamos que se llama...

No sé si he comprendido muy bien la duda. ¿Lo qué deseas realizar es tener una consulta access y que su resultado se guarde como un archivo de excel? Si es así lo que se puede hacer es abrir la consulta, en esto que se muestran los datos en pantalla...

Yo pondría en el evento form_current del formulario un código similar a este: if me.newrecord then If DMax("campo1", "tabla1") > DMax("campo1", "tabla2") Then me.campo1 = dmax("campo1","tabla1")+1 Else me.campo1 = DMax("campo1", "tabla2")+1 End If end if

Es parecido a lo que ya tienes, sería así: *="=[Formularios]![nombre del formulario]![nombre del subformulario][nombre del cuadro de texto]"

Con un código como este podrás hacerlo, el valor se toma de una caja de texto llamada texto1 Dim db As Database Dim rs As DAO.Recordset Dim rs2 As DAO.Recordset Dim mivalor As Integer Set db = CurrentDb Set rs = db.OpenRecordset("select * from tabla1...

En el menú Herramientas / Opciones luego en la pestaña Modificar / Buscar tienes que desmarcar la casilla que pone Consultas de acción