Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Program no longer work on Excel 2003
Hi, I've been running this VBA program on Excel 2002 for quite some tim
until I've upgraded one of my computers to Excel 2003 and the progra would generate an error: Compile Error: Can't find project or library. May I know how do I go about solving this problem? Thanks! Here's the code I use. --- Sub OkBtn_Click() Dim b As Integer Dim uid As String ' a = userid Dim pwd As String ' c = password uid = UserNameTB.Value pwd = PasswordTB.Value Sheets("EmpList").Select For b = 2 To 100 Cells(b, 2).Select If ActiveCell.Value = uid Then If ActiveCell.Offset(0, 1).Value = pwd Then chkGrp Else MsgBox ("Invalid Password") Unload Me End If Else: End If ActiveCell.Offset(1, 0).Select Next b Cells(1, 1).Select End Sub Sub chkGrp() Sheets("EmpList").Activate With TimesheetEntry.TSENameCB For Row = 7 To 106 TimesheetEntry.TSENameCB.AddIte Sheets("EmpList").Cells(Row, 2) Next Row End With If ActiveCell.Offset(0, 2).Value = "N" Then Unload Me TimesheetEntry.TSENameCB.Text = UserNameTB.Value TimesheetEntry.Show ElseIf ActiveCell.Offset(0, 2).Value = "A" Then Unload Me TimesheetEntry.TSENameCB.Text = UserNameTB.Value LoginOption.Show End If End Sub --- Thanks -- Message posted from http://www.ExcelForum.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Program no longer work on Excel 2003
Hi!
Sorry for the late reply. That's what I did but it seems like MS Offic Web Components is missing. I tried downloading and reinstalling th component from microsoft.com but it doesn't seem to help. Could there be any change in the way of coding in Excel 2003? Rgds Mark Rosenkrantz wrote: *Maxfire; It seems to me that one of the references in VBA is not longe available or valid. I think the first is the case. Check that in the VBE editor in : Tools | References Check for a checkmark for the desired project or library in th available references dialogbox. Mark. -- More Excel ? www.rosenkrantz.nl or -------------------------------------------------------------------- "maxifire " wrote i message ... Hi, I've been running this VBA program on Excel 2002 for quite som time until I've upgraded one of my computers to Excel 2003 and th program would generate an error: Compile Error: Can't find project or library. May I know how do I go about solving this problem? Thanks! Here's the code I use. --- Sub OkBtn_Click() Dim b As Integer Dim uid As String ' a = userid Dim pwd As String ' c = password uid = UserNameTB.Value pwd = PasswordTB.Value Sheets("EmpList").Select For b = 2 To 100 Cells(b, 2).Select If ActiveCell.Value = uid Then If ActiveCell.Offset(0, 1).Value = pwd Then chkGrp Else MsgBox ("Invalid Password") Unload Me End If Else: End If ActiveCell.Offset(1, 0).Select Next b Cells(1, 1).Select End Sub Sub chkGrp() Sheets("EmpList").Activate With TimesheetEntry.TSENameCB For Row = 7 To 106 TimesheetEntry.TSENameCB.AddItem Sheets("EmpList").Cells(Row, 2) Next Row End With If ActiveCell.Offset(0, 2).Value = "N" Then Unload Me TimesheetEntry.TSENameCB.Text = UserNameTB.Value TimesheetEntry.Show ElseIf ActiveCell.Offset(0, 2).Value = "A" Then Unload Me TimesheetEntry.TSENameCB.Text = UserNameTB.Value LoginOption.Show End If End Sub --- Thanks! --- Message posted from http://www.ExcelForum.com/ -- Message posted from http://www.ExcelForum.com |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Program no longer work on Excel 2003
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Program no longer work on Excel 2003
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Program no longer work on Excel 2003
Hello,
I'm experiencing the a similar type problem with Excel 2003, I will write a line of code using the VB Editor an it won't run. However, when I use the Record A Macro to generate the exact same line then copy/paste it in. The code will run without a problem !!!! Apparently something has changed!!! Regards, gvlral "maxifire " wrote in message ... Hi! Sorry for the late reply. That's what I did but it seems like MS Office Web Components is missing. I tried downloading and reinstalling the component from microsoft.com but it doesn't seem to help. Could there be any change in the way of coding in Excel 2003? Rgds Mark Rosenkrantz wrote: *Maxfire; It seems to me that one of the references in VBA is not longer available or valid. I think the first is the case. Check that in the VBE editor in : Tools | References Check for a checkmark for the desired project or library in the available references dialogbox. Mark. -- More Excel ? www.rosenkrantz.nl or -------------------------------------------------------------------- "maxifire " wrote in message ... Hi, I've been running this VBA program on Excel 2002 for quite some time until I've upgraded one of my computers to Excel 2003 and the program would generate an error: Compile Error: Can't find project or library. May I know how do I go about solving this problem? Thanks! Here's the code I use. --- Sub OkBtn_Click() Dim b As Integer Dim uid As String ' a = userid Dim pwd As String ' c = password uid = UserNameTB.Value pwd = PasswordTB.Value Sheets("EmpList").Select For b = 2 To 100 Cells(b, 2).Select If ActiveCell.Value = uid Then If ActiveCell.Offset(0, 1).Value = pwd Then chkGrp Else MsgBox ("Invalid Password") Unload Me End If Else: End If ActiveCell.Offset(1, 0).Select Next b Cells(1, 1).Select End Sub Sub chkGrp() Sheets("EmpList").Activate With TimesheetEntry.TSENameCB For Row = 7 To 106 TimesheetEntry.TSENameCB.AddItem Sheets("EmpList").Cells(Row, 2) Next Row End With If ActiveCell.Offset(0, 2).Value = "N" Then Unload Me TimesheetEntry.TSENameCB.Text = UserNameTB.Value TimesheetEntry.Show ElseIf ActiveCell.Offset(0, 2).Value = "A" Then Unload Me TimesheetEntry.TSENameCB.Text = UserNameTB.Value LoginOption.Show End If End Sub --- Thanks! --- Message posted from http://www.ExcelForum.com/ * --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Undo and redo no longer work. how can I fix this. Excel 2003 | Excel Worksheet Functions | |||
Arrow Keys in Excel no longer work correctly. | Excel Discussion (Misc queries) | |||
How to reload Excel-- no longer have the cd program? | Excel Discussion (Misc queries) | |||
Arrow Keys No Longer Work in EXCEL | Excel Discussion (Misc queries) | |||
VB scripts from Office 97 that no longer work in Office 2003 | Excel Programming |