Search results

No its just another table in the same access database. It just consists of one column which is the noiseword

Thanks for your reply Ive added a "noisers.close" just before the end function but still get the maxlocks error. What am I doing wrong? It also doesnt need to run several times before it blows, it doesnt even run once.

Having all kinds of problems with the code below... If I run it it gives out maxlocks errors. Ive moved the registry entry to the max but it still gives the error Public Function NoiseWords(sCompanyName As Variant) Dim sTestString As String Dim sTestString2 As String Dim sReturnString As...

How can I create a function that receives 3 fields from a query but allows me to use the function so that I can return them as 1 field There will be some code that willl play around with the data in the 3 fields in the function but I dont now how to pass 3 fields into a function. Thanks

Can anyone say what the syntax would be for the "incorrect" statement below? Like *Mid([checking]![COMPANY NAME],1,InStr([checking]![COMPANY NAME]," "))* As the statement above doesnt work, just returns errors. Thanks in advance

Im having lots of trouble exporting an access table to dbaseIV format. First it grumbled about lengths of field headers which I belive now dbase has a restriction of 10chrs. Are there any other restrictions I should know about as the file still wont export to dbaseIV Thanks in advance

Tried looking for a thread which explains how to do it but cant find anything The SQL I have put on here just keeps giving an error saying something about a reserved word

I have the SQL below SQL = "SELECT TOP 300 FROM [EXPORT]WHERE [DISTRICT]=" & """RSnEW(0) " & " ORDER BY [EMPLOYEE SIZE];" I want to put it in a loop so that it will cycle through the rsNew recordset running the sql each time. I get errors on the sql but dont know why How should the SQL look?

Hi I need to check whether a file exists before continuing the code. Not sure haw to check if a file exists. Thanks in advance

Im trying to merge 2 text files together in VB but im unsure how to go about it. I know there is a DOS command ie COPY file1.txt + file2.txt file3 This is what im looking to do. The layout of the 2 files will always be the same.

Just found out that I needed to open the recordset as a dynaset as the default is table only. Thanks

I keep getting "operation not supported for this type of object" for the code below. Any ideas strURN = rsOriginal(0) rsNewDirs.FindFirst "[fieldname] =" & strLocURN Thanks in advance

Nope that still doesnt work I get Expression is not a method identifier expected type character ! does not match declared data type adodb.recordset

It appears to be the bit below thats doing it. rsMultiDirs(0) = rsAllDirs(0) Help

When I try to run the code below the btnprocess_click gives me a item is read only. I cant see where Im going wrong. Any one help Public cnConnectString As String = "provider=microsoft.jet.oledb.4.0;Data Source=D:\B2BWork\MultiDirectors\multidirs.mdb;userid=admin;password=;" Public...

How can I used a saved template to send to a list of email addresses in an access table. I know how to open the outlook object etc and use VBA to send mail to people but dont know how I can use a saved template to do this with. All I will then do is loop through all the email addresses using...

If i take the tick out of Require Variable Declaration then it works ok. Any ideas?

No its in a stand alone module. All im doing to use the function is in a query same as below. Expr1: StripSpace(fieldname to remove spaces)

OK I now have the code Public Function StripSpace(txtField As String) As String Dim intcount As Integer For intcount = 1 To Len(txtField) If Mid(txtField, intcount, 1) <> Chr(32) Then StripSpace = StripSpace & Mid(txtField, intcount, 1) End If next intcount End...

I have created the function below: Public Function StripSpace(txtField As String) As String Dim txtTemp As String For x = 1 To Len(txtField) If Mid(txtField, 1, x) <> " " Then txtTemp = txtTemp + Mid(txtField, 1, x) End If Next x txtField = txtTemp End Function...