combo1.additem (.fields("itemID") & " - " & ....

[blazt]

Ok buenas soy nuevo aqui me gusto el foro porque dan muchas ayudas.

bueno tengo un proyecto para la universidad y pues voy bastante bien pero me tropece con una parte en la facturacion es la siguiente:

en declaraciones global hise lo siguiente:
-------------------------------------------------------
Public Sub MostrarRegistroitems()
' Mostrar los datos del registro actual
' A este procedimiento hay que llamarlo cada vez que
' queramos mostrar los datos del registro actual.
With Item
Form8.Combo2.Clear
.Requery
Do While Not .EOF
Form8.Combo2.AddItem .Fields("itemID") & " - " & .Fields("itemName") & " - " & .Fields("itemDescription")
.MoveNext
Loop
End With
End Sub
--------------------------------------------------------

bueno ahoraen el form8 donde estoy trabajando tengo lo siguiente:

un textbox, y un combobox, bueno lo que hize en la declaracion global es llamar toda la base dato de la tabla Item para que me de la lista:
ID - Name - Descript
Dentro del combobox, ok con eso no tengo problema pero quiero que me despeje el ID de ese combobox que al darle click en el elemento me tire el ID al Textbox para asi de ese textbox ir añadiendo ese item a la factura, me siguen?

la codificacion que tengo en el form8 es la siguiente:
------------------------------------------------------------

Private Sub Combo2_Click()
'aqui quiero poner el codigo que cuando le de click ensima de el elemento en el combobox me tire el ID al TextBox del item seleccionado
End Sub


Private Sub Form_Load()
Const sPathBase As String = "db.mdb"
Set db = OpenDatabase(sPathBase)
Set rs = db.OpenRecordset("SELECT * FROM User", dbOpenDynaset)
Set Item = db.OpenRecordset("SELECT * FROM Item", dbOpenDynaset)
MostrarRegistroFacturar
MostrarRegistroitems
Calendar1.Visible = False
'añnadir la fecha de hoy al siguiente listbox
List2.AddItem (Format(Calendar1, "d" & "/" & "m" & "/" & "yyyy"))
With ListView1
' El tipo de Listview que queremos es del tipo "reporte"
.View = lvwReport
' Que muestre las líneas de separación entre datos
.GridLines = True
' Que no se puedan modificar los datos del listview
.LabelEdit = lvwManual
' Añadimos las cabeceras
.ColumnHeaders.Add , , "ID", 600
.ColumnHeaders.Add , , "Number", 900
.ColumnHeaders.Add , , "Name", 1000, lvwColumnRight
.ColumnHeaders.Add , , "Description", 1500, lvwColumnRight
.ColumnHeaders.Add , , "Quantity", 900
.ColumnHeaders.Add , , "Price", 700
End With
End Sub
---------------------------------------------------------------------
Sera de muchas gracias y ayuda.

[black_devil]

Hola no sé si entendí bien, tienes un combobox con los id y cuando hagas click en éste o selecciones el ID, lo arroje al textbox???, si es así, sería muy fácil para tu problema, quiero decir a lo mejor no entendí bien o el problema que entregaste no estaba muy entendible, saludos desde CHILE

Código:

Private Sub Combo1_Click()
If Combo1.Text <> "" Then
Text1.Text = Combo1.Text
End If
End Sub

Nota: en la propiedad Style del combo dejalo como 2 - Dropdown list

[tazzito]

hola o creo que lo que el necesita es recuperar solo el id desde el combo box y lo carga con 3 campos, para esto tiene 3 opciones, o carga el combo de acuerdo a un formato, puede cargar el itemdata siempre y cuando el id sea de tipo numerico o cargar un listbox con solo el id puedes buscar un poco mas de informacion sobre esto, ahora si te interesa alguna de las opciones en particular me avizas para darte un ejemplo xD

[blazt]

ok gracias, no soy muy bueno en codigo ni conecciones ni llamando la bse de dato: a ver si aclaro no soy muy bueno en comunicacion

tengo una base de datos llamada db.mdb tengo 3 tablas: users, adress y items, ok ahora mismo estoy trabajando con la tabla de items, dentro de la tabla tengo los siguiente campos: itemID(autonumber),itemName(Text),itemDescription( Memo).

bueno en el form8 tengo 2 objetos: 1 textbox y un combobox. pues ya un funcion me llama los 3 cambios al combobox la cual es:
-------------------------------------------------------
Do While Not .EOF
Form8.Combo2.AddItem .Fields("itemID") & " - " & .Fields("itemName") & " - " & .Fields("itemDescription")
.MoveNext
Loop
-------------------------------------------------------

si ven en el combo box aparecera 3 cosas: ID - Name - desc
pero yo kiero ke en el combobox cuando le de click a un elemento ejemplo:
8 - Pintura - RojoOscuro
pues ke el ID 8 me lo pase al textbox, para ke me sea mas facil en añadir los articulos.
y si es id un valor numerico
gracias y si tazzito me gustaria cualquier de sus metodo para poder solucionar esto. muchas gracias.

[tazzito]

ok como es numerico vamos a cargar el itemdata del combo, cuando gargas el combo deltro del do while agrega esta linea

form8.combo2.itemdata (form8.combo2.newindex) = .fields("ItemID"

y en el click del combo ocupa lo siguiente

textbox.text = form8.combo2.itemdata ( form8.combo2.listindex)

te recomiendo usar el combo con la propiedad stile en el 2 xD

[blazt]

Form8.Combo2.ItemData(Form8.Combo2.NewIndex) = .Fields("ItemID")

esta linea la anado dentro del loop en el global?

[blazt]

ya no hay ke hacer mas nada tizzio me salvaste de esta te debo una, gracias 1 millon. me resolvistes el problema ke tenia de hace 5 dias. ;)
thanks, pronto me conectare denuevo para dudas en el listview para calcular precio + cantidad. thanks. Saludos desde PR

[tazzito]

jaja ok no hay problema ahi veremos entre todos que se puede hacer y suerte XD