Search results

That's beacause Access standard way of comparing (database). In your query create a field with: Test²: InStr(1,[test],"²",0) and filter for values > 0. The last parameter of the "Instr" function makes the compare binary.

The loop will occur on a error in the part after label14 as the errorhandler stil jumps to the ErrHandler14 label. As jou don't use the errorcode why not simply use "on error resume next" for the part where jou have the 14 error handlers.

Does the form has a subform or does the report has a subreport. Can you post the SQL of the recordsource of the report?

Has the module the same name as the function?

Most likely the files are actually comma separated (csv) with a .xls extension. But that's a shot in the dark. Without more information on the program that creates the files or the actual file I don't think anyone can answer your question.

As groupwise seems to work different then Ootlook it needs a different approach. Sample code for groupwise can be found here.

I asume the datestring is not a string the way jou set the variable, try: DatesString = format(date(),"yyyy-mm-dd")

Re: The table name you entered doesn't follow System object-nameing rules Something like the below code should work. I copied your SQL and export strings that need some refining only to show what goes where, the actual connection will work. Function ConnectToRemoteDB() Dim...

Re: The table name you entered doesn't follow System object-nameing rules What's the proplem with your code is that you make a query for a remote database without a direct link. As I don't know a way to execute the transferspreadsheet command in the remote database this code wil probably always...

Re: The table name you entered doesn't follow System object-nameing rules If you don't run your SQL string it won't create a temp table. As I think vbaInet's idea is the better way I would go with the query. How do you connect to the "TOSS.mdb", by linked tables or do you make the connection...

Re: The table name you entered doesn't follow System object-nameing rules Hi Ria, This means that there's problably no other option then to change your sql to a table make query. Eport the created table and delete it after the export. Your strSQL has to be changed to: strSelectSQL = " SELECT...

Re: The table name you entered doesn't follow System object-nameing rules From the help:The method TransferSpreadsheet does not accept a SQL string. Only table names and query names are accepted. Save your SQL string as a Query then it should work.

On most systems there is an systemvariable that holds the username. Check in the windows shell what the name is by the command set then you can retrieve the username by: environ("USERNAME")

There is no if command between both 'end if' marked red. You test for a blank value of strWhere, if it's blank you should not append the 'or' or 'and', if it's not you have to prefix with 'or' to prevent ending with an unwanted extra or at the end (code in green not tested). For Each i In...

The original expression would not have shown dates before the milenium. Because oracle stores the date as a integer it looses the trailing zero. To avoid this you can format the integer. YEAR: Val("20"+left(format([YEAR_PERIOD],"0000"),2)) For the same reason you need to change the period...

Your recordsize doesn't match because you don't set te value for number. As number is used in VBA I asume it's a reserved word, which woold lead to hard to trace errors. I recomend to change it to for example BookingNr. Why did you set a max lenght for the filename of 14, it took me some time...

Is the field PSTCD a number field? If not you need additional quotes. Are you referencing the form control or the table field? I expected a me.txtPSTCD. Set a breakbpoint in your code to see what the value is of me.PSTCD. If it can be null use the nz funtion to give a value.

Your code seems to work if I put 255 in the part in red. Your counter has to be set from here also, one of the first two blue lines will do. Because no error is genereated when reaching 255 char I put a messagebox in there also. Private Sub txtCommento_KeyDown(KeyCode As Integer, Shift As...

If you ad a error handler you can trap the error. If all errors can be ignored just adding "On Error Resume Next" at the start of your code will ignore all errors.

Did You try it without the single quotes around your password?