Source CodeClient

Source CodeClient

Sub export(fname As String, daty As String)

On Error GoTo loi

Dim sconnect As String

Dim tname As String

Dim pa As String

Dim idx As Index

Dim idxnew As Index

Dim dbs As Database

Dim ppw As String

showstatus "Trying export...", True

'Ten cua table export

If daty = "access" Then

tname = frmtm.tvtable.SelectedItem.Text

Else

tname = getfiletitle(fname)

End If

'Lay duong dan

pa = getpath(fname)

Select Case daty