Sveinbjorn El Rojo

Cuando pones: Set dbsVer = DBEngine.Workspaces(0).OpenDatabase("\\server\d\users\basedoc\basedatos\Ver.accdb") Estás asignando a la variable dbsVer la base de datos Ver. Accdb Y luego cuando haces: Set dbsVer = CurrentDb No la pones como base activa,...

Yo te hago otra propuesta, que creo que te resolverá el problema perfectamente: 1º/ Crea una consulta en vista diseño y añade únicamente los campos Usuario y FechaAR... 2º/ En la primera columna en blanco, en la primera fila (campo), escribe esta...

Tu código no te funciona (si cuando haces clic en el combinado ya tiene un valor seleccionado) porque al pasar la variable entre comillas, la estás convirtiendo en una cadena de texto y buscará eliminar una tabla que se llama vartabla, que no existe....

A mayores de lo que te dice Icue, para que al navegar por los registros se vayan activando/desactivando en función de la casilla, el código también lo tienes que poner en el evento " al activar registro " del formulario.

Si no recuerdo mal, y no le indicas una ruta al TransferSpreadsheet, te preguntará donde quiees exportar. Por tanto, elimina de ru código toda referencia que haces a "miexcel" Otra opción es que uses el objeto Filedialog para buscar el archivo. En...

Sirve mi respuesta a tu otra pregunta (Código VBA para formulario de búsqueda): DoCmd.RunSQL "INSERT INTO BAJASEDE SELECT Sedes.IdSede, Sede.Sede, Sede.Provincia, Material.Ordenador, Material.Impresora FROM Sedes JOIN Material ON...

Usas mas la cláusula UNION (sirve para combinar los resultados de dos o más SELECTs), y tu lo que quieres es combinar campos de dos tablas, para lo que has de usar un JOIN, algo así: Me.LTData.RowSource = "SELECT Sedes.IdSede, Sedes.Sede,...

Si tu cuadro de texto se llama txtFecha, lo puedes hacer así para añadir un día: Me.txtFecha=DateAdd("d",1,Me.txtFecha) y para restarlo (en otro botón): Me.txtFecha=DateAdd("d",-1,Me.txtFecha) También lo puedes hacer directamente:...

Si quieres validar que no se repitan dos campos, tanto en el código que usas (en la función DLookUp) como en la propuesta de Icue (en la función DCount) tienes que añadir un nuevo criterio en el tercer argumento, por ejemplo, si el segundo campo a...

Cambia esta línea: miExcel = CurrentProject.Path & "\MiLista.xlsx" por esta otra: miExcel = CurrentProject.Path & "\" & Me.nombreCuadroCombinado & ".xlsx" Donde tendrás que cambiar lo que está en negrita por el nombre de tu cuadro combinado. Un saludo.