Microsoft Access 2000


Public Function funCreateReport(strReport As String) As Boolean


On Error GoTo 999 '

funCreateReport = False '

appAccess.DoCmd.TransferDatabase acImport, "Microsoft Access", appFolder & "\ .mdb", acReport, strReport, strReport, False

funDetalReport strReport '

funCreateReport = True '

Exit Function

999:

MsgBox Err.Description '

Err.Clear '