caljohn527
Registered User.
- Local time
- Yesterday, 19:15
- Joined
- Jan 25, 2009
- Messages
- 22
Hello, all you out there,
I am building a new database for my business, and I have a question and hope someone can help me. I am working with Access 2002 and SQL Server 2003.
My Question is just this , I have a field called empappearance , and it is a combo box, in the box we have Poor = 5 , Fair =10, Good = 15, Excellent = 20. And the field that gets the answer is emppoints1 = either 5, 10, 15, 20. And the formula look like this ,
Private Sub number_BeforeUpdate(Cancel As Integer)
If empappearance = poor Then Let emppoint1 = 5
If empappearance = Good Then Let emppoint1 = 10
If empappearance = Fair Then Let emppoint1 = 20
If empappearance = Excellent Then Let emppoint1 = 30 ( NOT WOIRKING )
Private Sub number_BeforeUpdate(Cancel As Integer)
If empappearance = “poor” Then Let emppoint1 = 5
If empappearance = “Good” Then Let emppoint1 = 10
If empappearance = “Fair” Then Let emppoint1 = 20
If empappearance = “Excellent” Then Let emppoint1 = 30 ( NOT WOIRKING )
Private Sub number_BeforeUpdate(Cancel As Integer)
If empappearance = “poor” Then Let emppoint1 = 5
Elselet = “Good” Then Let emppoint1 = 10
Elselet = “empappearance = “Fair” Then Let emppoint1 = 20
Elselet = “empappearance = “Excellent” Then Let emppoint1 = 30 ( NOT WOIRKING )
End Sub
What am I doing wron???
And I can not get this to work. Access 2002 and SQL 203 Server .
Johnny C
I am building a new database for my business, and I have a question and hope someone can help me. I am working with Access 2002 and SQL Server 2003.
My Question is just this , I have a field called empappearance , and it is a combo box, in the box we have Poor = 5 , Fair =10, Good = 15, Excellent = 20. And the field that gets the answer is emppoints1 = either 5, 10, 15, 20. And the formula look like this ,
Private Sub number_BeforeUpdate(Cancel As Integer)
If empappearance = poor Then Let emppoint1 = 5
If empappearance = Good Then Let emppoint1 = 10
If empappearance = Fair Then Let emppoint1 = 20
If empappearance = Excellent Then Let emppoint1 = 30 ( NOT WOIRKING )
Private Sub number_BeforeUpdate(Cancel As Integer)
If empappearance = “poor” Then Let emppoint1 = 5
If empappearance = “Good” Then Let emppoint1 = 10
If empappearance = “Fair” Then Let emppoint1 = 20
If empappearance = “Excellent” Then Let emppoint1 = 30 ( NOT WOIRKING )
Private Sub number_BeforeUpdate(Cancel As Integer)
If empappearance = “poor” Then Let emppoint1 = 5
Elselet = “Good” Then Let emppoint1 = 10
Elselet = “empappearance = “Fair” Then Let emppoint1 = 20
Elselet = “empappearance = “Excellent” Then Let emppoint1 = 30 ( NOT WOIRKING )
End Sub
What am I doing wron???
And I can not get this to work. Access 2002 and SQL 203 Server .
Johnny C