Welcome to SPN

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

Sign Up Now!

Help me if you can....

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

Tags:
  1. James

    James
    Expand Collapse
    Guest

    I'm stuck and I need some help... I'm an intern trying to help update
    some code... Here's what I've got: A form that on load, updates some a
    field (ReleaseName) to "Production" if the release date has passed...
    Anyways, they've got it set up where it's going through all these class
    modules and i've never delt with them before... Anyways, I keep getting
    a compile error (invalid use of property) at : dataHolder.Dataset in
    the load data... any ideas from what I've given you as to how to fix
    it? Thanks


    Here's My Forms On Load Code:

    Option Compare Database
    Dim fm As New FormManager
    Dim dataHolder As DataSource
    'Data source name
    Private m_sourceData As String
    ------------------------------
    Private Sub Form_Load()
    On Error GoTo Err_Form_Load

    Dim strDate As String
    Dim ReleaseName As String
    Dim varItm As Variant
    Dim rs As ADODB.Recordset
    Dim Display As Integer


    strDate = Format(Date, "yyyy/mm/dd")
    Dim Store As Variant

    m_sourceData = "UpdateToProduction"

    LoadData

    dataHolder.Dataset

    Do While Not dataHolder.Dataset.EOF

    If dataHolder.Dataset.Fields("ReleaseName") <> "Production"
    Then
    If dataHolder.Dataset.Fields("ReleaseName") < strDate
    Then
    dataHolder.Dataset.Fields("ReleaseName") =
    "Production"
    End If
    End If

    dataHolder.Dataset.MoveNext
    Loop

    If Not dataHolder.UpdateData Then
    Display = MsgBox("Update Failed", vbOKOnly, "Database Update")
    Else
    Display = MsgBox("All Release dates prior to " & strDate & " are now
    listed under 'Production'.", vbOKOnly, "Database Update")
    End If


    Exit_Form_Load:
    Exit Sub

    Err_Form_Load:
    MsgBox Err.Description
    Resume Exit_Form_Load

    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, True)
    Else
    Set dataHolder = fm.GetFormData(m_sourceData, True,
    searchParams)
    End If
    Else
    Set dataHolder = fm.GetFormData(m_sourceData, True)
    End If

    End Sub




    +++++++++++++++++++++++++++++++++++++++++++++++

    Class Module: DataSource_Jet
    +++++++++++++++++++++++++++++++++++++++++++++++

    'DataSource for Microsoft Jet databases

    Option Compare Database

    Private m_conn As ADODB.Connection
    Private m_rst As ADODB.Recordset
    Private m_fieldCount As Integer
    Private m_initialized As Boolean
    Private m_isUpdateable As Boolean
    Private m_isEmpty As Boolean
    Private m_isDirty As Boolean
    Private m_recCount As Long
    Private m_isError As Boolean
    Private m_errorMessage As String
    Private m_identity As Long

    Implements DataSource

    --------------------------------------
    Public Property Get DataSource_Dataset() As ADODB.Recordset
    If m_isEmpty Or Not m_initialized Then
    Exit Property
    End If

    Set DataSource_Dataset = m_rst
    End Property
    -------------------------------------------
     
  2. Loading...


  3. James

    James
    Expand Collapse
    Guest

    nevermind... i just need to take it out... there was a
    misunderstanding...
    James wrote:
    > I'm stuck and I need some help... I'm an intern trying to help update
    > some code... Here's what I've got: A form that on load, updates some a
    > field (ReleaseName) to "Production" if the release date has passed...
    > Anyways, they've got it set up where it's going through all these class
    > modules and i've never delt with them before... Anyways, I keep getting
    > a compile error (invalid use of property) at : dataHolder.Dataset in
    > the load data... any ideas from what I've given you as to how to fix
    > it? Thanks
    >
    >
    > Here's My Forms On Load Code:
    >
    > Option Compare Database
    > Dim fm As New FormManager
    > Dim dataHolder As DataSource
    > 'Data source name
    > Private m_sourceData As String
    > ------------------------------
    > Private Sub Form_Load()
    > On Error GoTo Err_Form_Load
    >
    > Dim strDate As String
    > Dim ReleaseName As String
    > Dim varItm As Variant
    > Dim rs As ADODB.Recordset
    > Dim Display As Integer
    >
    >
    > strDate = Format(Date, "yyyy/mm/dd")
    > Dim Store As Variant
    >
    > m_sourceData = "UpdateToProduction"
    >
    > LoadData
    >
    > dataHolder.Dataset
    >
    > Do While Not dataHolder.Dataset.EOF
    >
    > If dataHolder.Dataset.Fields("ReleaseName") <> "Production"
    > Then
    > If dataHolder.Dataset.Fields("ReleaseName") < strDate
    > Then
    > dataHolder.Dataset.Fields("ReleaseName") =
    > "Production"
    > End If
    > End If
    >
    > dataHolder.Dataset.MoveNext
    > Loop
    >
    > If Not dataHolder.UpdateData Then
    > Display = MsgBox("Update Failed", vbOKOnly, "Database Update")
    > Else
    > Display = MsgBox("All Release dates prior to " & strDate & " are now
    > listed under 'Production'.", vbOKOnly, "Database Update")
    > End If
    >
    >
    > Exit_Form_Load:
    > Exit Sub
    >
    > Err_Form_Load:
    > MsgBox Err.Description
    > Resume Exit_Form_Load
    >
    > 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, True)
    > Else
    > Set dataHolder = fm.GetFormData(m_sourceData, True,
    > searchParams)
    > End If
    > Else
    > Set dataHolder = fm.GetFormData(m_sourceData, True)
    > End If
    >
    > End Sub
    >
    >
    >
    >
    > +++++++++++++++++++++++++++++++++++++++++++++++
    >
    > Class Module: DataSource_Jet
    > +++++++++++++++++++++++++++++++++++++++++++++++
    >
    > 'DataSource for Microsoft Jet databases
    >
    > Option Compare Database
    >
    > Private m_conn As ADODB.Connection
    > Private m_rst As ADODB.Recordset
    > Private m_fieldCount As Integer
    > Private m_initialized As Boolean
    > Private m_isUpdateable As Boolean
    > Private m_isEmpty As Boolean
    > Private m_isDirty As Boolean
    > Private m_recCount As Long
    > Private m_isError As Boolean
    > Private m_errorMessage As String
    > Private m_identity As Long
    >
    > Implements DataSource
    >
    > --------------------------------------
    > Public Property Get DataSource_Dataset() As ADODB.Recordset
    > If m_isEmpty Or Not m_initialized Then
    > Exit Property
    > End If
    >
    > Set DataSource_Dataset = m_rst
    > End Property
    > -------------------------------------------
     

Share This Page