Recent content by filo65

Hi RuralGuy, Good point! Some additional infos: - my be is an Oracle server ( I can deal with it via ODBC or OO4O ) - multi-user fe ( up to 80 people ) - active write/reading operations - massive Forms ( retrieving conditional queries, UNIONS etc. ); thís is a chief wish - I have probably...

Hi RuralGuy, I think I got your point. Instead of using: set ... .Recordset = rs I should use: ... .Recordsource ="SELECT * FROM Tab1 IN 'C:\...\be_test.mdb' " I didn't try yet, but is it roughly what you mean? Regards Filippo

Hi, I have following situation: - a back-end database containing tables - a front end database containing forms the fe form is via vba code linked to the table via a simple Query. when I try to open the form ("frm1") with acFormadd property set to true doesn't look to work (It doesn't jump...

Hi everyone, I have a problem running a query ( with a UDF in it ) from Excel . The same query having a "hard coded" version of my UDF works fine. Error message is '3085'. Can't Access compile at run time the UDF? Thank for any help. Filippo P.S. Attached is a zip example

Hi, in my googling I came accross to the articlel 198466 that should allow me to insert PDFs in a table. I followed the instructions, but I got an error message .... Do While Len(MyFile) <> 0 [OLEName] = MyFile [OLEfFile].Class = "Adobe.Acrobat7.0" ' or "Adobe Acrobat 7.0...

Hi, I have to PC (1. access 2003 SP1; 2. Acces2002 SP3), same database with a table (Primary Key based upon three fields - cannot do differently because historical data for different items - ) containing roughly 1,000,000 recordsets. When I perform an Action query (i.e. DELETE 500 records) on...

I'm aware that to append values from an array to a table I should use withing a for loop the "INSERT INTO...." statement. What I wonder is if there is a way to "paste" the whole array "in once" like I can do in EXCEL or like I can do when I open a table and paste an excel sheet selection. Any...

it is not missing a semicolon at the end of your strSQL as well? As the others said: strSQL = "SELECT * From tbl_rhd_managers WHERE [region] = " & """" & strRegionName & """" Set rs1 = db.OpenRecordset(strSQL) rs1.MoveLast rs1.MoveFirst intRecordCount = rs1.RecordCount For intCounter = 1 To...

it is not missing an rs.Update before rs.close? have you tried to comment your error handles? filo65

you could also add a "()" to your function definition: Public Function CheckInspection(...) As string () ... CheckInspection = arrMatrix ' no need anymore for "()" here End Function

Which size has CodeList or where do you "redim" it? BTW could please Tag your code? filo65

is the condition in your IF statment working properly? do Range("A" & intDown).Value and Name1 contain EXACTLY the same values (considering also blank spaces) when IF Statment = True? Filo65

you could try using: Format(CDate(....), "dd/mm/yyyy") filo65

A possible solution: Dim tmp() as Variant, myarray() as Variant Dim i as Integer, j as Integer i=0 redim tmp(4,i) for j=0 to 4 Step 1 tmp(j,i) = i *10 *(j+1) next j while i < 10 redim preserve tmp(4,i+1) for j=0 to 4 Step 1 tmp(j,i) = i *10 *(j+1) next j wend for i = 0 to 9 Step...

Hi, why don't you try with something like Dim sh as worksheet for each sh in worksheets if UCase(sh.name) = "SHEET1" then Exit For ... ... Next HTH filo65