Search results

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:

If you've put FormatCombo in a module, the code won't work because it won't understand what 'Me' is. Put the FormatCombo sub with the code behind the form and it should work. If you want to be able to call FormatCombo from more than one form you will need to pass the form name to FormatCombo...

ByteMyzer Thanks very much. It was good to see a working example. Thanks again shay

Kupe Try this... Private Sub Form_Current() FormatCombo End Sub Private Sub MyCombo_BeforeUpdate(Cancel As Integer) FormatCombo End Sub Public Sub FormatCombo() If Me.MyCombo = "Yes" Then Me.MyCombo.BackColor = vbRed Me.MyCombo.ForeColor = vbWhite Else...

I'd knocked up a quick example and think I put the code in the combo's beforeupdate event. Thinking about it you might need to use the current event also to ensure the colours change when viewing existing data. shay

Hi all I've done a quick search and read that you can import XML files in Access XP and Access 2003. Can you do this with any other versions? TIA shay :cool: