Jump to content

Cómo insertar una fecha desde un objeto (Calendario1) en cualquier cuadro de texto dejando los otros vacíos.


Recommended Posts

Buongiorno a tutti, il mio nome è Maurizio e il mio problema è questo:
In una maschera di accesso, ho inserito 6 caselle di testo
classificate come (1a opzione / seconda opzione), ecc. Si tratta di un (Calendario1)

Ora, come puoi vedere nel mio file di test, se faccio clic con il mouse su una data nel mio "calendario", inserisci la data nel primo (casella di testo dichiarata da me) e finora va tutto bene.

Quindi, la mia domanda è questa:

Ma se ho sempre voluto inserire una data dal mio (Calendar1) e inserirla in qualsiasi (casella di testo) di uno di questi sei; Lasciando gli altri
(vuoto) Cosa devo scrivere come codice vba?

Non vedo
l'ora di vostro aiuto in questo ogni volta che può essere fatto con l'accesso.
Grazie !!!!!!
Saluti da A.Maurizio

##############################################################
Buongiorno a tutti. Il mio nome è
Maurizio e il mio problema è questo: In una maschera di accesso ho inserito 6 caselle di testo classificate come (1a opzione / 2a opzione) ecc ...!
Si tratta di un (Calendario1)

Ora, come puoi vedere nel mio file di test, se clicco con il mouse su qualsiasi data del mio "calendario" inserisce la data sul primo (casella di testo dichiarata da me) e finora tutto è ok.

Quindi la mia domanda è questa:

Ma se ho sempre voluto inserire una data a partire dal mio (Calendar1) e inserirla in qualsiasi (casella di testo) di uno di questi sei; Lasciando gli
altri (vuoto) Cosa devo scrivere come codice vba

Attendo il
vostro aiuto su questo A condizione che possa essere fatto con l'accesso.
Grazie !!!!!!
Saluti da A.Maurizio

Scielta_Calendario2.accdb

Link to post
Share on other sites

Hola,

Te paso un formulario modelo con calendario mensual  permanente. es el que yo uso en mis trabajos.

Verás que se puede interactuar con el calendario. y te he colocado un apartado para elegir fechas del mes aleatoriamente.

Ahora remodelalo a lo que necesites.

Cualquier cosa pregunta 😉

 

Edited by ikanni
error
Link to post
Share on other sites

Ciao ikanni
Grazie per il vostro intervento.
Bello, ma si
avvicina molto a un mio progetto creato in Excel, ma anche se ho intenzione di continuare a ringraziarti perché, come sempre, sei formidabile.
Ma non è quello che stavo cercando di fare.
Non importa da queste parti, ma va bene!
Grazie e buon fine settimana

#####################################

Ciao ikanni
Grazie per l'intervento.
Bello, ma si avvicina molto a un mio progetto creato in Excel,
Ma anche se continuerò a ringraziarvi perché come sempre siete formidabili.
Ma non è quello che stavo cercando di fare.
Perché qui non importa, ma va bene!
Grazie e buon fine settimana

Link to post
Share on other sites

Hola ikanni
Es cierto que lo pensé toda la noche siguiendo el ejemplo de mi antiguo libro de Visual Basic 6.0

Y mi ojo se posó en un pequeño objeto usado que es: (ToogleButton)
ya que es uno de los pocos objetos que inicialmente tiene el estado activo (= Falso) que normalmente sirve para explotar dos funciones a pesar de tener solo una tecla disponible.

Por lo tanto, encendí la bombilla en mi mente y hice lo mismo tanto en un formulario de acceso como en un formulario de Excel
Yo tengo la misma cosa.

Pero también gracias a tu apoyo
Y este es el resultado final.

Si no tiene un Calendar1 No importa, puede aprovechar un (TextBox) y no cambiaría.

Solo tiene que hacer doble clic en cualquier texto; Esto como para (Excel) ya que no tiene la propiedad (Click)
Mientras que si usa Access
También puede hacer un solo clic para ver el resultado final y listo.

Gracias de nuevo. Todos les deseo un buen fin de semana. Todo el personal de (AyudaExcel) y hasta pronto.
Hola de A.Naurizio

---------------------------------------------------------------

Hi Ikanni
It is true that I thought about it all night Taking a cue from my old Visual Basic 6.0 book

And my eye fell on a little used object which is: (ToogleButton)
as it is one of the few Objects that initially has the active state (= False) which normally serves to exploit two functions despite having only one key available.

Therefore I turned on the light bulb in my mind and doing the same thing in both an Access and an Excel Form
I got the same thing.

But also thanks to your support
And this is the final result.

If you don't have a Calendar1 It doesn't matter, you can take advantage of a (TextBox) and it wouldn't change.

You just have to double click on any text; This As For (Excel) As It Doesn't Have The Property (Click)
While if you use Access
You can also just make a single click to see the final result and you're done.

Thank you again. Everyone wishes you a good weekend to you - All the staff of (AyudaExcel) and see you soon
Hello From A.Naurizio

Nuovo Microsoft Office Access 2007 Database.accdb

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • He conseguido algo con este código pero me faltaría la segunda opción: -Que pueda enviar los que seleccione con el ratón. Adjunto código a ver si esta medianamente bien: Private Sub btn_Txt_Click(): On Error Resume Next Dim ruta As String, I As Integer, existe As Boolean, coleccion_archivos As New Collection, archivo As String ruta = ActiveWorkbook.path archivo = Dir(ruta & "\*.*") Do Until archivo = "" coleccion_archivos.Add archivo archivo = Dir() Loop For I = coleccion_archivos.Count To 1 Step -1 If coleccion_archivos(I) = "tb_Cobros.txt" Then existe = True End If Next I If existe = True Then Dim z As Integer z = MsgBox("Ya existe el archivo de texto.¿Deseas eliminardo?", vbYesNo) If z = vbYes Then Kill ActiveWorkbook.path & "\tb_Cobros.txt" existe = False Else Open ActiveWorkbook.path & "\tb_Cobros.txt" For Append As #1 End If End If If existe = False Then Open ActiveWorkbook.path & "\tb_Cobros.txt" For Output As #1 MsgBox "El archivo txt fue creado" End If Dim Sep As String Dim x Sep = ";" Print #1, "Fecha: " & Date For x = 0 To frm_Cobros.ListBox1.ListCount - 1 TextBox0 = ListBox1.List(x, 0) TextBox50 = ListBox1.List(x, 1) TextBox51 = ListBox1.List(x, 2) TextBox4 = Format(ListBox1.List(x, 3), "dd/mm/yyyy") TextBox5 = ListBox1.List(x, 4) TextBox10 = ListBox1.List(x, 5) TextBox6 = ListBox1.List(x, 6) TextBox11 = ListBox1.List(x, 7) TextBox7 = ListBox1.List(x, 8) TextBox8 = ListBox1.List(x, 9) TextBox12 = ListBox1.List(x, 10) Print #1, TextBox0 & Sep & TextBox50 & Sep & TextBox51 & Sep & TextBox4 & Sep & TextBox5 & Sep & TextBox10 & Sep & TextBox6 & Sep & TextBox11 & Sep & TextBox7 & Sep & TextBox8 & Sep & TextBox12 Next x Print #1, "-" Close #1 End Sub  
    • Hola y buenos días a todos; He empezado a crear una macro que me permite crear un archivo .txt pero no sé como continuar. Quiero conseguir que los datos almacenados o filtrados  inclusive los que vaya seleccionando con el ratón en el listbox del frm_Cobros los pueda capturar y poder exportarlos al archivo .txt generado. Adjunto macro y video: https://youtu.be/bVO7f-JZuSg Saludos.   ExportarTxt.zip
    • Hola que tal, tengo poca experiencia para crear una macro que haga un autofiltro en la misma hoja de una base de datos, cuyas celdas se hayan seleccionado, ya sean del mismo campo o de varios campos...alguien me pudiera ayudar con esto? Ver el archivo por ejemplo si selecciono la celda D8 y D9, aplicar la macro y realice el autofiltro solamente de las celdas seleccionadas... y asi cualquier combinación que haga de seleccion de celdas.... Saludos y atento a su ayuda. Atte ERH     Libro3.xlsx
    • Buenas tardes, gracias por la respuesta. Se que es mejor con tablas dinamicas, el hecho de porque lo queria asi es porque el estadillo se entrega en formato de papel y queria ver si podia ahorrar el tiempo de copiar y pegar, aun asi, con la macro que has hecho me has dado una idea. Gracias por tu respuesta   Saludossss
    • Hola @tupy77 Según entiendo, quieres que en una hoja se pongan varias tablas con 1 fila en blanco entre ellas y que contengan "N" filas según un filtro establecido. El filtro debe ponerse en un cuadrito. Supongo que son filtros diferentes para cada tabla. La mejor forma para hacerlo es, como dice @Silvia, usando tablas dinámicas y segmentadores. El problema es que solo verías una tabla (no varias, como quieres) pero.... ¿por qué mostrar muchas tablas si puedes hacerlo solo en una y cambiar los filtros con un solo clic? No es algo difícil de hacer. La tendencia de crear muchas tablas o incluso muchas hojas con cuadros "copiados" total o parcialmente es una pésima idea, no es óptimo, es muy trabajoso.... y para eso Excel te provee otras herramientas (como las tablas dinámicas) para que no te compliques la vida. Adjunto un ejemplo con una macro que hace lo que pides: Pone tablas en la segunda hoja, separadas por 1 fila en blanco. ¿Cómo funciona? El botón limpiar se encarga de eliminar todo el contenido de la segunda hoja. El botón "Agregar" agrega los datos en una tabla nueva y le pone un color al azar. Los filtros se hacen en las columnas G:J de la misma forma que se usan en los filtros avanzados (conjunciones en horizontal y disyunciones en vertical). Como esa forma no es la recomendable.... adjunto otra hoja con una tabla dinámica y segmentadores que permite hacer lo mismo. Extraer registros haciendo tablas ajustables.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy