Set focus not working properly

[deepaksharma]

Good Morning to all experts......
I have created a main form and a sub form. both of there names are:----

main form - offer_entry
sub form - grey_shade

after this i have written an event in the save button that if the save form is empty then the data should not be saved and blink the cursor in the shade name text box of the sub form.
with this code, the focus is on the text box of the sub form, but the cursor is not blinking, the cursor remain hidden and it is exposed after pressing shift+tab key, please give your opinion to all the experts.

If DCount("*", "GREY_SHADE", "ID = " & Me.ID) < 1 Then
MsgBox ("PLEASE ENTER SHADE")


Me.GREY_SHADE!SHADE.SetFocus

[Welshgasman]

Where is that code?, in the main form?
If so, that is not the correct syntax.

Forms: Refer to Form and Subform properties and controls

[deepaksharma]

thanks for reply,
this code is written in save button
i tried it with the other code you mentioned but problem is still the same
the cursor definitely goes there but remain hidden, it does not show with blinking


old code

Private Sub SAVE_Click()

Set DB = CurrentDb
Set RST = DB.OpenRecordset("GREY_OFFER")
If DCount("*", "GREY_SHADE", "ID = " & Me.ID) < 1 Then
MsgBox ("PLEASE ENTER SHADE")
Me.GREY_SHADE!SHADE.SetFocus

Exit Sub
End If
end sub

Tried this too-
Me!GREY_SHADE.Form.ID.SetFocus (in place of "Me.GREY_SHADE!SHADE.SetFocus")

[Welshgasman]

Add a dummy textbox control and try and set focus to that. This is for testing purposes only.
If the cursor is then blinking, then some property on your Shade control is preventing it from blinking.

[deepaksharma]

No, still the same problem...

[Welshgasman]

No, still the same problem...

Try a repair of Office then.

[deepaksharma]

i solve it after add this code :-)

sendkeys "+{tab}"

[Welshgasman]

i solve it after add this code :-)

sendkeys "+{tab}"

That is a workaround, not a solution?

[deepaksharma]

yes there is no other solution....