Overflow Error

[Danielh1000]

Why would this code produce an overflow error at the lvDailyEarnings = 3000*12? This is only 36,000, well within an Long Integer

Private Sub Form_Open(Cancel As Integer)
Dim lvDailyEarnings As Long
'
lvDailyEarnings = 3000 * 12
'


With Me
.AllowAdditions = False
.AllowDeletions = False
.AllowEdits = False
.LNoEdits.Visible = True
'
.txtOneMonth = gcDaysPerMonth
.LOneMonthExample.Caption = "If an employee... "
.txtOneYear = gcDaysPerYear
.LAbsentExample.Caption = "If an employee ..."

.LAbsentExample1.Caption = "For example..."

.LOneYearExample.Caption = "If an employee ..."
End With
End Sub

[orange]

Have you stepped through your code to see exactly where the error occurs?
Where are you changing the value of lvDailyEarnings?

[pbaldy]

See

https://docs.microsoft.com/en-us/off...erflow-error-6

[Danielh1000]

Why would this code produce an overflow error at the lvDailyEarnings = 3000*12? This is only 36,000, well within an Long Integer

Private Sub Form_Open(Cancel As Integer)
Dim lvDailyEarnings As Long
'
lvDailyEarnings = 3000 * 12
'
With Me
.AllowAdditions = False
.AllowDeletions = False
.AllowEdits = False
.LNoEdits.Visible = True
'
.txtOneMonth = gcDaysPerMonth
.LOneMonthExample.Caption = "If an employee... "
.txtOneYear = gcDaysPerYear
.LAbsentExample.Caption = "If an employee ..."

.LAbsentExample1.Caption = "For example..."

.LOneYearExample.Caption = "If an employee ..."
End With
End Sub

pbadly has the answer at...
https://docs.microsoft.com/en-us/off...erflow-error-6

[Danielh1000]

See

https://docs.microsoft.com/en-us/off...erflow-error-6

Brilliant..thanks...here I was thinking my VBA project was corrupt...

[pbaldy]

Happy to help! By the way, all I did was click on the Help button the error message had on it (after recreating in a test db).

[Danielh1000]

Happy to help! By the way, all I did was click on the Help button the error message had on it (after recreating in a test db).

Huummmm...now I feel stupid.... -! Thanks again....

[pbaldy]

now I feel stupid

Don't. Sometimes we all miss the forest for the trees.