Migration problems from Excel 93 to Windows 7/ Excel 2010

Excel 1997, my bad thanks.

romperstomper

Thanks for your suggestion. I opened the application on the new platofrm, and recieved the following compile error:

"Can't find project or library"

Public Sub FillDataTable(DataTable As String, rs As Recordset) <------ Error
    Dim TableRow As Integer
    ClearTable DataTable
    If Not rs.EOF Then
        rs.MoveFirst
        TableRow = 1
        Do While Not rs.EOF
            TableRow = TableRow + 1
            For K = 0 To rs.Fields.Count - 1
                If rs.Fields(K).Name <> "TMID" Then
                    Sheets(DataTable).Cells(TableRow, K + 1).Value = rs.Fields(K).Value
                End If
            Next
            rs.MoveNext
        Loop
    End If
End Sub

Any suggestions?

Right I did that ( I was double checking). I am missing the following two references:

1. Microsoft Calander Control Object 8.0
2. fpdtc 1.0 Type Library

Item (1) is not available. Item (2) I have never heard.

Thanks a lot romperstomper. I am not to familiar with calander controls, but what is a "date picker" ?

I was going to focus on the machine that I am on and then worry about distributing it. Here is the current code that controls the calander function.

Where can I find the date picker control? Thanks.

Option Explicit

Dim DataSource As String
Dim DataRow As Integer
Const UNSUCC As String = "Closed-Unsuccessful"
Const FUTURE As String = "Closed-Future Prospect"
Const START As String = "StartDate"
Const COMMIT As String = "CommitDate"
Const NoteDate As String = "NoteDate"
Const NOBID As String = "Closed-No bid"
Const SUCC As String = "Closed-Successful"
Const OppOPEN As String = "Open"
Public Property Let Source(val As String)
    DataSource = val
End Property
Private Sub UserForm_Initialize()
    Calendar1.Value = Sheets("Validations").Range("N2").Value
    Calendar1.TitleFont.Bold = False
    Calendar1.TitleFont.Size = 10
End Sub
Private Sub Calendar1_Click()
    Dim ValidDate As Boolean
    
    Select Case DataSource
        Case FUTURE, UNSUCC, OppOPEN, SUCC
            ValidDate = (Calendar1.Value > Date)
            If Not ValidDate Then
                MsgBox "Please set a Followup Date in the future"
            End If
        Case NOBID
                ValidDate = (Calendar1.Value > Date)
                If Not ValidDate Then
                    MsgBox "You must set a Date in the future, for Closed-No Bid"
                End If
        Case START, COMMIT
            ValidDate = True
            Select Case DataSource
                
                Case START
                    If Calendar1.Value > Date Then
                        ValidDate = False
                        MsgBox "You may not set a Start Date in the Future", vbCritical, "Invalid Opportunity Start Date"
                    End If
                Case COMMIT
                    ValidDate = (Calendar1.Value >= CDate(frmOpportunity.StartDate))
                    If Not ValidDate Then
                        MsgBox "Please set the Commit Date AFTER the Start Date", vbCritical, "InValid Opportunity Commit Date"
                    End If
            End Select
        Case NoteDate
            ValidDate = (Calendar1.Value <= Date)
            If Not ValidDate Then
                MsgBox "You may not date a Note in the Future", vbCritical, "Invalid Note Date"
            End If

    End Select
        
    If ValidDate Then
        Select Case DataSource
            Case START, COMMIT
                Select Case DataSource
                    Case START
                        frmOpportunity.StartDate = CStr(Calendar1.Value)
                    Case COMMIT
                        frmOpportunity.CommitDate = CStr(Calendar1.Value)
                End Select
            
        Case NoteDate
            frmOpportunity.NoteDate = CStr(Calendar1.Value)
        Case FUTURE, NOBID, UNSUCC, OppOPEN, SUCC
            UserForm11.FollowupDate = CStr(Calendar1.Value)
        End Select
    End If
    Unload Me
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Select Case DataSource
        Case FUTURE
            If Calendar1.Value <= Date Then
                ' A FUTURE Date must be provided for Closed-Future Prospect
                Cancel = 1
                MsgBox "You must set a FollowUp Date in the future for this type of Closure action"
            End If
        Case START
            If Calendar1.Value > Date Then
                ' A FUTURE Date must be provided for Opportunity Start Date
                Cancel = 1
                MsgBox "You must set a Start Date which is not in the Future"
            End If
    End Select
    
End Sub

I do not have that control? How can I get it ?

This is new to me. So, how would I set my references to 'Microsoft Windows Common Controls-2'?

Yeah, I did that and it's not there?

I followed you closely, and it simply is not there. Does something need to be downloaded?

How can it not be there? Was it "released" under a service pack, and perhaps my company never updated to the new package?

Note that I do have Microsoft Common Controls 6.0

Yeah: http://social.msdn.microsoft.com/For...6-1438e0e736a4 here also. Thanks let me hammer this out. Later.