Module producing #Name? error in text box control

[dcdimon]

I have the following script in public module. I'm using the system time to enter the shift name (1st, 2nd, or 3rd) into a text box control (ShiftTXT). When I move to new record the ShiftTXT control is either empty or contains the #Name? error.

If the control is empty, then when I enter something in another control, the #Name? error populates the control. What am I doing wrong? I have another module that evaluates toggle buttons and other control settings and works without a problem.

Option Compare Database
Option Explicit


Public Sub Shift()


    If Time$() < "07" Then
    
    Screen.ActiveForm.ShiftTXT = "3rd Shift"
    
        ElseIf Time$() > "15" Then
        
        Screen.ActiveForm.ShiftTXT = "2nd Shift"
        
        Else: Screen.ActiveForm.ShiftTXT = "1st Shift"
    
    End If


End Sub

I'm using =Shift() in the default value property option for the ShiftTXT control. Do I have my module script set up incorrectly or is it an issue with my form property? I've used both the SUB and FUNCTION options with the same results-. Screen below to show the error.

[pbaldy]

You're using it to return a value, so it needs to be a function rather than a sub, and it should return the value rather than set a textbox. To use it like you have it you'd have to call it in code.

[dcdimon]

I don't understand what you mean by "should return the value rather than set a textbox". I get the function aspect - but not this.

Also, by "call it in code" do you mean I should be using a vb script to fill the control (which is attached to a field in a table, if that matters) or use an expression rather than just the =Shift()?

DD

[pbaldy]

Do you want the value to save to a table? If so, you can't have the control source of =Shift(), it would have to be the field name and you'd have to set the value in code. If you just want to display, then that control source is fine and I'd change the function. The " As String" portion of this is what I mean by returning a value:

http://www.baldyweb.com/Function.htm

Along with inside the function you'd have

YourFunctionName = "String to return"

[dcdimon]

Okay, I set the module as a Function with the 'as String' tag.

The shiftTXT control, which IS attached to a field in a table, is showing me the shift name (1st shift and now 2nd shift as it's after 3 pm), but only on every other record. I have no other codes attached to this form so I don't know why it's doing that.

I'm not clear on what you've offered as advice in the last post and the information on the link is too general for my purposes. It's not helping me understand how to do what I need to do. I've been searching on the web and getting some clearer understanding, but I'm still not seeing what I expect to see on my form - the shift type in my shiftTXT control which, in turns populates my table.

Can you give me some more specific help on why this is not working as expected?

DD