¿Ayuda?

Estoy desarrollando una aplicación de nomina y requiero insertar algunos valores en una tabla con datos de otra pero al intentar hacerlo me marca un error, mi código es el siguiente:
Private Sub insertar_ingresos()
Data7.Refresh
Data7.RecordSource = "Select * From Nivel_Sueldo where Nivel = '" & Nivel.Text & "'"
Data6.RecordSource = "Select * From Ingresos_Empleados"
Data6.Refresh
Data6.Recordset.AddNew
Data6.Recordset("IdEmpleados") = numero.Text
Data6.Recordset("Monto") = CDbl(Data7.Recordset("Sueldo_Base"))
Data6.Recordset("IdIngresos") = Data7.Recordset("idNivel_Sueldo")
Data6.Recordset("Concepto") = "Sueldo Base"
Data6.Recordset.Update
Data6.Recordset.AddNew
Data6.Recordset("IdEmpleados") = numero.Text
Data6.Recordset("Monto") = CDbl(Data7.Recordset("Apoyo_Familiar"))
Data6.Recordset("IdIngresos") = Data7.Recordset("idNivel_Sueldo")
Data6.Recordset("Concepto") = "Apoyo Familiar"
Data6.Recordset.Update
End Sub

1 Respuesta

Respuesta
1
Dime a donde te manda el error
Y que tipo de error es...
A ver si puedo ayudarte
Ya estuvo, ya lo conseguí solo cambie el = por like y así trabaja de maravilla quedo así
Data7.RecordSource = "Select * From Nivel_Sueldo where Nivel Like '*" & Nivelsueldo.Text & "*'"
De esta forma quedo bien, de todas formas gracias por tu apoyo y consejo sobre el with.
Saludos desde mexico
Ok mira el error salta en esta linea
Data6.Recordset("Monto") = CDbl(Data7.Recordset("Sueldo_Base")) y te agradesco tu observacion la tomare en cuenta, gracias
Si mira me manda un error 91 que la variable objet... etc.., cabe aclarar que tengo otro data5 con la misma base de datos pero no creo que ese sea el problema, así mismo pienso que podría ser por el lado del recordSource Nivel = '" & Nivel.Text & "'" o como vez tu ya que le eh intentado de varias formas y todas me saca el error, salvo cuando use el data5 que es la misma tabla pero en la sentencia sql elijo todo, y para este caso solo requiero lo que sea igual a un combo box que tengo (nivel)
Espero me ayudes un poco con esto, gracias, y saludos desde México.
Jorge M. Rito
Ok pero en que linea...
Ya que estamos te doy un consejito
Podes usar with data6 ... para no tener que escribir tanto... te hago un pequeño ejemplo
Data6.RecordSource = "Select * From Ingresos_Empleados"
Data6.Refresh
with data6.Recordset
.AddNew
!IdEmpleados = numero.Text
!Monto = CDbl Data7.Recordset!Sueldo_Base
!IdIngresos = Data7.Recordset!idNivel_Sueldo
!Concepto = "Sueldo Base"
.Update
.AddNew
!IdEmpleados = numero.Text
Data6.Recordset!Monto = CDbl(Data7.Recordset!Apoyo_Familiar)
!IdIngresos = Data7.Recordset!idNivel_Sueldo
!Concepto = "Apoyo Familiar"
.Update
end with
puf no quedo claro este ejemplo
pero podria a ser
with form1
.caption = "nombre del formulario"
.width = 1234
.heigth = 4321
end with
el with sirve para indicar que todos los puntos que van abajo son del objeto del with...
ademas podes usarlo con las propiedades encadenadas..
with data1.recordset
.refresh
.update
end with
Espero que te sirva esto... hasta que puedas responderme

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Extraer datos de celdas descontinuas de una hoja de excel.

Extraer datos de celdas descontinuas de una hoja de excel y enviarlos a otra hoja donde hay una tabla donde se van a ir agregando los datos por cada día en la parte de abajo. Ejemplo datos de: HOJA1 J11, H12, E18, O19,020, O21, O22, F23, J23...
1 respuesta

Agregue un tercer combobox de búsqueda y dar problema

Sigo aprendiendo a través de su ayuda. Resulta que sigo con mi data y en un formulario utilizo dos combobox para filtrar registros por Año y por Mes, gracias a la ayuda de Don Eduardo y Julián que me orientaron a la perfección funcionan a la pinta ya...
2 respuestas

¿Macro en excel que sombree las celdas con condiciones?

Macro en excel que sombree las celdas de la columna "G" que suman el valor de cada celda de la columna "D" si como condición la celda "E" dice "campeon"
1 respuesta

Problema al sumar varios textbox independientes a uno en Access

Mi problema se presenta en un formulario independiente en donde tengo varios textbox independientes enumerados del 1 al 5, donde les agrego registros numéricos de una consulta en listbox, cada vez que agrego un dato a estos textbox, necesito que en...
3 respuestas

Importación desde Access 2007 de un fichero Excel 2007 con 900.000 filas

Que me parece 'de locos'. La base del problema es que quiero importar desde Access un fichero Excel con unas 900,000 filas. Y a partir de ahí, me encuentro con que en mi PC 'de siempre' lo puedo hacer sin ningún tipo de problemas, pero cuando lo...
2 respuestas

Excel VBA Macro Acregar Símbolo "/" para convertir Fecha

Podrán sugerirme Algún código que inserte "/", en celda activa, para que excel lo tome como fecha. Ejemplo: Celda B3 Texto "1022024" Solución: Celda B3 Modificada: 01/02/2024
2 respuestas

Al seleccionar celda extraer sus dígitos automáticamente

Necesito dos favores, la idea es que al seleccionar una celda numérica de 4 dígitos del rango "af1;aj42" esta automáticamente extraiga sus cifras a la columna "a1, b1, c1, d1" como se muestra en la imagen Y lo segundo como puedo quitarle el msgbox a...
2 respuestas

Se puede agregar voz a Excel

Tengo una pantalla de vuelo de vuelo donde anotó despegues y arribos, Quiero que cada vez que se produzca un despegue y se agregue hora o aterrice alguno y se ponga la hora, excel diga o se escuche atención Aterrizaje o Atención despegue.
3 respuestas

En una lista para pedidos tengo varios formularios

En una lista para pedidos con varios formularios la vengo usando desde hace tiempo sin ningún problema pero hace días la abrí para hacer un pedido y al pisar en el cuadro donde apunta la flecha para que me abra un otro cuadro donde coloco ciertos...
2 respuestas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas