Para Baltasar URGENTE...

alexlg44
13 de Noviembre del 2003
hola baltasar eh tratado de localizarte via mail te escribi un correo a [email protected] y nada no tuve respuesta tuya, espero me puedas ayudar, osea que tengo una base de datos y la conecte a mi formulario con un datacombo y ya me parecen los codigos de los productos en ese datacombo y cuando yo lo selecciono quiero k me aparesca la descri´pcion del prodcuto k le corresdponde a ese codigo, kiero k la descripcion me aparesca en un textbox y al darle en un boton de añadir me lo añada al DataGrid, pero no eh encontrado la solucion y si me lo añade pero al seleccionar un codigo distinmto y darle añadir me sustituye el anterior por el nuevo codigo y producto espero me puedas ayudar te lo agradesco de antemano nos vemos... aahh el codigo k estroy utilizando es este pa la conexion de la base de datos:
Private Sub cmdagregar_Click()
If deproductos.rscmconsultaproducto.State = adStateOpen Then
deproductos.rscmconsultaproducto.Close
End If
deproductos.CmConsultaproducto (dbcproducto.Text)
Set Dbgrdfactura.DataSource = deproductos.rscmconsultaproducto
End Sub

Baltasar
13 de Noviembre del 2003
Perdona, pero no he recibido el correo del que hablas. Si quieres, mándame el código que tengas hecho y lo reviso, porque ahora no sé muy bien cual es el problema.

alexlg44
13 de Noviembre del 2003
ese es el codigo fuente de todo el form wey ayudame por favor gracias...

alexlg44
13 de Noviembre del 2003
Option Explicit

Private Sub cmdaceptar_Click()
Dim lblsubtotal As Long, lbliva As Long
Dim lbltotal As Long
lblsubtotal = txtsubtotal
txtiva = 0.15 * lblsubtotal
txttotal = lblsubtotal + txtiva
txtcantidadporpago = txttotal / txtnumeropagos
txtcantidadtotal = txttotal
End Sub

Private Sub cmdagregar_Click()
If deproductos.rscmconsultaproducto.State = adStateOpen Then
deproductos.rscmconsultaproducto.Close
End If
deproductos.CmConsultaproducto (dbcproducto.Text)
Set Dbgrdfactura.DataSource = deproductos.rscmconsultaproducto
End Sub

Private Sub cmdimprimir_Click()
Printer.Print txtnombre
Printer.Print txtdireccion
Printer.Print txtciudad
Printer.Print txttelefono
Printer.Print txtrfc
Printer.Print txtfecha
Printer.Print Dbgrdfactura
Printer.Print txtcantidadletra
Printer.Print txtsubtotal
Printer.Print txtiva
Printer.Print txtnumeropagos
Printer.Print txttipopagos
Printer.Print txtcantidadporpago
Printer.Print txttotal
Printer.Print txtinicio
Printer.Print txtcantidadtotal
Printer.Print txtinteres
End Sub

Private Sub cmdlimpiar_Click()
txtnombre = "": txtdireccion = "": txtciudad = ""
txttelefono = "": txtrfc = "": txtcantidadletra = ""
txtsubtotal = "": txtiva = "": txttotal = ""
txtnumeropagos = "": txttipopagos = "": txtcantidadporpago = ""
txtinicio = "": txtcantidadtotal = "": txtinteres = ""
txtdescripcion = ""
txtnombre.SetFocus
End Sub

Private Sub cmdsalir_Click()
End
End Sub

Private Sub Form_Load()
txtfecha = Format(Now, "MEDIUM DATE")
End Sub