Search results

Tried it with exported/imported Access tables and the OnCurrent event only passes once. Peter

Not sure if this 'answers' my own question or not but I have stopped the looping. I exported the 3 table in question to excel and then imported them back into Access under new names. My reasoning being that if their was corruption it would either fall over or correct it. No errors came up...

Just as I had finished tidying up the original !! Thanks vbaInet I will try what you suggest peter PS Is this forum running slowly or is just my connection?

Thanks you are right except it is 'Equipment Record' the Form but its control name is just 'Equipment'. Correcting that fixed it. I'll try to be more consistant in future! Peter

I thought it must be a spelling mistake but I cannot find it! It is complaining about the Me.equipno line and says it can't find the FILE 'Equipment Record' peter

That makes me feel a little better that it is baffling you, thanks again! I am going to set about it and go through all the code to try and sort it out. It is nearly done but have hit a snag in opening a form from the subform 'Equipment Record'. (post: Error 2465.....) I wonder if it relates to...

I am getting this error when I try to update a control on a form from a control on an open subform. The subform has a button which open this new form and in a GotFocus event I have the following code: If IsNull([inspect_equipno]) Then Me.equipno = Forms![Call Entry]![Equipment...

Aggh, 3 out 10 for me! Thanks for the time, effort and help from both of you. Chris I forgot to include a Module when I shrunk the db and some of the variables are dimensioned there as Global. However not all of them so I have now cleaned that up. There were 4 equipment records assigned as...

Did you remove the Me.labour = lab line to 'clean' it, or something else? There are links in the original db, of which this is just a part, but I didn't set them up for the part I posted. I have attached it with them completed.

Note to users. Don't compose a reply, then try to add to someones reputation before posting. You loose your post !!!!???? Thanks vbaInet, one or two questions. How can you 'see' the Call Record form is Dirty? If I i=understand you correctly the editing in OnCurrent is making some fields...

After much fiddling around I have managed to cut the db down to just the required parts to post. Autoexec will open the main form and the code window for the sub-subform will open with the Oncurrent code to be stepped through. For the first 'run' it only goes through once. Move to the next...

Meanwhile this is the code of the OnCurrent event Private Sub Form_Current() On Error GoTo Callform_current_error Dim tim As Variant Dim lab As Currency Dim serial As Variant Dim instdate As Date Dim expiredate As Variant Dim TestDate As Date Dim equip As String Dim cust As String Dim callno As...

I will see if I can 'reduce' it ! Meanwhile, is there any other way of tracing the way the code is being actioned?

Thanks, that fixed it! pnb

I have added some new code to some I wrote a long time ago and during debugging it I found that the On Current code was being actioned twice. Is that normal? I used a breakpoint and stepped through the code and there does not appear to be any code run elsewhere between the 1st and 2nd pass?

I am getting this error on a simple SQL statement StrSql = "SELECT * FROM Equipment WHERE [equip_index] = Me.[calls_equip_sno]" Set StrDb = CurrentDb() Set StrRst = StrDb.OpenRecordset(StrSql) both [equip_index] and Me.[calls_equip_sno] are Long Integers Where am I going wrong?

That is a really useful piece of code! I don't know anything about html but sort of see how your code works. Would this site be too complex to achieve the same thing? http://www.x-rates.com/d/GBP/table.html This site also enables you to choose the country you want to 'start' with (shown on...

Brilliant, thanks!

I have some code on the click of a button of a form which checks for the existence of a word document and if it is there starts word and opens the document. imagerecno = Trim(Str(return_no)) strDocName = imagerecno & ".doc" FullPath = "Z:\Database\2000\Returns\Docs\" & strDocName 'Check folder...

True but it is not as accurate ! I believe the resolution is only one second