Welcome to SPN

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

Sign Up Now!

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
    >
     

Share This Page