Error 1004, error definido por la aplicacion o el objeto

[jorgedx]

Hola amigos, estoy tratando de implementar este codigo pero en este ciclo, especificamente en la iteracion 26 me da un error

Error 1004, error definido por la aplicación o el objeto

El texto que se pasa cuando da el errro es "Lugar Examen Médico"

y el codigo del ciclo es :

Código:

For i = 0 To rst.Fields.Count - 1
                Sheets(Hoja).Range(Chr(i + 65) & f + 1).Value = rst.Fields(i).Name
 Next

Agradecere su respuesta o algun comentario...

[mrocf]

En la iteración 25 tendrás:
Chr(i + 65) = Chr(25 + 65) = Chr(90) = "Z"

¿Estás de acuerdo?

Pero en la iteración 26 tendrás:
Chr(i + 65) = Chr(26 + 65) = Chr(91) = "["

Como advertirás: ¡ni modo que ese código te funcionara alguna vez!...

La opción es modifcar las cosas así:
Sheets(Hoja).Cells(f + 1, i + 1).Value = rst.Fields(i).Name

Saludos, Cacho.

[jorgedx]

Grande Cacho,

funciona, pero no se porque si me explicaras el codigo porfavor, me ayudaria con la otra instruccion que me da error ...

Código vb:

Sheets(Hoja).Range(Chr(c + 65) & f + 1).Value = rst.Fields(c)
 

[jorgedx]

Bueno Cacho, estaba cantado lo que habia que hacer

Código vb:

Sheets(Hoja).Cells(f + 1, c + 1).Value = rst.Fields(c)
 

Ahora el codigo para hacer consultas a una bd access desde excel

Código vb:

Sub consultar_AlHacerClic()
   Call Ejecutar("Select * From Maestro", "Hoja2")
   'Call Ejecutar("Select * From Maestro", "Hoja2")
End Sub
 
 
Sub Ejecutar(Sql As String, Hoja As String)
 
Dim cn As Object
 
' crea un objeto Connection
Set cn = CreateObject("ADODB.Connection")
 
' IMPORTANTE: Indicar la cadena de conexión a usar
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
                            "Source=D:\Documents & Settings\wasmadr\" & _
                            "Escritorio\practica 2011\bd1.mdb;Persist Security Info=False"
        
    ' verifica que los parámetros no estén vacios
    If Sql <> vbNullString And Hoja <> vbNullString Then
                        
        ' variable para al rec de ado
        Dim rst As Object
                
        ' abre la conexión a la base de datos
        cn.Open
            
            ' crea un nuevo objeto recordset
            Set rst = CreateObject("ADODB.Recordset")
            
            ' Ejecuta el sql para llenar el recordset
            rst.Open Sql, cn, 1, 3
            ' variables para los indices de las filas y columnas
            c = 0
            f = 0
                
            ' recorre las columnas, añade el nombre del campo al encabezado
            For i = 0 To rst.Fields.Count - 1
                
                'Sheets(Hoja).Range(Chr(i + 65) & f + 1).Value = rst.Fields(i).Name
                 Sheets(Hoja).Range(Chr(c + 65) & f + 1).Value = rst.Fields(c)
                 
                 Sheets(Hoja).Cells(f + 1, i + 1).Value = rst.Fields(i).Name
           
           Next
 
            f = f + 1
                              
            ' recorre todo el recordset hasta el final
            Do While Not rst.EOF
                
                ' recorre los campos en el registro actual del recordset para recuperar el dato
                For i = 0 To rst.Fields.Count - 1
                    ' añade el valor a la celda
                    'Sheets(Hoja).Range(Chr(c + 65) & f + 1).Value = rst.Fields(c)
                    Sheets(Hoja).Cells(f + 1, c + 1).Value = rst.Fields(c)
                    c = c + 1
                Next
                
                ' resetea el indice de las columnas
                c = 0
                ' Referencia al registro actual (incrementa )
                f = f + 1
                ' Siguiente registro
                rst.MoveNext
          Loop
            ' cierra y descarga las referencias
            On Error Resume Next
            rst.Close
            cn.Close
            Set cn = Nothing
            Set rst = Nothing
        End If
End Sub
 

[mrocf]

Tienes diversas formas de referenciar la celda "D1". Algunas de ellas:

Range("D1")

Range("D" & "1")

Range(Chr(68) & "1")
En ASCii el caracter 68 es, precisamente, la letra D. Así como la "Z" es el caracter 90.

Cells(1, "D")
Fila 1, Columna D

Cells(1, 4)
Fila 1, Columna 4

i = 1 : Cells(i, "D")

i = 4 : Cells(1, i)

Como te lo mencioné en mi entrada anterior, el caracter 91 no es "AA" (como hubieses deseado), sino el caracter "[" (corchete de apertura).

Lógicamente, la celda "[1" no existe y por ello te indicó el error.

Saludos, Cacho.

[jorgedx]

Gracias Cacho, tema solucionado :D

[tintoblanco1]

Hola, me sorprende como resolviste el problema que te plantearon
Quisiera preguntarte acerca del mismo error
la verdad le he dado todas las vuelats posibles y no entiendo. Estoy tan confundido que aunque tuviera la respuesta en la nariz no la hallaría.
Setrata de esto, tengo dos combobox uno dependiente del otro (municipio depende de departamento), el error me aparece cuando ejecuto el boton agregar y el depurador me señala en amarillo en la siguiente linea
Cells(1, columna).Select



Private Sub cmbdepartamentoe_Change()
Application.ScreenUpdating = False


'Llenamos el combobox cmbmunicipioe al recibir el foco,
'pero antes lo limpiamos
cmbmunicipioe.Clear
'seleccionamos la hoja5
Hoja6.Select
'miramos lo que hay seleccionado en el combobox1
'Listindex + 1 nos devuelve la columna del departamento
'porque el listindex empieza siempre por cero
columna = cmbdepartamentoe.ListIndex + 1
'seleccionamos la celda que proceda,
'a partir de la segunda fila
Cells(1, columna).Select
'vamos a llenar dinámicamente el combobox
'dependiendo del país elegido
Do While Not IsEmpty(ActiveCell)
'Añadimos los nombres de las hojas al combobox
cmbmunicipioe.AddItem ActiveCell
'bajamos una fila
ActiveCell.Offset(1, 0).Select
Loop

End Sub

Lo curioso es que en el mismo formulario tengo otros combobox similares y no me ponen problema, si me ayudas te estaré muy agradecido, un saludo especial desde Colombia.

[tintoblanco1]

Hola, me sorprende como resolviste el problema que te plantearon
Quisiera preguntarte acerca del mismo error
la verdad le he dado todas las vuelats posibles y no entiendo. Estoy tan confundido que aunque tuviera la respuesta en la nariz no la hallaría.
Setrata de esto, tengo dos combobox uno dependiente del otro (municipio depende de departamento), el error me aparece cuando ejecuto el boton agregar y el depurador me señala en amarillo en la siguiente linea
Cells(1, columna).Select



Private Sub cmbdepartamentoe_Change()
Application.ScreenUpdating = False


'Llenamos el combobox cmbmunicipioe al recibir el foco,
'pero antes lo limpiamos
cmbmunicipioe.Clear
'seleccionamos la hoja5
Hoja6.Select
'miramos lo que hay seleccionado en el combobox1
'Listindex + 1 nos devuelve la columna del departamento
'porque el listindex empieza siempre por cero
columna = cmbdepartamentoe.ListIndex + 1
'seleccionamos la celda que proceda,
'a partir de la segunda fila
Cells(1, columna).Select
'vamos a llenar dinámicamente el combobox
'dependiendo del país elegido
Do While Not IsEmpty(ActiveCell)
'Añadimos los nombres de las hojas al combobox
cmbmunicipioe.AddItem ActiveCell
'bajamos una fila
ActiveCell.Offset(1, 0).Select
Loop

End Sub

Lo curioso es que en el mismo formulario tengo otros combobox similares y no me ponen problema, si me ayudas te estaré muy agradecido, un saludo especial desde Colombia.