Hola, haber si me podeis ayudar.
Tengo un formulario donde introducen un nif y cuando pulsan una tecla de busqueda quiero que muestre un frame que contiene un msflexgrid con solo las facturas de ese nif con los siguientes campos.
NOMBRE, Nº FACTURA, DIA, MES, AÑO, IMPORTE.
en el frame he puesto un DATA con las siguientes propiedades.
connect -> access
Databasename -> c:\lib\bd.mdb
recordsource -> lo he dejado a blancos, con la intención de hacerlo por programa.
y en las propiedades del MSFLEXGRID he asociado
datasource -> data_Consulta_factura
y este es el código que he puesto en le programa
Private Sub bbuscar_factura_Click()
MSFfacturas.Refresh
MSFfacturas.Width = 7600
MSFfacturas.ColWidth(1) = 6700
MSFfacturas.Row = 0
MSFfacturas.Col = 0
MSFfacturas.Text = "Nombre"
MSFfacturas.Col = 1
MSFfacturas.Text = "Nº Factura"
MSFfacturas.Col = 2
MSFfacturas.Text = "Día"
MSFfacturas.Col = 3
MSFfacturas.Text = "Mes"
MSFfacturas.Col = 4
MSFfacturas.Text = "Año "
MSFfacturas.Col = 5
MSFfacturas.Text = "Importe"
If txt_dni.Text <> "" Then
data_consulta_factura.RecordSource = "Select * from BDfacta Where a_conta = '" & txt_dni & "'"
Else
data_consulta_factura.RecordSource = "Select a_nif, a_conta, a_dia, a_mes, a_año, a_totcob from BDfacta"
End If
End Sub
No se se si me he explicado, solo consiguo que me muestre la fila de cabecera.
Muchas gracias
