Jump to content

marcosab

Members
  • Posts

    43
  • Joined

  • Last visited

About marcosab

  • Birthday 02/23/1984

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

marcosab's Achievements

  1. Buenas tardes. Lo más importante es un mensaje donde se indique que la base de datos no esta disponible. Espero alguno me pueda ayuda. Saludos.
  2. Hola a todos Requiero de su ayuda para completar el siguiente macro Private Sub UserForm_Initialize() Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset, Sql As String Dim Hoja As Object ComboBox1.ColumnCount = 4 ComboBox1.ColumnWidths = "50;40;100;150" Set Cnn = New ADODB.Connection Cnn.Open "Driver={SQL Server}; Server=10.15.50.50; Database=pruebas; Uid=sa;Pwd=123456" Set Rs = New ADODB.Recordset Sql = "SELECT Usuario, Contraseña, Hojas_Activas, Nombre, Unidad FROM Usuarios" Rs.Open Sql, Cnn, 3, 3, adCmdText If Not Rs.EOF = True Then ComboBox1.Column = Rs.GetRows Cnn.Close Lo que requiero es lo siguiente 1 limitar a 10 segundo el tiempo maximo para buscar si la base de datos esta disponible 2 Que mande un mensaje cuando la base datos no esta disponible o no se puede conectar con el servidor SQL Muchas gracias por las ayudas
  3. Buenos días Tengo que agradecer por toda la ayuda brindada en el pasado Tengo un proyecto de completar un archivo de Word con información de Excel para eso he tratado con el siguiente código: Sub A_crear_word() mi_carpeta = ActiveSheet.Range("A2") Set objWord = CreateObject("Word.Application") objWord.Visible = True objWord.Documents.Add Template:=mi_carpeta, NewTemplate:=False, DocumentType:=0 For I = 3 To 8 busqueda = ActiveSheet.Range("B" & I).Text remplazar = ActiveSheet.Range("A" & I).Text With objWord.Selection.Find .Text = busqueda .Replacement.Text = remplazar .Execute Replace:=2 End With Next I objWord.Activate End Sub Los archivos de Word y Excel los tengo en la carpeta "C:\Prueba" El código me funciona con las celdas que tienen poca información. Pero cuando hay mucho contenido en la celda me da un error ejemplo la celda "A9" del archivo adjunto. Espero que ustedes como expertos de Excel me puedan ayudar ya que tengo muchas hora en esto y no lo he logrado con nada. saludos Prueba Excel a Word.rar
  4. Hola. Les comento que he llevado varias horas intentando hacer que funcione. Sin embargo no logro avanzar. Mucho agradezco si alguno de ustedes me puede ayudar con la macro para cambiar contraseña. Saludos
  5. Hola grupo recurro a ustedes para la ayuda para completar un Macro Tengo este macro que me valida desde Excel si un dato ya existe en la base de datos de ACCESS. Set Rs = New ADODB.Recordset Sql = "SELECT Count(*) FROM a_revisiones WHERE [cedula]='" & .Range("J2") & "'" Rs.Open Sql, Cnn, 3, 3, adCmdText Datos = Rs.GetRows If Datos(0, 0) > 0 Then MsgBox "El registro ya existe en la base de datos!!!", vbCritical, "Sistema" Else Nombre de base de datos en Access "a_revisiones", campos "cedula, nombre y estado" Me funciona bien cuando solo solo requiero ingresar un registro igual en cedula, cuando debo registrar más datos me sale el mensaje "El registro ya existe en la base de datos!!!". Pero requiero que me permita ingresar nuevos registros cuando el estado de la cedula esta en "archivo". Espero de la ayuda de usted, saludos
  6. Hola grupo Quiero felicitar a todos son de gran ayuda. Tengo un archivo con macros y varias hojas de cálculo. Necesito que cuando abro la hoja 1 ejecute el macro 1 y cuando abro la hoja 2 ejecute el macro 2. Esto es posible? Saludos
  7. hola gracias por su tiempo y respuesta. Revisando el archivo tiene contraseña para ingresar a revisar el macro, por esta razon no puedo observar el código. saludos
  8. Buenos días Muchas gracias por todas las ayudas brindas en el mi proyecto. Acudo a ustedes para que me ayuden con un nuevo formulario para que el cada usuario pueda cambiar la contraseña sin necesidad de hacerlo desde la base de datos. https://mega.nz/file/cVpgDIaK#92-eFaVsW8t493NeL7GWT5YLy6dyn641Gl72fbe3FqU Saludos.
×
×
  • Create New...

Important Information

Privacy Policy