ok
'Dim TBE2 As String
'--------------
Dim baseTB As Database
Dim regTB As Recordset
'----------------
Dim tb2 As Database
Dim buscar As String
Dim trs As Recordset
Private Sub Commandver_Click()
Dim i As Long, Columna As Integer
With ListView1
.View = lvwReport
For Columna = 0 To trs.Fields.Count - 1
.ColumnHeaders.Add , , trs(Columna).Name
Next
trs.MoveFirst
Do Until trs.EOF = True
Set Item = .ListItems.Add(, , trs(0) & "")
For i = 1 To .ColumnHeaders.Count - 1
Item.SubItems(i) = trs.Fields(i) & ""
Next
trs.MoveNext
Loop
End With
End Sub
Private Sub Form_Load()
Set baseTB = OpenDatabase(App.Path & "ase de datosd1.mdb")
Set regTB = baseTB.OpenRecordset("farmacos", dbOpenDynaset)
Commandgrabar.Enabled = True
Commandeliminar.Enabled = True
Commandactualizar.Enabled = True
With ListView1
.View = lvwReport
.GridLines = True
.LabelEdit = lvwManual
.ColumnHeaders.Add , , "Codigo", 1600
.ColumnHeaders.Add , , "Fecha", 1600
.ColumnHeaders.Add , , "Guia", 1600
.ColumnHeaders.Add , , "Proveedor", 1600
.ColumnHeaders.Add , , "Cantidad", 1600
.ColumnHeaders.Add , , "Devolucion", 1600
.ColumnHeaders.Add , , "Presentacion", 1600
.ColumnHeaders.Add , , "Medicamento", 3600
.ColumnHeaders.Add , , "Farmacia", 1600
.ColumnHeaders.Add , , "Trapi", 1600
.ColumnHeaders.Add , , "Vivanco", 1600
.ColumnHeaders.Add , , "Crucero", 1600
.ColumnHeaders.Add , , "Cayurruca", 1600
.ColumnHeaders.Add , , "Mantilhue", 1600
.ColumnHeaders.Add , , "Futahuente", 1600
.ColumnHeaders.Add , , "Carimallin", 1600
.ColumnHeaders.Add , , "Sector 1", 1600
.ColumnHeaders.Add , , "Sector 2", 1600
.ColumnHeaders.Add , , "Sector 3", 1600
.ColumnHeaders.Add , , "Procedimiento", 1600
.ColumnHeaders.Add , , "Clinicas Dentales 1", 2100
.ColumnHeaders.Add , , "Clinicas Dentales 2", 2100
.ColumnHeaders.Add , , "Clinicas Dentales 3", 2100
.ColumnHeaders.Add , , "Clinicas Dentales 4", 2100
.ColumnHeaders.Add , , "IRA", 1000
.ColumnHeaders.Add , , "ERA", 1000
.ColumnHeaders.Add , , "Sala Motora", 1600
.ColumnHeaders.Add , , "Prestamos", 1600
.ColumnHeaders.Add , , "Saldo", 1600
End With
End Sub
ese es mi codigo