Saltar al contenido

estebinmusic

Miembros
  • Contador de contenido

    32
  • Unido

  • Última visita

  1. Hola Amigos del Foro Es mi deseo agradecer la oportunidad que dan en este foro de aprender de muchos de ustedes y a su vez aportar algo de los pocos conocimientos. En esta oportunidad tengo un inconveniente con la conexión Excel Access - He tratado de crear la macro de conexión pero solo me da errores. Donde está la situación creo es que la BD Access está en un equipo remoto. No he podido establecer la cadena de conexión bien... en fín he intentado con múltiples opciones y nada Este es mi codigo: ,Private Sub CmBtnEnviar_Click() Dim strSQL As String, _ CuadroTexto As Control 'me aseguro de que todos los cuadros de texto están rellenos 'For Each CuadroTexto In Me.Controls 'If Left(CuadroTexto.Name, 3) = "txt" Then 'If SiEsNulo(CuadroTexto, "") = "" Then ' MsgBox "El cuadro de texto " & CuadroTexto.Name & " está vacío", vbCritical + vbOKOnly, "ATENCION" 'Exit Sub 'End If 'End If 'Next ' construyo la select para envíar los datos a la base de datos strSQL = "INSERT INTO " & frmTask.txtTabla.Text strSQL = strSQL & "([idConsecutivo], " strSQL = strSQL & "[fecha], " strSQL = strSQL & "[ObjetoContractual], " strSQL = strSQL & "[ValorProgramadoaContratar], " strSQL = strSQL & "[identificadorPresupuestal], " strSQL = strSQL & "[NombreIdentificador], " strSQL = strSQL & "[NumeroContrato], " strSQL = strSQL & "[ObjetoContracto], " strSQL = strSQL & "[ValorContrato], " strSQL = strSQL & "[NombreContratista], " strSQL = strSQL & "[FechaSuscripcion], " strSQL = strSQL & "[TipoDocumento], " strSQL = strSQL & "[CertificadoDisponiblidad], " strSQL = strSQL & "[CertificadoRegistroP], " strSQL = strSQL & "[Producto], " strSQL = strSQL & "[unidadMedida], " strSQL = strSQL & "[CantidadP], " strSQL = strSQL & "[ValorUnitarioP], " strSQL = strSQL & "[TiempoP], " strSQL = strSQL & "[TotalP], " strSQL = strSQL & "[CantidadC], " strSQL = strSQL & "[ValorUnitarioC], " strSQL = strSQL & "[TiempoC], " strSQL = strSQL & "[TotalC], " strSQL = strSQL & "[CantidadE], " strSQL = strSQL & "[ValorUnitarioE], " strSQL = strSQL & "[TiempoE], " strSQL = strSQL & "[TotalE] );" strSQL = strSQL & " SELECT '" & frmTask.LblTraeConsecutivo & "', '" strSQL = strSQL & Format(frmTask.LblFecha, "mm/dd/yy") & "#" strSQL = strSQL & frmTask.LblObjetoContractual & "', '" strSQL = strSQL & frmTask.LblValorPContratar & "', '" strSQL = strSQL & frmTask.CmBxRubroPresupuestal & "', '" strSQL = strSQL & frmTask.TxBxNombreRubro & "', '" strSQL = strSQL & frmTask.LblNumeroContrato & "', '" strSQL = strSQL & frmTask.LblObjetoContratoFC & "', '" strSQL = strSQL & frmTask.LblValorContrato & "', '" strSQL = strSQL & frmTask.LblContratistaoProveedor & "', '" strSQL = strSQL & Format(frmTask.LblFechaSuscripcion, "mm/dd/yy") & "#" strSQL = strSQL & frmTask.LblTipoDocumento & "', '" strSQL = strSQL & frmTask.LblCDP & "', '" strSQL = strSQL & frmTask.LblCRP & "', '" strSQL = strSQL & frmTask.Productos1 & "', '" strSQL = strSQL & frmTask.UnidadMedida1 & "', '" strSQL = strSQL & frmTask.CantidadP1 & "', '" strSQL = strSQL & frmTask.ValorUnitarioP1 & "', '" strSQL = strSQL & frmTask.TiempoP1 & "', '" strSQL = strSQL & frmTask.TotalPCVT1 & "', '" strSQL = strSQL & frmTask.CantidadC1 & "', '" strSQL = strSQL & frmTask.ValorUnitarioC1 & "', '" strSQL = strSQL & frmTask.TiempoC1 & "', '" strSQL = strSQL & frmTask.TotalCCVT1 & "', '" strSQL = strSQL & frmTask.CantidadE1 & "', '" strSQL = strSQL & frmTask.ValorUnitarioE1 & "', '" strSQL = strSQL & frmTask.TiempoE1 & "', '" strSQL = strSQL & frmTask.TotalECVT1 & "', '" Dim direccion As Control direccion = "\\172.16.9.31\ArchivosICBF\PACCOR\EjecucionPACCO2012\General\BDPACCOE.mdb" ' ejecuto la consulta para insertar los datos en la tabla ConsultaAccionEnBD direccion, strSQL End Sub Como el archivo es muy grande me toco subirlo en un enlace externo espero que por esto mi tema no sea cerrado. Este es el link: http://sdrv.ms/Pv0Oqq Que puedo estar haciendo mal..? Agradezco sus orientaciones
  2. Que bueno que te haya servido Creo que se puede finalizar el Tema.
  3. Re: Búsqueda en BD para habilitar el Tercer Combobox Dependiente Hola Amigos.. Con la ayuda de los archivos de ayuda de este foro aportados por los expertos, he logrado terminar la macro. Agradezco a este foro la oportunidad de aprender. Subo mi archivo como solución a mi inconveniente con los tres combobox dependientes De nuevo mil gracias. Ultimo utilizado.rar
  4. Hola Por favor revisa si esto es lo que solicitaste... Competar Celda en UserForm.xls
  5. Buen Día Expertos De antemano agradezco la ayuda que nos brindan a todos. Actualmente estoy desarrollando un formulario con tres Combobox dependientes asi: El primero denota el nombre de una entidad (hoja1) El segundo que depende del primero denota las areas de esa entidad escogida (hoja1) El tercero que depende el segundo denota la dirección de ubicación de esa areas escogidas (hoja2) Todo está perfecto cuando escojo el primer y segundo combobox. Cuando voy al tercero, al tratar de hacer la misma rutina del segundo, me carga un dato que no corresponde. Esto debido a que las listas que manejo no estan en el mismo orden que lo pide el combo 2 Lo que necesito es que busque el dato de la dirección en la hoja2 y cargue la lista correspondiente.:stung: Adjunto mi archivo... agradezco su colboración [ATTACH]28997.vB[/ATTACH] Ultimo utilizado.xls
  6. estebinmusic

    Mostrar y ocultar columnas

    Hola a Todos Antes de subir la aplicación desarrollada, necesito de su ayuda... hay un error en ella que no he podido erradicar He tratado de mirar en foros de microsoft, pero no he encontrado mucho. Tal vez sea error en la programación... Me sale siempre un alertamiento de archivo reparado Característica quitada: Vista de /xl/worksheets/sheet2.xml parte El archivo como lo manejo ahora pesa 756 Kb... La única forma de que pudiera mostarlo sería subirlo a un server externo.. Sin embargo coloco aqui las líneas del código inicial que uso para cargar la hoja. Este es el codigo que coloqué en el Thisworkbook Private Sub Workbook_Open() On Error Resume Next Application.DisplayAlerts = False ChDir "\\172.16.9.30\ArchivosICBF\Dirección de Logística y Abastecimiento Estratégico\PLAN DE COMPRAS 2011\PACCO\PlanC2011\Regionales\SANTANDER" ActiveWorkbook.SaveAs Filename:="\\172.16.9.30\ArchivosICBF\Dirección de Logística y Abastecimiento Estratégico\PLAN DE COMPRAS 2011\PACCO\PlanC2011\Regionales\SANTANDER\SANTANDER.xlsm" Application.DisplayAlerts = True Application.Visible = True Application.DisplayFullScreen = True Application.ScreenUpdating = True 'Quitamos alertas Application.DisplayAlerts = False 'Damos Acceso Exclusivo If ActiveWorkbook.MultiUserEditing Then ActiveWorkbook.UnprotectSharing ActiveWorkbook.ExclusiveAccess End If ' Desproteje la Hoja ActiveSheet.Unprotect "Pacco2011" ActiveWindow.DisplayWorkbookTabs = False ActiveWindow.DisplayRuler = False ActiveWindow.DisplayGridlines = False Application.DisplayFormulaBar = False ActiveWindow.DisplayHeadings = False ActiveWindow.Zoom = 70 Rows("14:14").Select ActiveWindow.FreezePanes = True Call aherramientas_0ff Sheets("DATOS").Visible = xlSheetVisible Rows("14:200").Select Selection.EntireRow.Hidden = True Columns("Q:Z").Select Selection.EntireColumn.Hidden = True Sheets("DATOS").Select Range("A1").Select ActiveSheet.Protect "Pacco2011", AllowFiltering:=True ChDir "\\172.16.9.30\ArchivosICBF\Dirección de Logística y Abastecimiento Estratégico\PLAN DE COMPRAS 2011\PACCO\PlanC2011\Regionales\SANTANDER" ActiveWorkbook.SaveAs Filename:="\\172.16.9.30\ArchivosICBF\Dirección de Logística y Abastecimiento Estratégico\PLAN DE COMPRAS 2011\PACCO\PlanC2011\Regionales\SANTANDER\SANTANDER.xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, accessMode:=xlShared Application.Caption = "PLAN ANUAL DE COMPRAS Y CONTRATACION - PACCO 2011" 'Activamos alertas Application.DisplayAlerts = True MsgBox ("La Subdirección de Abastecimiento Estratégico le da la más cordial Bienvenida a la Fase II. Actualización y Reporte de Ejecución Plan Compras 2011... Para su Información, en este momento solo se encuentra habilitado el Módulo de Actualización al Plan Compras Inicial. Por favor de click en ACEPTAR e inmediatamente escoja una de las opciones indicadas en la barra... ¿Qué Necesita Hacer?, ubicada al lado superior izquierdo de la pantalla"), vbExclamation, "PACCO 2011" End Sub Por favor agradezco me ayuden a mirar donde puedo tener el error... --- Mensaje unido automáticamente --- he logrado subir al Skydrive el archivo... http://cid-e5dabe3d17872692.office.live.com/browse.aspx/Excel Agradezco su ayuda.
  7. estebinmusic

    Mostrar y ocultar columnas

    Re: ayuda con mostrar y ocultar columnas Que pena SonicTH Me sirvió mucho tu aporte... Quisiera que no cerrarán el tema para compartir la aplicación que desarrollé. Este fín de semana lo subo
  8. estebinmusic

    Mostrar y ocultar columnas

    Hola Amigos He mirado en todos los post refererentes antes de postear este nuevo... Tengo un pequeño inconveniente para cerrar esta macro... En una hoja excel tengo 2 Command Button Los dos sirven para mostrar u ocultar filas, dependiendo la instrucción. Mi problema radica en el commandButton2.... ya que la instrucción que necesito radica en que una vez el oculte parte de las filas, me muestren las que tengo ocultas una a una. (Cabe anotar que estas estan ocultas porque quiero que el usuario inserte información de fila en fila, y en ellas tengo una formulación específica) Cuando le doy click al commandButton2 solo me muestra una (1) de las filas que tengo oculta, desde la ("B106"). Yo quisiera que si oprimo otra vez el commanButton mostrara la siguiente fila que tengo ocultas hasta la fila ("B149"), Es decir hasta donde se acaba el rango. No lo he logrado. Este es el código que he utilizado... creo que el problema esta Negrita... Private Sub CommandButton1_Click() Sheets("DATOS").Select Rows("14:119").Select Selection.EntireRow.Hidden = False Rows("120:149").Select Selection.EntireRow.Hidden = True Range("B14").Select End Sub Private Sub CommandButton2_Click() Sheets("DATOS").Select Rows("14:119").Select Selection.EntireRow.Hidden = True If (ActiveCell.Offset(1, 0).EntireRow.Hidden = True) Then ActiveCell.Offset(106, 0).Select Selection.EntireRow.Hidden = False[/b] Else MsgBox ("No hay mas filas para programar") End If End Sub Tengo un problema en subir el archivo porque pesa 697 Kb para la demostración.. Pero esta noche trataré de subirlo a un servidor de descarga...
  9. Excelente Solución excelhoy y sergioacamposh... me contribuyeron a una parte del desarrollo . Ojalá quede este post abierto, hasta que termine el desarrollo y pueda contribuir en algo a este foro que me ha ayudado muchop.
  10. Hola Macreros y amigos de este foro Atentamente solicito su ayuda con este caso: Estoy desarrollando una macro que tiene 3 CheckBox Dependen de las condiciones del seguimiento del cual se quiere controlar. Si escogen el primer CheckBox la información pasa sin ningun cambio Si escogen el segundo pueden hacer cambios Si escogen el tercero La linea deberá ser eliminada del reporte. Ahora he logrado que funcione para la primera fila... Como le hago para que funcione para que cuando se coloque información en las filas siguientes tome el siguiente dato? Adjunto mi archivo... [ATTACH]22746.vB[/ATTACH] Agradezco su inmensa ayuda PLANTILLADEF-ABRIL15AE.rar
  11. estebinmusic

    [SOLUCIONADO] Programación combobox

    Re: Programación combobox Gracias RORO1981 Esto era loq ue necesitaba... definitivamente hay que aprender mucho..!!! Atodos los que nos ayudan muchas gracias..!!!!
  12. estebinmusic

    [SOLUCIONADO] Programación combobox

    Re: Programación combobox Yo puedo cargar la información de un listbox, teniendo en cuenta el criterio de escogencia de un combobox?
  13. estebinmusic

    [SOLUCIONADO] Programación combobox

    Re: Programación combobox Hola Tuve le comento que no me funcionó mucho Me toco cambiar a un listbox para que me funcionara.
  14. estebinmusic

    [SOLUCIONADO] Automatizar tabla

    Re: Automatizar tabla roro1981 Es exactamente lo que necesitaba.... y en pocas líneas. lo felicito... Se me ocurre que de pronto podríamos dar un aporte voluntario por tantas ayudas..!!!
  15. estebinmusic

    [SOLUCIONADO] Automatizar tabla

    Re: Automatizar tabla ioyama Agradezco tu aporte, pero quisiera introducir el tema en macro. He tratado de hacerlo con la grabadora de macros pero el codigo es demasiado extenso y no se como pudiera funcionar si tuviera algún día una contingencia de 700 contratos como el año pasado en diciembre
×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.