Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!
  1. Monthly (Recurring) Target: $300 :: Achieved: $95
      Become a Supporter    ::   Make a Contribution   

OnLoad Help

Discussion in 'Information Technology' started by James, Jul 28, 2006.

Tags:
  1. James

    James
    Expand Collapse
    Guest

    When the database loads I need to to check a field (ReleaseName) to
    check and make sure that if the Date has pased that we change it to
    Production.I am using a LoadData Function that retrieves all the data
    via a query variable from another database. The query (m_sourceData)
    is loading multiple fields, one of which is ReleaseName which is the
    one I want check.


    Dim fm As New FormManager

    'Data source name
    Private m_sourceData As String

    Private Sub Form_Load()

    Dim Today As Date
    Dim Releases() As Variant
    Dim ReleaseName As Variant
    Dim Count As Integer

    m_sourceData = "Offerings_Display" <This is the query that pulls
    ReleaseName from the other database>
    LoadData

    Count = -1
    For Each ReleaseName In ______________________________

    Count = Count + 1

    Next ReleaseName

    ReDim Releases(Count)

    Count = -1

    For Each ReleaseName In _______________________________

    Count = Count + 1
    filter(Count) = ReleaseName

    Next ReleaseDate

    End Sub


    Private Sub LoadData(Optional searchParams As Variant)

    Set dataHolder = Nothing
    If Not IsMissing(searchParams) Then
    If IsEmpty(searchParams) Then
    Set dataHolder = fm.GetFormData(m_sourceData, False)
    Else
    Set dataHolder = fm.GetFormData(m_sourceData, False,
    searchParams)
    End If
    Else
    Set dataHolder = fm.GetFormData(m_sourceData, False)
    End If

    LoadList
    End Sub
     
  2. Loading...


  3. Pat Hartman\(MVP\)

    Pat Hartman\(MVP\)
    Expand Collapse
    Guest

    I'm not sure why you are doing this with a code loop and an array. Why not
    just add criteria to a query that selects/updates the records that satisfy
    the date criteria?

    "James" <jamesburkett@gmail.com> wrote in message
    news:1151330465.037235.101140@y41g2000cwy.googlegroups.com...
    > When the database loads I need to to check a field (ReleaseName) to
    > check and make sure that if the Date has pased that we change it to
    > Production.I am using a LoadData Function that retrieves all the data
    > via a query variable from another database. The query (m_sourceData)
    > is loading multiple fields, one of which is ReleaseName which is the
    > one I want check.
    >
    >
    > Dim fm As New FormManager
    >
    > 'Data source name
    > Private m_sourceData As String
    >
    > Private Sub Form_Load()
    >
    > Dim Today As Date
    > Dim Releases() As Variant
    > Dim ReleaseName As Variant
    > Dim Count As Integer
    >
    > m_sourceData = "Offerings_Display" <This is the query that pulls
    > ReleaseName from the other database>
    > LoadData
    >
    > Count = -1
    > For Each ReleaseName In ______________________________
    >
    > Count = Count + 1
    >
    > Next ReleaseName
    >
    > ReDim Releases(Count)
    >
    > Count = -1
    >
    > For Each ReleaseName In _______________________________
    >
    > Count = Count + 1
    > filter(Count) = ReleaseName
    >
    > Next ReleaseDate
    >
    > End Sub
    >
    >
    > Private Sub LoadData(Optional searchParams As Variant)
    >
    > Set dataHolder = Nothing
    > If Not IsMissing(searchParams) Then
    > If IsEmpty(searchParams) Then
    > Set dataHolder = fm.GetFormData(m_sourceData, False)
    > Else
    > Set dataHolder = fm.GetFormData(m_sourceData, False,
    > searchParams)
    > End If
    > Else
    > Set dataHolder = fm.GetFormData(m_sourceData, False)
    > End If
    >
    > LoadList
    > End Sub
    >
     
Since you're here... we have a small favor to ask...

More people are visiting & reading SPN than ever but far fewer are paying to sustain it. Advertising revenues across the online media have fallen fast. So you can see why we need to ask for your help. Donating to SPN's is vote for free speech, for diversity of opinions, for the right of the people to stand up to religious bigotry. Without any affiliation to any organization, this constant struggle takes a lot of hard work to sustain as we entirely depend on the contributions of our esteemed writers/readers. We do it because we believe our perspective matters – because it might well be your perspective, too... Fund our efforts and together we can keep the world informed about the real Sikh Sikhi Sikhism. If everyone who writes or reads our content, who likes it, helps us to pay for it, our future would be much more secure. Every Contribution Matters, Contribute Generously!

    Become a Supporter      ::     Make a Contribution     



Share This Page