Results 1 to 3 of 3
  1. #1
    Join Date
    Aug 2002
    Posts
    78

    Unanswered: Record continuation coding help.

    I have a form on my db for tracking pedigrees. It is connected to

    tblDogs
    DogID
    SireID
    DamID
    DogName
    SexID

    When originally making the form When I put the first record in

    Star (for Dogname) Jake (For SireID (Father)) and Shadow (for DamID(Mother))

    Upon hitting enter it would go to a Blank next record instead of Rotating to Jake then Shadow respectively.

    Code was added to correct this (or so I thought) Now, When adding initial record it will go to the next dog in the list but only to the second dog. Eg

    Entering Star Jake Shadow Will take me to Jakes record. After entering Jakes parents it should go to Shadow's. After entering Shadow's parents it should go to Jake's faher then mother then Shadow's fater then mother.

    Currently after hitting enter (even starting on blank record after dogs are entered) it goes to JAKE's Record ALWAYS (record 2).

    I have attached the db and will copy code here also.

    I need the records to go continually with out having to close the form all the time for it to refresh.

    Does anyone have a clue?

    Thank you

    t


    CODE:

    Private Sub Command13_Click()
    Dim strDog As String
    DoCmd.Requery
    DogName.SetFocus
    If RecNum > Me.DogID Then
    RecNum = Me.DogID + 1
    Else
    If RecNum = 0 Then
    RecNum = Me.DogID + 1
    End If
    End If
    strDog = DLookup("[DogName]", "tblDogs", "[DogID]=" & RecNum)
    DoCmd.FindRecord strDog, acStart, False, acSearchAll

    End Sub
    Attached Files Attached Files

  2. #2
    Join Date
    Sep 2002
    Location
    Land of OZ
    Posts
    173

    Re: Record continuation coding help.

    Hi T,

    i sent a copy of a modded db yesterday by responce to your email ...did you get it ...?

    M


    Originally posted by t_galownia
    I have a form on my db for tracking pedigrees. It is connected to

    tblDogs
    DogID
    SireID
    DamID
    DogName
    SexID

    When originally making the form When I put the first record in

    Star (for Dogname) Jake (For SireID (Father)) and Shadow (for DamID(Mother))

    Upon hitting enter it would go to a Blank next record instead of Rotating to Jake then Shadow respectively.

    Code was added to correct this (or so I thought) Now, When adding initial record it will go to the next dog in the list but only to the second dog. Eg

    Entering Star Jake Shadow Will take me to Jakes record. After entering Jakes parents it should go to Shadow's. After entering Shadow's parents it should go to Jake's faher then mother then Shadow's fater then mother.

    Currently after hitting enter (even starting on blank record after dogs are entered) it goes to JAKE's Record ALWAYS (record 2).

    I have attached the db and will copy code here also.

    I need the records to go continually with out having to close the form all the time for it to refresh.

    Does anyone have a clue?

    Thank you

    t


    CODE:

    Private Sub Command13_Click()
    Dim strDog As String
    DoCmd.Requery
    DogName.SetFocus
    If RecNum > Me.DogID Then
    RecNum = Me.DogID + 1
    Else
    If RecNum = 0 Then
    RecNum = Me.DogID + 1
    End If
    End If
    strDog = DLookup("[DogName]", "tblDogs", "[DogID]=" & RecNum)
    DoCmd.FindRecord strDog, acStart, False, acSearchAll

    End Sub
    Mona
    ________________________________
    Life is too short to be sane or sensible. Weird people rule and normal people suck

  3. #3
    Join Date
    Aug 2002
    Posts
    78
    Haven't checked as of yet as have been extremely busy. :::::::::::Running to mail box with such excitement:::::::::::::::


    Thanx Mona you are the bestest

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •