Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
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 |