Recent content by shay

Russiver Type HighestAchievement: IIf([Advanced],"Advanced",(IIf([Intermediate],"Intermediate","Novice"))) in a column in a select query. Select queries only select data - they don't do anything to underlying tables. shay

Thanks for the reply. I opted for VBA because there are 4 things that need to happen depending on whether the customer is in the UK, European Union or elsewhere. shay

Hi I would base my report on a query which included following: IIf([Advanced],"Advanced",(IIf([Intermediate],"Intermediate","Novice"))) AS HighestAchievement shay

Hi I have a report which prints invoices. There are some simple sums in the code behind the report (Report_Page) to calculate the VAT due (some invoices are for people outside the UK who don't pay VAT). The numbers look fine apart from the first invoice ie it doesn't do the sums until page 2...

Thanks to both for your replies. The other thread was interesting and it's good to know I wasn't being daft. Many thanks shay

Hi all I'm working in Access 2000 for the first time and all was well until I introduced a wizard-created Switchboard. I created the Order Entry database using the Access wizard and copied the Switchboard form and tables into my database. Since then I keep getting the following message...

Hi all I'm using Access to reformat some data - not what it's designed for I know but it's the only tool I have available at present. Basically I need to be able to lookup a field name and write some data to it. I've attached the bit of code where it's falling over. For ic = 1 To...

Hi there You've got 'str_FirstName2 As String' twice in the argument list. shay :cool:

HI I suppose the values being displayed in your continuous form are stored in a table. I think I would use the DCount function - something like this: Private Sub txtMyValue_AfterUpdate() If DCount("*", "MyTable", "[MyValue]=" & Me.txtMyValue) > 0 Then MsgBox "Duplicate value."...

Try Private Sub txtPurchaseDate_AfterUpdate() Me.txtExpiryDate = DateAdd("yyyy", 5, Me.txtPurchaseDate) End Sub shay :cool:

Check your tables. You've got an index set to 'no duplicates' and you're trying to enter a value which would result in an index being duplicated therefore Access is blowing a raspberry! Have you compacted the db? This should reduce the size and you may then be able to attach it. hth shay :cool:

Or try this one-line solution... me.txtChequeNo.enabled = (listPaymentType = "Cheque") hth shay :cool:

A possible solution is ... Private Sub txtProjectID_AfterUpdate() Me.txtOrderNo = 1 + DCount("*", "tblOrder", "[ProjectId]=" & Me.txtProjectID) End Sub This assumes that the order number and project ID are stored in a table called "tblOrder". Create a form based on the table, with two text...

'twas a pleasure! shay :cool:

Actually I'd make the sub Private - I was in a rush when I knocked up the code! shay :cool: