Can anyone see why this isnt working please?

[shabbaranks]

Hi,

Im trying to take a value from me.hour and if its a positive number convert it to CD and if its negative convert to CC. Below is my code

sHourType = Me.Hour.Value
sCostCode = Me.CostCode
sActivity = Me.Activity.Column(0)
sProject = Me.Project
sHours = Nz(Me.Hour, 0)
sDescript = Nz(Me.Description, " ")
Me.Description = sDescript
sLogUser = Me.LoggedInUser
sDate = Me.DatePicker
sProjectRef = Me.Project.Column(2) & "-" & Me.SubProjectCode
If sHourType <> 0 Then
sHourType = "CD"
Else
sHourType = "CC"
End If

Currently regardless if its +'ve or -'ve it comes back CD. Can anyone spot what I am doing wrong?

Thanks

[SteveH2508]

If sHourType <> 0 Then
     sHourType = "CD"
Else 
     sHourType = "CC" 
End If

<> means not equal to - you need > in your expression.

You have a few other potential problems as well.

You are using several reserved words as field names.

Hour
Project
Description

are all words with a specific meaning in Access/VBA.

What datatype is sHourType meant to be?

It seems confused as to whether it is numeric or a string.

[orange]

Further to SteveH2508 response,
-you should get familiar with debug.print as a debugging tool. Print the values of various fields; and
-learn to step through your code (F8)
- avoid Reserved words see http://allenbrowne.com/AppIssueBadWord.html
-get consistent with your names , usually s.... is used for string datatype.

[shabbaranks]

Ah ok great - that works. sHourType is a string as its text but the me.hours is a number as I wanted to get a text value and numeric value from one input.

I must get my head around using the de bug tool as you say its handy - but it never seems to work properly for me. Probably because I dont understand it