Sveinbjorn El Rojo

Puedes ver si el proveedor existe usando, por ejemplo, la función DCount(): Private Sub RUT_BeforeUpdate(Cancel As Integer) If DCount("*", "NombreTabla", "RUT='" & Me.RUT& "'") > 0 Then MsgBox "El Proveedor ya está registrado",vbInformation,"AVISO"...

Solución fácil: crea una consulta de selección sobre tu tabla, sin el campo calculado, y usa esa consulta para exportar/importar los datos. Solución más elaborada: usa un recordset ADO para seleccionar los campos que quieras y luego usas también ADO...

En vez de usar directamente el campo fecha/hora en la consulta, usa un campo calculado con esta expresión: Format(NombreCampo;"dd/mm/aaaa")

Simplemente no puedes. Application. FollowHyperlink abre un archivo con el programa que tengas predeterminado, en tu caso, al ser una web te lo abrirá con el Explorer, Firefox, Chrome o el que tengas.

Con el mensaje de error no se ve el código que tienes, pero te comento: 1º/ Si, como creo, BuscaArchivo es una función que te abre el explorador para que selecciones un archivo y luego lo uses, no le puedes asignar un valor directamente: una función...

Esto te debería funcionar: For i = 1 To ListBox.ListCount - 1 'necesitamos saber el Item de la columna (0) Debug.Print ListBox.ItemData(i) Next i

Yo conozco ésta que explica Neckkito y sé que funciona: http://neckkito.xyz/nck/index.php/ejemplos/18-codigo/164-y-tres-de-mail

DSum() es una función que trabaja exactamente igual Que DLookup, o DCount (que usas una lineas más arriba en el mismo código): tienes que indicarle un campo, una tabla y opcionalmente una condición para limitar la suma, y tú solo has puesto un campo....

Te falta una barra para separar la ruta del nombre del archivo : appExcel.Application.Workbooks.SaveAs FileName:=CurrentProject.Path & "\archivo.xlsx"

Con: CurrentDb. Execute "DELETE * FROM NombreTabla" borras todos los registros de la tabla NombreTabla Si quieres borrar los datos de todas las tablas (menos las de sistema, obviamente), puedes hacerlo con: Dim tbl As TableDef For Each tbl In...