Jose Manuel Elizalde

Joss Ramirez respondió: ¿Ya lo conseguiste?

Sveinbjorn El Rojo respondió: Puedes comprobarlo con este código: Dim Tbl As AccessObject For Each Tbl In CurrentData.AllTables If Tbl.Name = "NombreTabla" Then MsgBox "la tabla NombreTabla existe" Exit For End If Next Tbl Sustituye NombreTabla por el nombre de la tabla que...

Sveinbjorn El Rojo respondió: Puedes probar con algo como esto: Dim db As Database Dim miSQL As String Dim qry As QueryDef Set db= CurrentDb miSQL = "SELECT....." 'Creas la consulta Set qry = db.CreateQueryDef("CTemp", miSQL) Abres la consulta DoCmd. OpenQuery "CTemp", acNormal,...

Abraham Valencia respondió: ¿Marca alguna línea el error? Hasta donde recuerdo ese error se da cuando lo parámetros de las sentencias SQL son incorrectos, verifica eso. Sugiero reactivar el "MsgBox" que tienes ahí para que te ayude a verificar o usar un "Debug.Print sql" para...

Dante Amor respondió: Pero esta función =contar.si(A1:A10,A1:A10) El resultado es 0 Puedes revisar la función que tienes en excel, El segundo parámetro, el criterio, no debe ser un rango, puede ser un valor numérico o texto o un valor que está en una sola celda, pero no...

Abraham Valencia respondió: Porque es un archivo *xlsx, usa "Guardar Como" y guardalo como archivo *.xlsm (libro habilitado para macros) y listo. Abraham Valencia

Abraham Valencia respondió: Quizá, ya que trabajarás sobre Excel, lo más práctico sea que desde ahí importes los datos de Access. Yo recomiendo usar ADO: Option Explicit Sub DatosdeAccess() Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sql As String Dim x As Long,...