Search results

Hi Fabio The .Column(x,y) property is read only so you can't set it You could try the following.... Use a variable to read the value of .Column(1) at row number(n) Then remove row(n) completely using the .removeitem(n) method Then re-add the row using .additem YourVariableName & ";" &...

Sorry....may have misread your post, is Column One already populated and you are just trying to populate column2 ?

To leave column one blank and just populate column two, try... me.combo0.additem ";" & strProj & ";" ....and delete the line in red

Hi Ridders Suggest you upload your version as it is a clear enhancement which will satisfy the curiosity of many a developer. I wrote the original purely because I wanted some facts for a Powerpoint presentation

I have added it to the code repository, it will viewable after it has been moderated Quite happy for anyone to adapt, enhance and repost it to the repository My code count is current 284 functions and 131,761 lines of code

Hi This is something I wrote for my own curiosity because I wanted to know how many lines of code were in a project but it may be useful to other developers. It is a fairly simple sub which seqentially examines all tables, forms, reports and modules in a project and produces stats about...

Hi Arnel is correct, this is only for use on design masters not ACCDE files issued to users and "yes", it should count itself in the stats as it saved in a module Count of code lines is somewhat subjective as there will be rem & blank lines which I haven't bothered to exclude

Hi This will give tell you anything you ever wanted to know about your VBA project In addition to modules, this will count code hidden behind forms and reports. You will need to close/open your database after it has run as it opens and closes all forms, reports etc etc. Sub ProduceStats()...

and following on from CJ..... MetricsGraphAptCount.right([CCC-AAA],6) needs to be Right(MetricsGraphAptCount.[CCC-AAA],6)

Suggest you post the SQL you are trying........there may be an obvious syntax error

asSql = "SELECT mailings.Email FROM mailings WHERE mailings.reportsto = ' " & asMatch & "'" Looks like there is a space in the criteria which will affect results, try mailings.reportsto = '" & asMatch & "'"

Thanks Colin - I usually list variables vertically but thought I'd try and save some space given the verbosity of the code

Luchi - This is a skeleton to which you need to add flesh It is written using Access 2010 and I have tried to explain the code as much as possible Sub Test() '''''''''''''''''''''''''''''''''''''' ' a) This assumes outlook is your email client ' ' b) In Tools/References you may have to tick...

OK...I will send you some code tomorrow if no one else responds in the mean time

Hi Luchi I had a brief look back at your other post today, so before I go any further, is my understanding of your problem correct ? a) You want open a recordset in Access b) Loop through the entries c) Send data to Excel (providing there are records) d) Email the Excel spreadsheet

Sorry it is 40 years since I did any German, but you will get syntax errors if there are blank spaces in your field names. You need to enclose them in brackets eg SELECT [Email Ansprechpartner],[Op# Beschaffer] etc.

Sorry but as I am a Forum member who doesn't post a great deal....... How does one actually mark a thread as [SOLVED] ? I can't see a a suitable emoji or a tickbox etc. so it just a case of adding "[SOLVED]" to the title of the post ?

Just tried this SQL on Table which had 10 entries The first part of the SQL extracts surnames starting A,B or C The second part extracts the rest but they just show as empty rows SELECT Surname,FirstName FROM MyTable WHERE Surname Like '[A-C*]' UNION ALL SELECT Null,Null FROM MyTable...

Sounds like you need a UNION query with the first element showing records that match your criteria and the second element showing records that don't but with null values replacing field names

Hi Wapug Have you considered just using a parameter query instead of a form ? This isn't for purists but if you Copy and Paste this SQL into your query it will ask you to enter the month and then filter accordingly PARAMETERS [Enter Month] BYTE; SELECT * FROM tTeamScore WHERE...