Search results

Here try this, you can call it from 'Worksheet_Activate' if you want it to run on open.... Sub LoopThroughCells() Dim cl As Excel.Range For Each cl In Worksheets("Sheet1").Range("F1:G500").Cells If UCase(cl.Value) = "OVERDUE" Then MsgBox "There is a project that is now...

Two things I would do, firstly decomile as desccribed here.. http://www.granite.ab.ca/access/decompile.htm This has solved 99% of phantom problems for me. Also have you tried jetcomp.exe you can get the exe here: http://support.microsoft.com/kb/295334 It can solve more issues with db...

Did you replace 'frmPayCalculationsSubForm' with the name of your subform?

or do a find and replace of every single ' with two single ' this will insert into the string as one. I normally set up a finction call SQLClean like the following, and run the string I am about to insert into it. Public Function SQLClean(strIn As String) As String SQLClean = Replace(strIn...

I have done this with success; Add a function similar to this to your form Private Sub RunFilter() Dim strFilter As String Dim bFilter As Boolean bFilter = False strFilter = "" If Nz(Me.comPeriod, 0) > 0 Then 'Period If Len(Nz(strFilter)) > 0 Then strFilter =...

Initially I did but if there is more than one autonumber field in the query it fails. none the less I did persevere and ended up doing if qdf.fields.count = 0 then turn it into a recordset and get the fields from that and that worked for some strange reason

I normally delete then add a new one using append if table exists with the link you want to change then delete it then run the following code Set db = CurrentDb ' Create a new table object Set tdf = db.CreateTableDef(strTableName) 'Set the appropriate properties to...

Type is in Filed.Type and Autonumber is in attributes, each number relates to a type that can be looked up in access help. this returns what you want. Public Sub EmunerateTables() Dim tdf As DAO.TableDef Dim fld As DAO.Field Dim TypeString...

Error getting field names from query Hi I have the following function designed to make a temp table out of a select query, it works for all queries except on one I get the error message: 3264 "no field defined--cannot append tabledef" The reason for this is when it gets to the "For Each fld...