Search results for query: *

dhookom - my queries/macros/etc are grouped into custom categories

sxschech - trusted location - yes -there are other files in that location (incl. access databasbes) which work without a problem just that file - I have created a new database and imported everything and that is fine - although I can't import the categories? dhookom - yes

I copied a database from a colleague and got the above 3027 message. I edited its properties and unchecked (I can't quite remember) a box about "from another machine" - and unblocked it. It is NOT read-only I cannot overcome this and now an older copy that I created is also giving the same...

I also checked my original in 2003 and it was correct (i.e. null)

thanks Combo - much neater than my solution which involves an extra query etc.. - just a bit worried that this bug might be elsewhere in my systems as well - and you don't know without re-testing all the bits and bobs

I don't understand - if you're doing a sum making nulls or blanks zero will have no effect on the end result? perhaps you meant to count not sum? in which case SELECT Count(IIf(IsNull([Number_2017]),0,IIf(([Number_2017])="",0,[Number_2017]))) AS TotalNumber FROM Tablematch;

I have simplified my problem to the basics - 2 queries from a simple table - here is the table:- Input ID ctry 1821 China 1822 1823 China query 1: (IM) SELECT Input.ID, Input.Ctry, 6 AS Pts FROM [Input] WHERE (((Input.[Ctry]) Is Not Null)); result: ID Ctry Pts 1821 China 6 1823 China 6 query...

Thanks both - inserting the magic DAO. cured the problem - my code is ancient. and - what are TGML Code tags?

yes - myPercs As Recordset - I didn't want to copy the entire sub - it's just a problem with the .findfirst and it works in Access 2003 - but here is the entire function if it helps... Function MissingSects() Dim MyOutput As Recordset, MyInput As Recordset, myPercs As Recordset Dim mySID As...

I have converted a 2003 mdb to a 2013 accdb and now my modules won't compile. I get (for findfirst) - "method or data member not found". Do I need new reference libraries or something? code below:- mySQL = "SELECT * FROM [5-4AveSchoolBySector] ORDER BY [SID], [Sect];" Set myPercs =...

PHV - yes - thanks a bundle - it works !!!! I had previously tried ADDING a counter not altering one and that sometimes gave me the records in an odd order but as far as I can see this has solved my problem - I owe you a drink!

Sorry PHV - I may have spoken too soon - am testing agian now - will get back to you

I'd already tried that thanks but it doesn't reset to 1 - if there were 9 records in the table, I delete them, then add more and do the "alter" they still start at 10..... code below:- DoCmd.RunSQL "DELETE * FROM IpDetails;" DoCmd.TransferText acImportFixed, "DSFspec"...

I have a table with an autonumber/counter which has all records deleted (through code) and I wish it to reload the table starting at 1 (again through code). If I copy and paste the table (structure only) in the database window this has the desired effect but I can't find a way of coding this. I...

now in separate module and still "You can't compact the open database while running a macro or Visual Basic code" sigh sigh.......

vbaJock - if you're feeling very generous you could upload the form for me to check out any differences? Asking a lot I know... thanks for all the help so far anyway

well I just don't know - you must have a magic touch! And - no-one else has it open as I'm currently running it stand-alone on my personal PC

vbajock - I've tried it but I get "You can't compact the open database while running a macro or Visual Basic code" I've looked that up and found various postings but it doesn't seem to work for me no matter how I do it - have you actually got it to work?

you always want to start in A14 ? your e.g. might work - haven't you tested it? I was copying from another excel sheet but can't you just do MyExcelSheet.Range("A14").CopyFromRecordset rs1 won't it insert the full file starting at A14 if that's what you want?

this is excel 2003 but does it help? NoRowsinMySheet = MySheet.UsedRange.Rows(MySheet.UsedRange.Rows.Count).Row() this will give you the last used row and you can work it from there?