Recent content by pb21

Thats great thyank you, I did experiment over the weekend and came up with : Dim txtfile As String Dim sw As New StreamWriter("d:\output\amended.txt") Dim di As New DirectoryInfo("d:\test") ' Create an array representing the files in the current directory. Dim...

Hi I have a tedious task each month of creating a text file made up from data of other text files with the first and last line of each text file removed. What method exists to iterate through each of the text files in a directory, remove the first and last row in each file then against each...

Thanks I didnt think there was a way around that, so we took the form off. thx kind regards

I have a master form with a picture as the background with a timer event that fires every 5 minutes. I have a subform (a clock) with a timer event every second to update the text. How do I make the sub form background transparent so that I see the master form back ground? I did it this way so I...

Hi All I dont have room on my form to read a text box from left to right so can it be rotated? so i read the text from bottom up as you can do in word text boxes or excel cells? regards in advance

I just used your more elegant method of using dateserial that is fantastic resolution thank u to all

Hi Guys well I discovered the problem (although the date issue is still interesting) one row existed in the data that did not have data so the query was working and then bombing out part way through. thank you so much for your help regards

Here is the where part of sql string complete thats causing the issue: WHERE (((CDate((Right(Left([Field3],8),2) & "/" & Mid(Left([Field3],8),5,2) & "/" & Left([Field3],4))))>=#9/1/2006# And (CDate((Right(Left([Field3],8),2) & "/" & Mid(Left([Field3],8),5,2) & "/" &...

Hi I believe you with this: Expr1: CDate((Right(Left([Field3],8),2) & "/" & Mid(Left([Field3],8),5,2) & "/" & Left([Field3],4))) it returns no problem. as soon as I do this: >=#01/09/2006# And <=#30/09/2006# it returns the error. To avoid the scenario how do I force it to ignore the us/uk...

Hi I tried Cdate (mystring) but that just returns error in the query column :(

I have the following field which is stored as a string: [field3]"2006090111123500" the first 8 characters represent the date but backwards. I want to filter between dates. I have the following in the query grid: CallDate: DateValue(Right(Left([Field3],8),2) & "/" & Mid(Left([Field3],8),5,2)...

It worked a treat and what an elegant way using chr 34 thank u. regards

I have a query string with the following: StrWhere = " WHERE (((TblProduct.Description)" & " Like """ * Group * """)" & "AND ((TblProduct.CurrentProduct)=False));" However VB is putting in a space between the asterisk around group. so if I paste this in the qry grid it fails. how do i get...

I am trying to change the text on a label on a form I just opened. DoCmd.OpenForm ("FrmPBCliCheck") Forms!frmpbclicheck!LblTransferData.Value = "CPS=Y on line " & CLI & " Gamma Transfer Update= " & Y & " " & Z access complains at this. Help would be appreciated on how to reference the lbl...

ah here is the code: filename = "XX MASTER SPREADSHEET" & ".XLS" spaces are here. how should i change this? Interestingly I changed the name to xxxx with no spaces and it still failed with the same message. regards