Benito Bartolomé

Hola a todos; Creo haber resuelto el misterio, o por lo menos ahora hace lo que pretendía. He cambiado todo el código por uno más sencillito. He eliminado también el frame ya que no es necesario al haber puesto en el evento change del texBox1: Me.TextBox1.ZOrder Con lo cual ya no queda oculto el textBox. A ver que os parece: Private Sub TextBox1_Change() If Len(Me.TextBox1) < 25 Then Me.TextBox1.MultiLine = False Me.TextBox1.AutoSize = True Me.TextBox1.ZOrder Else Me.TextBox1.MultiLine = True Me.TextBox1.ZOrder Exit Sub End If End Sub Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox1.Height = 20 End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) '<------He añadido esto Me.TextBox1.MultiLine = False Me.TextBox1.AutoSize = False Me.TextBox1.Width = 96 End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then 'tecla Enter TextBox2.SetFocus Me.TextBox1.Height = 20 Exit Sub End If End Sub Private Sub UserForm_Initialize() Me.TextBox1.MultiLine = False End Sub He añadido el evento Exit del al textBox1 y también he cambiado el evento Change. Saludos y buen finde.

Buenos días a todos;-Os voy a insertar un enlace de mi requerimiento donde os explico un poco lo que quiero conseguir si es posible.Enlace video: Video textBox En la macro tengo un textbox con la propiedad multiline en true.Al ir escribiendo una vez que llegue a un número de caracteres hace como un salto de línea y empieza e escribir debajo para eso lo que hago es ir aumentando el alto del textbox y Frame.Mi idea es que una vez que yo haga clic en el textbox este aumente el tamaño del alto si no coge en la línea hasta hacerlo coger todo y al hacer doble clic que recupere su tamaño inicial.La simulación la he hecho solo aumentando el alto y no sé si se puede también con el largo.Espero que entre lo escrito aquí y el video se pueda entender la idea.Saludos y buen día a todos. MAutoajustar.xlsm

Hola David; He cambiado de evento tal y como comentas y ahora funciona correctamente. Imagino que has podido abrir el archivo cosa que me alegra ya que al parecer había problemas a la hora de abrirlo. Un abrazo y muy gradecido. saludos también a Gerson y Antoni por su ayuda.

Hola Enigma; Muchas gracias por respuesta. Perfecto, discúlpame no haber respondido antes. Un saludo y muy agradecido 👍

Hola de nuevo Antoni; -Ya para rematar adjunto la macro con del frm hecho desde 0 y una copia de seguridad. Espero que te sirva y ahora si que ya no le doy mas vueltas. Sí no funciona tiro la toalla. Un saludo y gracias por tú paciencia. MExcel.xlsm C.Seguridad20210518_13-50-04.xlsm

Buenos días Antoni; Disculpa si llegan dos mensajes porqué creo que lo envié y ahora no aparece. En cuanto al tema, si puedes abrir la macro del zip.2 puedes importar a este el frm del zip. 3 que está bien y una vez importado le agregas el código que te envié en un bloc de notas en el post anterior. Si no lo tienes te lo puedo pasar en formato. txt Cita: En la MExcel solo tiene cargado un único formulario que es frm_Cobros y no tiene nada de código está en blanco, el código te lo he puesto en un bloc de notas. En cuanto a una copia puedo disponer pero igual pasa lo mismo ya que no sabemos desde cuando viene el problema. SI puedes componerlo así bien y sino no te rompas más la cabeza ya he abusado mucho de ti. Te lo agradezco mucho Antoni, un abrazo. Me olvidaba, el frm_Cobros del tres tiene la misma estructura, los botones y textbox están nombrados igual.

Buenos días Antoni; Te adjunto tres archivos: 1.-En el primero exporto el frm_Cobros y a continuación lo elimino y guardo la macro sin él. En el zip está la macro y el archivo frm_Cobros corrupto que he exportado. 2.-En el segundo zip lo que he hecho es exportar todos los frms y módulos y guardar la macro limpia. Contiene todos los frms y módulos excepto el frm_Cobros. 3.-El tercer zip contiene una macro nueva con un frm_Cobros nuevo creado desde cero, es decir no he hecho copia y pega desde el corrupto. Primero cree los frames y desde ellos he ido añadiendo labels y textbox. Dentro del frame si que he hecho copia y pega. Solo contiene este frm dos procedimientos que son para mostrar u ocultar otro fame. Espero poder haberte ayudado así y cruzo los dedos para que por fin puedas abrirlo y ver el fallo que comentaba en el video. Saludos y buen día. Opción1.zip Opción2.zip Opción3.zip

Gracias Gerson, muy bueno su ejemplo. Menos bueno mi frm que está corrupto. Voy a seguir los pasos que me ha dado Antoni y a ver si definitivamente conseguimos algo. Un abrazo y gracias por su ayuda. 👍

Hola Antoni, corrígeme si me equivoco, tengo que eliminar el frm_Cobros y después hablas de exportar ¿? Por lo que entiendo es que lo elimino y subo la macro sin el frm. Es así (?). Mañana la subo a ver sí entendí bien cualquier cosa me dices. Un abrazo Antoni y disculpar tanto rollo.

Buen día Antoni; No voy a ocuparte mas tiempo. Este es el último intento y sí no te va lo dejamos. Adjunto archivo Zip y en el tienes la macro MExcel y la base de datos MAccess creados de nuevo. En la MExcel solo tiene cargado un único formulario que es frm_Cobros y no tiene nada de código está en blanco, el código te lo he puesto en un bloc de notas. Y por último en este mismo zip tienes los módulos y el resto de formularios que no he cargado a la macro por si acaso. Espero que ahora no te salga ningún error. A mi en ninguno de los dos me muestra ningún error. Creo que ya te he comentado que el office es el 2019 de 32 bits. Inclusive ayer lo actualice. Saludos y buen día. Ahh y gracias por intentarlo. MEvento(3).zip

Hola Antoni, pues no se lo que falla, lo he abierto en otro pc con office 32bits y si problema. Lo único que te envié el frm sin código y el código en un Bloc de notas. No se me ocurre otra cosa. Si quieres me avisas y mañana vuelvo a subir. Gracias por la molestia. Un abrazo.

Hola Antoni; Te adjunto el archivo con el frm_Cobros hecho de nuevo. Espero que ahora puedas ejecutarlo. Saludos. MEvento(2).zip

Ok, ya te paso eso después. Gracias

Buen día Gersón; Primero agradecerte la ayuda y segundo he probado como comentas y no va. Te dejo código por si ves algo raro. Código evento frm_cobros: Private Sub Texto_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean): On Error Resume Next Dim Respuesta As String Dim vcliente As Long Set Formulario = Me Conectar Sql = "SELECT * FROM tb_cliente WHERE nºcliente=" & Texto rs.Open Sql, cnn, 1, 1 If rs.RecordCount > 0 Then frm_Cobros.TextBox50 = rs("nºcliente") frm_Cobros.TextBox51 = rs("nombre") frm_Cobros.TextBox64 = rs("fotoCliente") 'Añadir imagen cargarImagen Else Respuesta = MsgBox("El cliente es incorrecto, ¿Desea dar de alta este cliente?", vbYesNo, "Registrar:") If Respuesta = vbYes Then Cancel = True ' Texto.SetFocus vcliente = Me.Texto.Value frm_Clientes.Texto.Text = vcliente frm_Clientes.Show ' TextBox2.SetFocus End If If Respuesta = vbNo Then Cancel = True Texto.SetFocus End If End If End Sub y código que he puesto en el frm_Clientes btn_Cuenta: Private Sub btn_Cuenta_Click(): On Error Resume Next Formulario.Texto = vcliente Formulario.TextBox2.SetFocus 'frm_Cobros.TextBox2.SetFocus '<--He probado también así Unload Me End Sub Corrígeme si me estoy equivocando. Un abrazo.

Buenos días a todos; -Necesito de vuestra ayuda. Para mejor comprensión adjunto enlace de un video y comentario. Saludos y gracias de antemano Adjunto también la macro. MEvento.zip