Pasar de información de un listbox a un report
Hola, Y gracias por tu tiempo
Tengo un formulario que es una factura, cambié un cuadro de texto a cuadro de lista, para organizar mejor la información de lo que es el concepto de la factura.
El caso es que la factura se imprime bien con los datos correspondientes, pero no se imprime el concepto que se queda guardado en la BD.
¿Cómo puedo hacerlo?
Tengo un formulario que es una factura, cambié un cuadro de texto a cuadro de lista, para organizar mejor la información de lo que es el concepto de la factura.
El caso es que la factura se imprime bien con los datos correspondientes, pero no se imprime el concepto que se queda guardado en la BD.
¿Cómo puedo hacerlo?
1 Respuesta
Respuesta de Roberto Alvarado
1
¿Cómo?
Te dejo el código para que le eches un vistazo, y veas que tal va, porque me da error cuando pongo la opción Me. Concepto.ItemsSelected
Private Sub Concepto_GotFocus()
Dim cadena, cadena2, cadena3, Concepto As String
Dim mnsj, titulo As String
Dim estilo As VbMsgBoxStyle
Dim respuesta As VbMsgBoxResult
mnsj = "¿Deseas introducir conceptos"
estilo = vbOKCancel
titulo = "Confirmación"
respuesta = MsgBox(mnsj, estilo, titulo)
If respuesta = vbOK Then
cadena = InputBox("Introduce el concepto de la primera BaseImponible", "Conceptos Gastos")
cadena2 = InputBox("Introduce el concepto de la segunda BaseImponible", "Conceptos Gastos")
cadena3 = InputBox("Introduce el concepto de la tercera BaseImponible", "Conceptos Gastos")
' If Not IsNull(cadena) And Not IsNull(cadena2) And Not IsNull(cadena3) Then
Me.Concepto.AddItem ("B.I_1: " & cadena & ", " & "B.I_2: " & cadena2 & ", " & "B.I_3: " & cadena3 & ";" & vbCrLf)
Concepto = InputBox("Otros conceptos", "Conceptos Gastos")
Me.Concepto.AddItem (Concepto)
Me.Concepto.ItemsSelected
Else
MsgBox "Has elegido no insertar conceptos", vbOKOnly, "NCA Gestion Integral"
End If
End Sub
Me salta el depurador y me dice que el uso de la propiedad no es válido.
Te dejo el código para que le eches un vistazo, y veas que tal va, porque me da error cuando pongo la opción Me. Concepto.ItemsSelected
Private Sub Concepto_GotFocus()
Dim cadena, cadena2, cadena3, Concepto As String
Dim mnsj, titulo As String
Dim estilo As VbMsgBoxStyle
Dim respuesta As VbMsgBoxResult
mnsj = "¿Deseas introducir conceptos"
estilo = vbOKCancel
titulo = "Confirmación"
respuesta = MsgBox(mnsj, estilo, titulo)
If respuesta = vbOK Then
cadena = InputBox("Introduce el concepto de la primera BaseImponible", "Conceptos Gastos")
cadena2 = InputBox("Introduce el concepto de la segunda BaseImponible", "Conceptos Gastos")
cadena3 = InputBox("Introduce el concepto de la tercera BaseImponible", "Conceptos Gastos")
' If Not IsNull(cadena) And Not IsNull(cadena2) And Not IsNull(cadena3) Then
Me.Concepto.AddItem ("B.I_1: " & cadena & ", " & "B.I_2: " & cadena2 & ", " & "B.I_3: " & cadena3 & ";" & vbCrLf)
Concepto = InputBox("Otros conceptos", "Conceptos Gastos")
Me.Concepto.AddItem (Concepto)
Me.Concepto.ItemsSelected
Else
MsgBox "Has elegido no insertar conceptos", vbOKOnly, "NCA Gestion Integral"
End If
End Sub
Me salta el depurador y me dice que el uso de la propiedad no es válido.
Para recorrer la lista de items del listbox:
Dim i as integer
For i = 0 to Concepto.Items.count -1
print concepto.Items(i).text
next i
Dim i as integer
For i = 0 to Concepto.Items.count -1
print concepto.Items(i).text
next i
La opción que me has dado no me ha válido.
Primero porque print no lo puedo utilizar( trabajo con vb y access) y creo que esta opción no esta presente, y segundo, que que tras poner Me. Concepto no me da la opción 'Items', sino que me ofrece 'ItemData' o 'ItemSelected'.
Estoy desesperada ya...
Gracias por molestarte tanto!
Primero porque print no lo puedo utilizar( trabajo con vb y access) y creo que esta opción no esta presente, y segundo, que que tras poner Me. Concepto no me da la opción 'Items', sino que me ofrece 'ItemData' o 'ItemSelected'.
Estoy desesperada ya...
Gracias por molestarte tanto!
Lo que coloco son ejemplos, porque no tengo idea de que estas haciendo, debes tratar de cambiar las cosas por las que tu utilizas, si no me dices que concepto tiene itemdata no me doy cuenta que es un datacombo ... entonces utiliza itemdata y no utilices print sino la instrucción que estas usando para la impresión.
