You need at least two records before the SQL will work correctly
The SQL criteria does not cater for the scenario of trying to find duplicate entries in a table which only has one record
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 & ";" &...
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()...
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 & "'"
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...