mechita
05 de Agosto del 2003

hola, gracias por leer este mensaje, espero explicarme bien !!!! =)

bueno lo ke estoy tratando de hacer es lo siguiente:
(mediante DAO y recordest)
por medio de un textbox, un recordset y sentencias SQL estoy tratando de enlazar mi BD con el FlexGrid, lo ke hago es ke al momento de introducir un número al textbox, este va y busca a la base de datos el registro ke tiene ese numero y lo muetra en el felxgrid... eso si me lo hace, pero al momento de introducir otro número, me sigue apareciendo el registro anterior y no c porke, este es el codigo ke utilizo:

Option Explicit
Dim base As Database
Dim recordf As Recordset

Private Sub FlexGrid1_Click()
FlexGrid1.Clear
Dim y As Integer
FlexGrid1.Cols = 5
FlexGrid1.ColWidth(0) = 0
FlexGrid1.Col = 1
FlexGrid1.Row = 0
FlexGrid1.ColWidth(1) = 1200
FlexGrid1.Text = "Cantidad"
FlexGrid1.Col = 2
FlexGrid1.Row = 0
FlexGrid1.ColWidth(2) = 1500
FlexGrid1.Text = "Descripcion"
FlexGrid1.Col = 3
FlexGrid1.Row = 0
FlexGrid1.ColWidth(3) = 2000
FlexGrid1.Text = "Precio Unitario"
FlexGrid1.Col = 4
FlexGrid1.Row = 0
FlexGrid1.ColWidth(4) = 1500
FlexGrid1.Text = "Importe"
y = 1

FlexGrid1.Refresh
FlexGrid1.Visible = True
Text1 = ""

With recordf
.OpenRecordset , ("select nombre, preciounitario from inventario")
FlexGrid1.Row = 1
FlexGrid1.Col = 2
FlexGrid1.Text = !nombre
FlexGrid1.Col = 3
FlexGrid1.Text = !preciounitario
End With
End Sub

Private Sub Form_Load()
Set base = OpenDatabase("C:Documents and
SettingsmercedesMis documentosYOBTImeche.mdb")
Set recordf = base.OpenRecordset("select * from inventario")
End Sub

no c ke es lo ke pasa, si me pueden ayudar c los voy a agradecer muchisimo!!!!

otra cosita ( ya encaminados en esto y perodon por abusar de su amabilidad )

como puedo hacer para ke al momento de introducir otro número en el textboxel registro de dicho numero c pase al siguiente renglón del flexgrid?
bueno muchisisisisisisimas gracias y esperando su repuesta con ancias kedo de udes. muy atentamente:
mechita
[email protected]