Search results

Slightly off topic I know. I am sorting out some promo stuff for my access livestock system. I am looking for clip art cartoon cow sitting in front of a pc. Done google image searches etc and can not find what i want. Anyone any suggestions where else i could look TIA David b

Got it now Many thanks for your help David b

At the end of the code to create the message i have this but it is not doing as it should. what have I missed ? The test button is always returning No Dim pbooClickTest As Boolean pbooClickTest = True Db

OK thanks for the reply. Not sure how to do that. DB

I have a form with a sub form which displays a number of record which are to send to an email in outlook. On the form is a button which creates the email. On the form`s close event I want to check if the create email button has been clicked and if yes run an update query to mark the records as...

Chewy Thanks for your example. Need to sit down later tonight and look at all this stuff David B

Have`nt passed go yet. Maybe I am too young to remember how to do the dos stuff <g> David b

Couple of years ago saw a dos backup routine which sat on the desktop . It was soooo simple The line said something like Copy C:\blah\blah, A:\ Trouble is I can not get it to work. Anyone remember back to dos? David B

I would like to include a back up routine in an app. Idealy click a button on the front end to copy the back end to a floppy. Any thoughts on how to do this TIA David B Hexham UK

Thanks for replying. Just figured it out using If left(tagno,2)<>"UK" then Exit sub else etc David b

I have an error checking routine behind a control on a form. I only want the routine to run if the first 2 charactors entered in the control are "UK" What do I need to do this. Been trying Like "UK*" with no success TIA David B Hexham UK.

That what I needed Thanks Jack

I have some error checking code in the after update event of a text box on a form. If an error is found a msg box appears. When the msg box is closed I want the focus to be back to the text box instead of moving through the tab order as usual. I thought this should work but it doesn`t. Also...

Been fiddling with some thing like this. Do you see any problems with it David > Const strcTest As String = "UK107248500321" > > Dim strTemp As String > Dim varNum1 As Variant > Dim varNum2 As Variant > Dim varNum3 As Variant > Dim varNum4 As Variant > > strTemp =...

Still getting an overflow message David

Thanks for the reply I am getting "overflow" on this line If (Val(strTagNumber) Mod 7) + 1 = intCheckDigit Then - What is causing that ? David

Thanks for the replies. For births after 01/01/2000 the tag is always the same format so i will start with - If DOB = >01/01/2000 then -- The check digit is always in the same place The sum is "old fashioned" long division. remember that ? The answer I get is 1532114331 remainder 4 Add 1 to...

In my livestock app I need to check the ear tag number of cattle using a check digit. The tag numbers are pre issued by the agriculture dept in this format. - UK107248500321. In this example the 5 is the check digit. The number with the 5 taken out - 10724800321 is divided by 7 and 1 is added...

Thats cracked it. Many thanks for your help David B

YEEEEEEEEEEEES progress at last. many thanks. One little problem - It is grabbing the first record twice. What is causing that ? David B