Recent content by Mirica_Victor

@Guus2005: Probably your ideea works, but it would generate manny vba extra lines.... My workaround generates only 1: the maketable. @vbaInet: As I mentioned, it is a Select top 1, because if the date in one line is correct, they all are (for one column), so the dcount checks if the 1 record...

After some time, I managed to solve it with the help of my coleague, who knows more about XLS than me. In the VBA wich exports the report as a XLS I put the code: DoCmd.SetWarnings False Dim xlApp As Excel.Application Dim xlWB As Excel.Workbook Dim xlSh As Excel.Worksheet...

Hy! I have a linked *.txt file and a qwery that returns the top 1 record from it. (The ideea is to check a value from one column of the file). Both the linked file/table and the query run corectly, but: I have a vba code on the on open of a form that is checking the query above...

Hy, I have a big table containing various informations about different erors. The info is dumped here by some append QRYs (2-3 hundred, one for each error). In this table there in a column INFO wich contains something like: "Name1:Value1|Name2:Value2...|Namen:Valuen" pairs of Name:Value...

Today I had the same problem and starting from boblarson's code I came to this : Public Function SplitFile(intField As Integer, strValue As String, strDelimiter As String) As String Dim varSplit As Variant If (InStr(1, strValue, strDelimiter) <= 1 Or Null) And (intField = 1) Then SplitFile...

Well, the purpose is not to let the code run and make the *.mdb file get over 2 Gb, so if the file is over 500 Mb, then compact is executed. I already have this code used in another database But the code there is between Elese ... End If. I do not think the size is relevant, I think is a...

Hy, I have a problem: on a open form event i have the folowing code: Private Sub Form_Open(Cancel As Integer) Dim Dimensiune As Double Dimensiune = FileLen("path_to_self_mdb_file") / 1024 / 1024 If Dimensiune > 500 Then SendKeys "%tdc" Else End if [Code to run] End Sub In this format the...

I solved the problem. here is what I did: I created a table wich contains the name of the report. Each time I export a new report, an append qry inserts the name in that table. (it also inserts the created date, but I do not use it) I have this VBA: DoCmd.OpenQuery "Add_Report" 'ads the...

Hy, I have a database wich on a button creates a *.rtf report in a folder. As I create a lot of files in the same folder, i wonder if I could control the number of files in that folder (each time I create a new report, the oldest one wil be deleted). For this I need to have a table or a query...

Thank you for the support. I have solved the problem by creating 13 append querys, each one based on each table. The append is made in a table from wich I delete the info first. It appends the table name and the info in the needed field. This field contains the data for wich the info is...

Hy, Problem: I have a few tables from wich I need to extract the value from one specific field and update it to another table (other from the first). The value in the field is the same in each record of the given table, but different in the next table. I have a table wich contains the table...