Search results

  1. M

    Opendatabase problem

    Hi, I'm trying to open one database from another usin the following code and using the click of a button to drive it. Private Sub Command0_Click() On Error GoTo Err_Command0_Click Dim PAX As String PAX = "N:\\\\\\\review\XBD\XeBeDee.mdb" OpenDatabase PAX Exit Sub Err_Command0_Click: MsgBox...
  2. M

    Transfer problem

    Hi, I'm trying to import a query from another access database. The code appears to work, the query name appears in the query folder. However when I try to open the query I get the message that the jet engine cannot find the table that the original query is based on. The code I'm using is...
  3. M

    Report field conditional format

    I'm trying to put a conditional format on a report field using vba in access 97 with little success. Basically there are two date fields [Date Forecast] and [Date Actual]. If [Date Actual] exceeds [Date Forecast]then the background colour of the field needs to turn red and the text white. The...
  4. M

    List of Queries

    Within one of the databases I have, there are a large number of queries and I need to do some serious housework (ie delete those queries that are no longer used). Does anyone have any quick slick code to output a list of all these queries to a printer?
  5. M

    Dlookup

    My database has table [MCR Table] with primary key field [REA Number] plus several other fields. When entering a new record using [MCR_Input_Form], the REA Number is the first thing entered and gives an error message if that value already exists in the MCR Table. Unfortunately this means that...
  6. M

    Left function

    I'm trying to strip out an initial in a query from a Forename field. I'm using 'Left([Forename],1)' but all I'm getting is '#Error'. Am I missing something or does Access 97 not actually respond to this function?
  7. M

    Check box code

    Having problems getting this code to work on a form using ‘On Current’ event. If IsNull([MECHOPNO]) = True Then [Check310].Enabled = True Else: [Check310].value = "No" [Check310].Enabled = False If IsNull([ELECOPNO]) = True Then [Check308].Enabled = True Else: [Check308].value = "No"...
  8. M

    Update Queries

    I'm trying to update one table with three fields from another(MTI Number, Error Code, Site). Both tables have the same field names and the common link between tables is via a field called MCR I've put them both in a query - converted to an update query and set the update field on the query to...
  9. M

    Fixing dates

    I have a query looking at a table looking at several fields. Two of these fields are [Designer] and [Start Date]. Because I want to be able to calculate the length of time a designer takes on a particular job I need the start date to be fixed. Calculations can then be based on that date. However...
Back
Top Bottom