Search results

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

Hi I have some code that opens a spreadsheet with the view of doing the following: DoCmd.TransferSpreadsheet acImport, , "TblTransferSpreadsheet", "D:\" & filename, True, "A1:J" & lngRows It reports back error 3251 operation not supported by this type of object. any ideas? if i copy the...

Thanks The main menu has some timer event on it causing this . Kind regards for saving my sanity

Hi all I am trying to make an on click event. As I type the keyword for example Dim. Dim goes red once I put in the space after it and the mouse goes back. I want : Dim CLIIn as String I dont understand this behaviour. I am on a client machine with a split database. Is it something I have...

Hi I need to write a function to convert pounds and pence to all pence. so therefore £10.55 becomes 1055 or £1.55 becomes 155. The function will not know if the number has a negative sign in front £-1.55 so it needs to allow for that so how do I get the digits only from the left and right of...

I have the following function: Public Function GetPeakPeriod(DateString As String, Time As String) As String Dim d1 As Date Dim Weekend As Boolean Dim TimeConv As String d1 = DateString If Len(Time) > 5 Then TimeConv = Left(Time, 2) & ":" & Mid(Time, 3, 2) & ":" & Right(Time, 2) Else...