Module1 is the parent of Test and Test2, as they have the same parent they can run each other: - Private Sub Test To elaborate on this, Lets create two modules Module1 and Module2 and place our private sub Test in Module1.Īlso in Module1 we another private procedure: - Private Sub Test2 Is private, this means only its parent can call upon it. Objects and procedures can be considered public or private. How does the button on the form, call out this module for execution?
Hyperresearch importing text file how to#
I am confused on how to merge a form and module to work together. It works for a single argument, but will fail for subs with >1 parameters. If I understand it correctly, your problem lies here: DoCmd.TransferText acImportFixed, "COMPRPT_2016", "COMPRPT_CE", filepath & txtFile, False ' 0 ThenĤ - This is wrong syntax: DeleteContract (contract) Sql = "DELETE * FROM COMPRPT WHERE ContractNumber Is Null" Sql = "INSERT INTO FilesLoaded (Contract, ReportDate, Loaded) VALUES ('" & contract & "', #" & rDate & "#, -1)" Public Function LogSuccess(contract As String) Sql = "Delete * FROM COMPRPT WHERE ContractNumber = '" & contract & "' AND ReportGenerationDate = '" & reportGenDate & "'" Public Function DeleteContract(contract As String) Set oFolder = CreateObject("scripting.filesystemobject").GetFolder(filepath) Public Function GetFile(filepath As String) As String OApp.Namespace(unzipTo).CopyHere oApp.Namespace(zipFile).Items Set oApp = CreateObject("Shell.Application") 'oApp.Namespace(FileNameFolder).CopyHere _ 'If you want to extract only file you can use this: Set FSO = CreateObject("Scripting.FileSystemObject") 'iterate though folders and do many other operations on your computer’s file system.ĭim zipFile As Variant, unzipTo As Variant 'You simply have to create an instance of FileSystemObject in VBA and then you can generate files, read files, delete files, 'FileSystemObject also called as FSO, provides an easy object based model to access computer’s file system. Public Function DeleteAllFiles(path As String)įunction UnZip(filename As String, destinationPath As String) 'Delete any Null records added to main table 'DoCMD.TransferText acImportFixed, "ImportSpec_COMPRPT", tempPath & txtfile, FalseĭoCmd.TransferText acImportFixed, "COMPRPT_2016", "COMPRPT_CE", filepath & txtFile, False '<-does path go here?
'Depcreated - Alec Johnson - Created new import spec Additionally, can import from, export to, and link to a table in an HTML file.
You can also use this command to link to data in a text file. 'The TransferText method is used to import/export text between the current Access database or Access project and a text file located TxtFile = Replace(zipFile, ".zip", ".txt") 'Clearing out existing Contract/ReportDate data from Table 'MsgBox contract & " " & reportDate & " File could not be located." Public Function ImportFile(contract As String) It also makes the "next" record the current record. Rs.MoveNext 'This method is used to move to the next record in a Recordset object. It also makes the first record the current record. Rs.MoveFirst 'This method is used to move to the first record in a Recordset object. It also makes the last record the current record. Rs.MoveLast 'This method is used to move to the last record in a Recordset object. Sql = "SELECT DISTINCT Contract FROM Contract_CE" 'Specific value based off a specific condition.
Hyperresearch importing text file code#
'This code loops through the recordset of all contracts and import files, as in it looks for 'When you read data from the database in VBA, the result will be in a recordset (with the exception of scalar data). 'Dim is short for the word Dimension and it allows you to declare variable names and their type. 'A recordset is a selection of records from a table or query. Public Function ImportAll() ' Import button on FrmIMport 'excute the nexxt line of code other wise exit this loop 'Basically Do While is a loop so what your doing here as long as the value of the date does not EQUAL MsgBox "Error Detected: " & Err.Number & " - " & Err.Description, vbCritical, "Error"įor my module (please excuse the notes): Option Compare Database MsgBox "NOTICE! Please enter the Report Month you wish to Import."ĭoCmd.OpenQuery "query_Files_Loaded_CE", acViewNormal, acReadOnly ReportGenDate = Format(textReportDate, "YYYYMMDD") ReportDate = Format(txtReportDate, "YYMMDD") I currently have the following VBA code setup for my form (will be used to Import text files into my Access database): Private Sub cmdImport_Click() How does the button on the form, call out this module for execution? Also, if there is a more efficient way to import these fixed text files, I would appreciate it. What I am trying to do is map my button (import button on my form) to import text files (the text file would actually be on a network drive).
0 kommentar(er)
