Hi,

I am having trouble saving my textbox as a number. Here is the format I am
using..

with ws
.Cells(Choice, 7).NumberFormat = "0"
.Cells(Choice, 7) = CInt(Me.txtDaysOccupied.Value)
end with

It errors out at the CInt statement with a Type Mismatch. I tried declaring
an integer variable and converting to this as well but I received the same
error message.

What am I missing?

Thanks

Sounds like you are typing letters into the textbox.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Karen53" wrote in message
...
Hi,

I am having trouble saving my textbox as a number. Here is the format I
am
using..

with ws
.Cells(Choice, 7).NumberFormat = "0"
.Cells(Choice, 7) = CInt(Me.txtDaysOccupied.Value)
end with

It errors out at the CInt statement with a Type Mismatch. I tried
declaring
an integer variable and converting to this as well but I received the same
error message.

What am I missing?

Thanks

Maybe you could check first:

with ws
with .Cells(Choice, 7)
.NumberFormat = "0"
if isnumeric(me.txtdaysoccupied.value) then
.value = CInt(Me.txtDaysOccupied.Value)
else
.value = 0 'or a warning message???
end if
end with
end with



end with

Karen53 wrote:

Hi,

I am having trouble saving my textbox as a number. Here is the format I am
using..

with ws
.Cells(Choice, 7).NumberFormat = "0"
.Cells(Choice, 7) = CInt(Me.txtDaysOccupied.Value)
end with

It errors out at the CInt statement with a Type Mismatch. I tried declaring
an integer variable and converting to this as well but I received the same
error message.

What am I missing?

Thanks

--

Dave Peterson

Thanks to both of you. I realized it was because the textbox was empty. So
I'm checking for that as well as the numeric value.

Thanks,
Karen



"Dave Peterson" wrote:

Maybe you could check first:

with ws
with .Cells(Choice, 7)
.NumberFormat = "0"
if isnumeric(me.txtdaysoccupied.value) then
.value = CInt(Me.txtDaysOccupied.Value)
else
.value = 0 'or a warning message???
end if
end with
end with



end with

Karen53 wrote:

Hi,

I am having trouble saving my textbox as a number. Here is the format I am
using..

with ws
.Cells(Choice, 7).NumberFormat = "0"
.Cells(Choice, 7) = CInt(Me.txtDaysOccupied.Value)
end with

It errors out at the CInt statement with a Type Mismatch. I tried declaring
an integer variable and converting to this as well but I received the same
error message.

What am I missing?

Thanks

--

Dave Peterson

Karen,

If you use Val rather than using CInt, it won't error on that, and will
return 0.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Karen53" wrote in message
...
Thanks to both of you. I realized it was because the textbox was empty.
So
I'm checking for that as well as the numeric value.

Thanks,
Karen



"Dave Peterson" wrote:

Maybe you could check first:

with ws
with .Cells(Choice, 7)
.NumberFormat = "0"
if isnumeric(me.txtdaysoccupied.value) then
.value = CInt(Me.txtDaysOccupied.Value)
else
.value = 0 'or a warning message???
end if
end with
end with



end with

Karen53 wrote:

Hi,

I am having trouble saving my textbox as a number. Here is the format
I am
using..

with ws
.Cells(Choice, 7).NumberFormat = "0"
.Cells(Choice, 7) = CInt(Me.txtDaysOccupied.Value)
end with

It errors out at the CInt statement with a Type Mismatch. I tried
declaring
an integer variable and converting to this as well but I received the
same
error message.

What am I missing?

Thanks

--

Dave Peterson

Thank you, Bob. That sure makes things easier.

Why would I get an object defined error on this?

with ws
..Cells(Choice, 5).NumberFormat = "General"
end with

Thanks,



"Bob Phillips" wrote:

Karen,

If you use Val rather than using CInt, it won't error on that, and will
return 0.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Karen53" wrote in message
...
Thanks to both of you. I realized it was because the textbox was empty.
So
I'm checking for that as well as the numeric value.

Thanks,
Karen



"Dave Peterson" wrote:

Maybe you could check first:

with ws
with .Cells(Choice, 7)
.NumberFormat = "0"
if isnumeric(me.txtdaysoccupied.value) then
.value = CInt(Me.txtDaysOccupied.Value)
else
.value = 0 'or a warning message???
end if
end with
end with



end with

Karen53 wrote:

Hi,

I am having trouble saving my textbox as a number. Here is the format
I am
using..

with ws
.Cells(Choice, 7).NumberFormat = "0"
.Cells(Choice, 7) = CInt(Me.txtDaysOccupied.Value)
end with

It errors out at the CInt statement with a Type Mismatch. I tried
declaring
an integer variable and converting to this as well but I received the
same
error message.

What am I missing?

Thanks

--

Dave Peterson

The only thing that I can think is that Choice has not been set, and has the
value 0, thereby trying to reference cell E0, an invalid cell reference.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Karen53" wrote in message
...
Thank you, Bob. That sure makes things easier.

Why would I get an object defined error on this?

with ws
.Cells(Choice, 5).NumberFormat = "General"
end with

Thanks,



"Bob Phillips" wrote:

Karen,

If you use Val rather than using CInt, it won't error on that, and will
return 0.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)



"Karen53" wrote in message
...
Thanks to both of you. I realized it was because the textbox was
empty.
So
I'm checking for that as well as the numeric value.

Thanks,
Karen



"Dave Peterson" wrote:

Maybe you could check first:

with ws
with .Cells(Choice, 7)
.NumberFormat = "0"
if isnumeric(me.txtdaysoccupied.value) then
.value = CInt(Me.txtDaysOccupied.Value)
else
.value = 0 'or a warning message???
end if
end with
end with



end with

Karen53 wrote:

Hi,

I am having trouble saving my textbox as a number. Here is the
format
I am
using..

with ws
.Cells(Choice, 7).NumberFormat = "0"
.Cells(Choice, 7) = CInt(Me.txtDaysOccupied.Value)
end with

It errors out at the CInt statement with a Type Mismatch. I tried
declaring
an integer variable and converting to this as well but I received
the
same
error message.

What am I missing?

Thanks

--

Dave Peterson

Thank you, Bob. That is what it was.

"Bob Phillips" wrote:

The only thing that I can think is that Choice has not been set, and has the
value 0, thereby trying to reference cell E0, an invalid cell reference.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Karen53" wrote in message
...
Thank you, Bob. That sure makes things easier.

Why would I get an object defined error on this?

with ws
.Cells(Choice, 5).NumberFormat = "General"
end with

Thanks,



"Bob Phillips" wrote:

Karen,

If you use Val rather than using CInt, it won't error on that, and will
return 0.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my
addy)



"Karen53" wrote in message
...
Thanks to both of you. I realized it was because the textbox was
empty.
So
I'm checking for that as well as the numeric value.

Thanks,
Karen



"Dave Peterson" wrote:

Maybe you could check first:

with ws
with .Cells(Choice, 7)
.NumberFormat = "0"
if isnumeric(me.txtdaysoccupied.value) then
.value = CInt(Me.txtDaysOccupied.Value)
else
.value = 0 'or a warning message???
end if
end with
end with



end with

Karen53 wrote:

Hi,

I am having trouble saving my textbox as a number. Here is the
format
I am
using..

with ws
.Cells(Choice, 7).NumberFormat = "0"
.Cells(Choice, 7) = CInt(Me.txtDaysOccupied.Value)
end with

It errors out at the CInt statement with a Type Mismatch. I tried
declaring
an integer variable and converting to this as well but I received
the
same
error message.

What am I missing?

Thanks

--

Dave Peterson