set focus to first field

[Siegfried]

Dear Experts,

I have a set focus issue on my form ADUserF when creating a new record!?
The form has a text box InfoNotes, set to field size 255.
I've added an unbound text box textCharsUsed to display the remaining characters available when typing in comment in the InfoNotes field

I have following code on change Event Procedure:
UG Added Code Tags

Private Sub InfoNotes_Change()
'Used in the On Change event of the form
'to display character count when the record
'is being added/amended
    Me.InfoNotes.SetFocus
    If Not IsNull(Me.InfoNotes.Text) Then
            Me.txtCharsUsed = (255 - (Len(Me.InfoNotes.Text)))
        Else
            Me.InfoNotes = 0
    End If
    
End Sub
 
Private Sub Form_Current()
'Used in the On Current event of the form
'to display character count in InfoNotes in txtCharsUsed when scrolling
'through each record
    Me.InfoNotes.SetFocus
    If Not IsNull(Me.InfoNotes.Text) Then
            Me.txtCharsUsed = (255 - (Len(Me.InfoNotes.Text)))
        Else
            Me.InfoNotes = 0
    End If
'to keep the optiongroup color when closing the form
    Call FramePasswordNeverExpires_AfterUpdate
End Sub

When I want to create a new record the focus goes to field logonname instead of the first field UserStatusI.Tab order is set correctly though.

Thanks for helping me out.

Best regards,

Siegfried

 

[theDBguy]

Hi. Are you able to post a sample db?

 

[Siegfried]

Hi,
Thanks for your response and help.
I'll upload a sample later toady.

Best regard,

 

[theDBguy]

Hi,
Thanks for your response and help.
I'll upload a sample later toady.

Best regard,

Okay, thanks. That should help clear things up a bit faster.

 

[Siegfried]

attached the database

 

[Siegfried]

dbse uploaded.

 

[June7]

For future, please post code between CODE tags to retain indentation and readability.

Color scheme on your form is frustrating, hard to read labels.

Current event sets focus to InfoNotes so the next control is LogonName.

Why have code to enter 0 into InfoNotes field? Which never seems to happen anyway.

Suggest change code for Current event.

Private Sub Form_Current()
'Used in the On Current event of the form
'to display character count in InfoNotes in txtCharsUsed when scrolling
'through each record
    If Not IsNull(Me.InfoNotes) Then
            Me.txtCharsUsed = (255 - (Len(Me.InfoNotes)))
    End If
'to keep the optiongroup color when closing the form
    Call FramePasswordNeverExpires_AfterUpdate
End Sub

And set ADUserID TabStop to No.

 

[Siegfried]

I changed my code as suggested but then the count isn't working anymore in [txtCharsUsed] unbound text box?
In my original code, when I try to type into the notes field [InfoNotes] a text box, it jumps to the cboUserStatus eacht time.
The code to enter 0 is from the original code, at first it added up the number of characters typed but I wanted a countdown from 250 hence added (255 -).

 

[Deleted member 147267]

why not just set the calculated field to 255 - Len(someControl? In current event, use control value (default). In ChangeEvent, probably .Text property (assuming it's bound). It makes no sense to me to validate whether or not it is Null in the Change event since the length property value will either be zero or some number greater than zero.

EDIT - actually probably doesn't matter if it's bound or not.

 

[June7]

Try this:

Private Sub Form_Current()
'Used in the On Current event of the form
'to display character count of InfoNotes in txtCharsUsed when scrolling through each record
    Me.txtCharsUsed = 255 - Len(Nz(Me.InfoNotes, ""))
'to keep the optiongroup color when closing the form
    Call FramePasswordNeverExpires_AfterUpdate
End Sub