Search results

LFile = "C:\MIR\19-Jan-15_MIRActivityMIR.txt" If LFile = "" Then Set lf = fs.CreateTextFile("C:\MIR\" & Date & "_" & "MIRActivityLog.txt", True) Flen = FileLen(LFile) Else Open LFile For Append As #2 End If If Flen > 5 Then MsgBox ("File length Reached") Set...

was trying the below code log = "C:\MIR\" & Date & "MirActivityLog.txt" Flen = FileLen(log) If Flen > 5 Then MsgBox ("File length Reached") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile(log, True) Else Open log For Append As #2 End If i...

Not sure files of 10 mb would open fast. Ok lets make it 10MB if you say so. Removing the old history, well we need those log at some time.

Solved it ! now how can i create new files every 1MB ?

After a few googling, found the code to be Open log For Append As #2 which is added to the top of the file, like so EMD = DLookup("[EMD]", "tblFilePath", "[PathID]=1") & Rename NoPax = DLookup("[NoPax]", "tblFilePath", "[PathID]=1") & Rename Set RSFiles =...

aite ! managed to get it rite. Now how do i append to exiting text file. at the moment it creates a new file every time i click.

tried this f MIRType = "Z" Then txtMIRActivity.Value = srcfile & " " & tkt & " " & "EMD Void" & vbNewLine & txtMIRActivity.Value Name SrcFolder & srcfile As DstFolder & "_EMDv_" & srcfile 'Move EMD Void files. End If a.writeline (txtMIRActivity.Value)...

Thought i had it but i the excution stops at the line a.writeline (txtMIRActivity.Value & txtMIRActivity.Value) with error "Object variable or with block variable not set" but the log gets written to the text file.

think i've got it :)

tried that but when it came to a.writeline (txtMIRActivity.Value) it returned an error "Object variable or with block variable not set". Checked the text file and found just the value of last entry for txtMIRActivity.Vaue in it.

well not exactly a month, 10 days short :) was wondering if i could create a log file daily with current date in C:\MIR\ of the text displayed in txtMIRActivity and create new file when the original file reaches 1MB.

:) a one month vacation at the moment

Finally done with the entry form.

then i will as well go for the subform idea :)

so how will this fix query for maual form work. Is it because of the way the tables are linked in a query ?

i was getting frustrated with creating the manual form. So was playing around with the primary keys. Well you are correct on the pax seq on different lines i won't be needing the PaxID

no fileid is not auto number. I was saying the fileID although being a manual numbering which increments by 1 from within code is able to be populated to other tables and even pxid is the same but is not being populated to other tables which is PK for the following tables like the FileID. Rather...

the pxid (which is the autonumber of the tblPax) in tblsector and tblFarPaxValue only shows last paxid 2 when there are two pax which should be showing 1 and 2. How can get it corrected. RSFiles.AddNew myfileid = Nz(DMax("FileID", "tblFiles"), 0) + 1...

Well to check one table at a time, the tblpax, tblsector and tblpaxfare has no problem when linking for a form. Filename is omitted as it cannot be manually entered for ticket data. Similarly a few fields like paxseg will also benomitted. So subforms is the best option ist ?

Hmmm thats a little complicate for the end user. Y aren't the quiries working even after linking the tables within it.