OnLoad Help

[James]

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

 

[Pat Hartman\(MVP\)]

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?