creating a workday calculator on access form

[buddyr]

Hello,
I have 3 fields dateout, datein, TurnAroundNumbe r(number).
I used this code in module:

Function GetDateOut(dDate As Date, Span As Integer) As Date
Dim j As Integer, i As Integer, dtStart
dtStart = dDate
For j = 1 To Span
    dtStart = dtStart + 1
    Do While Weekday(dtStart) = 1 Or Weekday(dtStart) = 7 
        dtStart = dtStart + 1
        i = i + 1
    Loop
Next
GetDateOut = DateAdd("d", i + Span, dDate)
End Function

in a calculate command button I made the call:
me.[dateout]=getDateOut(me. dateIn, me.TurnAroundNu mber)

I notice if the turnaroundnumbe r textbox is empty I get a null error.
Can I stop that from happening?
and can I place this in a subform and not adversely effect other objects and subforms.
Thank you

[missinglinq]

Something like this

If Not IsNull(me.TurnAroundNumber) Then
  me.[dateout]=getDateOut(me.dateIn, me.TurnAroundNumber)
Else
  Msgbox "This Computation Cannot Be Run When Turn Around Number Is Blank!"
End If

Linq ;0)>

[buddyr]

thank you linc that works great

[NeoPa]

As a full member now, you should know that we expect your code to be posted in [code] tags (See How to Ask a Question).

This makes it easier for our Experts to read and understand it. Failing to do so creates extra work for the moderators, thus wasting resources, otherwise available to answer the members' questions.

Please use the tags in future.

ADMIN.