Jump to content

Benito Bartolomé

Members
  • Content Count

    70
  • Joined

  • Last visited

About Benito Bartolomé

  • Rank
    Advanced Member

Profile information

  • Gender
    Hombre
  • Localización:
    Nigrán
  • Interests
    Naturaleza, deportes y aprender a programar.

Converted

  • Campos
    ;
  • Mi versión de Excel:
    2

Recent Profile Visitors

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

  1. Disculpa, ya he pillado el segundo punto. De ahí a que el código ponga " Agregamos o modificamos items". Vale tanto para un roto como un descosido 😀🙋‍♂️
  2. Hola Antoni, si lo he encontrado y punto. Dichoso "." pero vale su peso en oro. Una pregunta, ¿el código que he añadido para el botón "Agregar" está correcto así?. Lo he probado y en principio funciona, ¿no se si es el código es muy ortodoxo o no? Bo día e cuidado con Hortensia que volveu despois de 37 anos. 👍
  3. Hola a todos; -Me habían pasado una macro que adjunto en la que se puede editar desde el listbox. Lo que no se modificar es lo siguiente: Abro el formulario, selecciono desde el listbox el registro a seleccionar y este lo pasa a los textBox. Cuando presiono el botón editar se edita el registro pero me lo pone de primero en la hoja. Yo lo que quiero es que quede en la hoja en la misma fila y no me lo mueva de posición. Adjunto un video explicando el tema: Video: EditarListBox Un cordial saludo para todos. EditarListBox.xlsm
  4. Creo que agora mesmo na provincia de Pontevedra somos todos republicanos 😀🙋‍♂️
  5. Bo día Antoni; Gracias por la pincelada Estuve probando con el "Len(TextBox1)" y si lo hacía pero no me saltaba al campo siguiente salvo que pulsara "Intro". Me faltó el "IF" y los galones claro está 😀😀 Por certo en Nigrán xa estamos de farolillo encarnado outra vez. Un abrazo e protexete.👍😷🌧️
  6. Buenas tardes o días a todos; -Como puedo configurar cuatro textBox para que sólo me deje introducir 4 dígitos en y al acabar de anotar el último dígito en la caja pase al siguiente textBox y así sucesivamente hasta que se complete el último y una vez completado este me habilite un botón. Adjunto macro y video explicativo: video: salto entre textBox Saludos y gracias de antemano. Saltos.xlsm
  7. Hola Nacho, gracias por su respuesta. Tenías razón. Ahora va. Agradezco su respuesta. 👍
  8. Buenos días a todos; No me deja adjuntar la macro y por eso os pongo un enlace de un video. La macro consta de dos formularios con el siguiente código para el ComandButton1 del Form1. Private Sub CommandButton1_Click() UserForm2.Show UserForm2.CommandButton2.Visible = True End Sub Al ComadButton2 en el Form2 tiene la propiedad visible como false. Como se ve en el video cuando ejecuto la macro la primera vez no me muestra el botón "Mostrar" en cambio si la vuelvo a ejecutar si lo hace. ¿No se porqué? Siento no poder subir la macro para mayor entendimiento. Un cor
  9. Bo día Antoni; Gracias como siempre por tus aportes. Era sabedor de la propiedad .RowSource pero no sabía como se encajaba cuando los datos eran provenientes de una consulta Sql Access. He cambiado dos cositas a ver que te parece: En el evento Initialize del form he puesto: ListBox1.ColumnHeads = False No quedaba muy bonito al abrir el formulario. Y la segunda cosa que he cambiado es el nombre de la hoja "Consulta" por "Cobros" ya que tenía la hoja creada para dichos datos. Ahh, también le he puesto este código cuando cierro el formulario: Private Sub
  10. Hola y buen día a todos; He visto publicado en esta web el siguiente articulo: +10 columnas by Antoni Sería posible implementarlo a mi macro. Explico: En un formulario llamado "frm_Cobros" tengo un botón "btn_Filtro" el cual ejecuta una consulta sql a Access y devuelve el resultado a mi "listBox1". El problema que se me plantea es que no puedo mostrar mas de diez columnas. Como comenté al principio he visto en el enlace anteriormente mencionado una forma de conseguirlo pero el listBox se alimenta de datos del propio Excel y no de una consulta. Si no es v
  11. Se me olvidó puntuar. Abrígate Un abrazo 👍 Se me olvidó puntuar. Abrígate que hoy rasca. Un abrazo 👍
  12. Bo día Antoni; Gracias por el 🎁 de Reyes. He visto y probado la macro y es un poco similar a la había logrado recomponer yo pero mejorada. Lo intente pero faltaba el toque del Chef 😀 Ahora quedó perfecto. No sé que frío hace por Santiago pero me acabo de levantar y por la ventana de mi casa se ven los campos con una Xiada de carallo ☃️ Un abrazo.
  13. Hola de nuevo; -Adjunto video. -He conseguido hacer lo que proponía. -La subo porque seguramente tendrá errores o se puede mejorar. Sí es así por favor comentar. -Debe haber algún problema técnico que no me deja subir la macro. Detallo a continuación el código que he puesto para el evento Change del TextBox50. Private Sub TextBox50_Change(): On Error Resume Next Dim Texto As String Call Conectar Texto = TextBox50.Value Sql = "SELECT * FROM tb_cliente WHERE " Sql = Sql & "nºcliente like '" & Texto & "'" Set rs = cnn.Execute(Sql) With rs frm_
  14. Buenos días y feliz año a todos. Tengo la siguiente duda que no sé si es posible configurar o no. Me gustaría conseguir que al poner un dato en el "TextBox50" del formulario "frm_Clientes" se haga una consulta a la base de datos Access "BBDD" y que el dato obtenido de la consulta se traslade a los "TextBox", (rellenando todos los campos que tengan datos en la consulta). Tengo algo parecido pero en el "TextBox60" pero este es un comboBox y me gustaría que fuese sobre un "TextBox" Adjunto macro de ejemplo. Un cordial saludo. MacroSql.zip
  15. 😅😅 perdón Halpox, no Antoni sabe quien es. Es un gran felino que tiene. 😉😊
×
×
  • Create New...

Important Information

Privacy Policy