Search results

With 216 Birds it takes 6 seconds

Good idea. Every one i know is around my age. So no one will be using it.

Would this slow things down GetBirdSeason([Hen])=2011 Or GetBirdSeason([Hen])=2016 Or GetBirdSeason([Hen])=2022 Or GetBirdSeason([Hen])=2029 Or GetBirdSeason([Hen])=2035 Or GetBirdSeason([Hen])=2041

Yes i do have a lot of doubling up. It might be the first thing i do. With the on paint there is a lot of screen flicker which is annoying. Will look at conditional formatting also. Thanks

The Colors are stored in the tbl_Birds and looked up from tbl_RingColour I have a query PartnerShip_Season that gets the info.

Cheers. I am having a look at isladogs ColourConverter to see if it will work for me.

i have added a table tbl_Season. as you can see the federation have set the season colors until 2025

What i am trying to do is color code the ring numbers. I tried to use a class module but didn't know what i was doing, so tried this Private Sub Form_Current() Dim DadColor, MumColor DadColor = DLookup("[RingColour]", "tbl_Birds", "RingNo = " & "'" & Me.**** & "'" ) MumColor =...

Distance between 2 address's For those that want is. I use it in New Zealand and works even between islands. From memory I think you can get the travel time as well. Private Sub Update_Distance_Click() On Error GoTo Update_Distance_Click_Error Dim vTown Dim VarD As String...

Had to read it a few times to fully under stand it. Thanks so much for all the work you have done. Very grateful.

I agree with you I have learned so much, Not just the matrix of it all, but coding as well. I have done a lot of re-writing of code similar to what you have done. One problem i was getting was stack over flow, until i worked out it was the -1 pair. I put that pair's season at 1900 then in the...

Yes as well When adding a bird do i still use CreatePedigree BirdID, BirdID, BirdID or AddUpdatePedigree BirdId

That works a treat and will i use it. 2273 KG and 4925 H What would the % be (The relationship = 12.5% i think) Brother sister is that 100% Brother Mother 50% Also Check out 137 and 107. Both these birds were bought this year with out any breeding data.

Very interesting, I will look at them. @MajP: did you have a look at the distance code.

Thanks. Still going through every thing to under stand it. Which is the better way of adding to a table. strSql = "Insert INTO tbl_Pedigree (BirdID, AncestorID, PairID, Generation, PathKey) VALUES (" & StartingBirdID & ", " & BirdID & ", " & PairID & ", " & Generation & ", '" & PathKey &...

No not really. It's me been lazy so when i open that table i can see who the parents are. If it is removed i will have to change some code as i use to goto record. But thats not a problem. The same as i have a problem with some of the combo box's and to get around i enter this on open. Private...

Yes you are right. I use 4 as unknown gender until I find out what it is. The gender is setup for the New Zealand show class's. Some birds you can't till the difference of the genders, so in the shows we have a class for both. (1. **** 2. Hen 3. Both **** and Hen). I have used 2 fields. 1 is the...

One of my combo box's (co_Colour) on the form frm_Allbirds doesn't display it's data when i load the form unless i requery it. Working on it now.

Would it be possible to do a trial on two birds to check the AVK and Inbreeding before i pair them together.