Recent content by ecawilkinson

put single quotes around settled instead of double, e.g. 'settled'

in the VBA editor, go to Tools>References, then browse...change the file filter to .mdb and select the db containing the module. It is for this reason that it is always good to change the VBA project name to something meaningful. Obviously the module has to be in database. HTH, Chris

What else is in strWhere before you add: strWhere = strWhere & " ([Company] Like '" & Me.txtSearchCompany & "*')" because I set up a table and a form with variables named exactly as above and I get no error. I need to see the whole string. Comment out the Me.filter = strWhere and replace it...

What error does it give? Have you put in a debug.print strWhere to see what the contents of string actually are? I can only help so much...

hi, if you only want word beginning with then alter my code as follows: strWhere = strWhere & " ([Company] Like '" & Me.txtSearchCompany & "*')" (I just removed the first wildcard (*) so now if txtSearchCompany is Unity, then Unity Hospital, Unity Bridge and Unity Cakes would come up.) Is...

if I have understood you right, try: strWhere = strWhere & " ([Company] Like '*" & Me.txtSearchCompany & "*')" if txtSearchcompany was Light, then the search would bring up companies called, Electric Light Company, Light Machines Ltd and SearchLight. HTH, Chris

Pop79, this would work as well: Case "CONNECT" ODBCStatus = 3 UpdateConnectionStatus DoEvents ConnectToData UpdateConnectionStatus HTH, Chris

Chaitanyat2001, the command Followhyperlink is peculiar to access, which is why it will not work in Visio. although all the Office applications use VBA, each has its own object model which means each has its own individual objects that are appropriate to the application. Even though some...

use this structure: sub subname() on error goto err_handler ' err_handler is just a user-defined name, no set in stone ' code goes here exit_sub: exit sub err_handler: if err.number = [enter the errror number you get] then msgbox ""%file% could not be scanned, a log will be...

hi Paul, In the Form that you are opening put: Private Sub Form_Open(Cancel As Integer) If Me.Recordset.RecordCount = 0 Then Cancel = True End If End Sub then open the form like normal in the on_click of the command button. HTH, Chris

RaggaJunglist, the reason I used cdbl(yourdate), is so that you do not run into date conversion problems. Using #30/04/08# is easy to handle, as Access makes an educated guess but if you are in UK and put #05/04/2008#, The DAO SQL will take that as 4th April 2008 not 5th May 2008. Do as I did...

hi, create a procedure in a module: function ArchiveTables() Dim tdf As DAO.TableDef Dim db As DAO.Database Dim fld As DAO.Field Dim yourdate As Date Dim lErr As Long yourdate = DateAdd("m", -1, Date) ' one month ago Set db = CurrentDb For Each tdf In...

in the onClick procedure for the button, put: chkYourCheckBox.value = true obviously, subsititute chkYourCheckBox with the actual checkbox name in your db. HTH, Chris

Could you be a bit clearer? When you say auto-archive, how are you going about it? I assume that you want to move any records older than a certain date to in a table to an archive version of the table. Also, did you define "last modified date" fields for each table to help you work out which...

try: n = 2 temp01 = xlSheet.Range("F" & n).Value temp02 = xlSheet.Range("B" & n).Value 'if IFF_description is a numeric field temp01 = dlookup("IFF_name", "IFF_Descriptions","IFF_description =" & temp02) ' if IFF_description is a text field temp01 = dlookup("IFF_name"...