Recent content by Peter Bellamy

Thanks one and all, especially spikepl. The Company is a small family run manufacturer with no IT department and no money to spend on external IT specialists (they tell me:)). The db was written by a previous product development manager who could see a need and knew a bit of Access and put it...

The db is for a manufacturer and records all the salient details of a product and its major components. This gives the Company traceability of who, what and when. The tables are in a Back End db with no forms, queries reports etc. I have zipped the whole db as is, easier and quicker for me than...

Thanks for your help, everyone. The Table, one of many, is allready normalised, if avoiding duplicate data in other tables, is what you mean. The only simplification that could be made is to split it, but one of the results of that would be 41 fields anyway so I am not sure it helps me with my...

Silly question, how do I post the table design?

I have been working on a copy of a database to introduce some new forms and data fields. The major data change is an increase of 10 more fields to one particular table. I now want to implement the change to this table, ie put the data from the live version of the table, which has more records...

Thanks everyone, that now works a treat!

I am not gifted but this is how I would proceed. It should be fairly easy to calculate what % of goal has been achieved for the last 4 and 6 momths, working with the highest level downwards. When the sales 'level' has been determined than check the individuals current sales status which I would...

This is the code I am using: Private Sub ImpDate_BeforeUpdate(Cancel As Integer) Dim db As Database Dim rec As Recordset Dim answer As String Set db = CurrentDb() Set rec = db.OpenRecordset("SetupData") rec.FindFirst "param_current = -1" Me.DateLast = rec("param_inc_date") rec.Close If...

Thanks Dave, That however puts me in a loop I cannot break, not even to close the form, unless I provide a suitable date? pnb

Paul, thanks. The control has the value for the before update event but it will not accept the SetFocus command (back on its self as it were) pnb

I am testing the date entered in AfterUpdate of a control and want the user to re-enter it if conflicts with existing data. I have coded the testing and bring up a yes/no message box if it does not comply and want the focus to stay on the control if they answer No (7). I have tried using...

Thought I'd fixed this but it is still opening a new record even when NO is chosen. Can someone point out my mistake.........please. Private Sub goods_notes_Enter() L = 1 Debug.Print "Notes Entry", L, Me.Cycle End Sub Private Sub goods_notes_Exit(Cancel As Integer) On Error GoTo...

I would suggest you consider altering the ss layout so that row 1 has all the column headers. Make Column A 'Date' and put the date, presumeably of last update the sheet, in 2A. Access will table it with a wizard but make sure you choose the correct data types as it does.

Have you tried linking to the Excel spreadsheet? Then you can treat it as an Access table.

Thanks Bob, I knew there was a control in there somewhere! peter