Search results

Thanks guys - not quite there yet. Sam F perhaps I should have said I'm trying to get this to happen with Access 97. Using your code I get "Invalid procedure call or argument". I'm not sure that Access97 recognises 'retval' Any other thoughts?

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...

I've just discovered that if I have a linked table it seems to work. I was hoping to run the query in the external database and the import the results

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...

Spot on! Thanks for that - I now have two different ways to highlight.

Unfortunateley 'Backcolor' and 'Forecolor' do not seem to be options in access 97 using this code the fields appear blank

Already knowing that I was trying to see if there was a way round it using vba. The closest I've come is to highlight the whole record line rather than the individual fields using... Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim pod As Date Dim dop As Date cd = cd + 1...

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...

What a useful tool - Many many thanks

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?

Just to close this one off. I've now attached the code to a button on the form and it works. Seems it just didn't like being part of a contol box. But thanks to all contributors for their help.

that seems to work for the first record but if I the tab back to try another number it seems to disregard the code. I've tried this 'on exit' event , 'before update' event, as Rich suggested, and also 'on current' - all seem to have the same effect. I don't know if this would have an effect on...

Unfortunately has the same effect as before.

Tried that but now no message appears whether the number exists or not - but if you've got any other ideas I'm willing to try :confused:

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...

Its populated with 'Fred' 'Bill' etc. etc. and the field in the table that the query is based on, is a text field.

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?

Many Thanks - that works beautifully

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"...

All OK now - had already checked table fields for input mask etc. problem was me! I got confused with the 'Update to' line in the query. Thanks for replying though - Martino