TextBox not responding...
 

Hi,

I have the follow simple code, a form "frm1" is created and attached a
textbox

-------------------------------
Public Sub Auto_Open()

frm1.show

End Sub


Public Sub SubB

frm1.TextBox1.text = "test"

Call SubC

End SubB

'in the activate function of frm1

Private Sub UserForm_Activate()

Call SubB

End Sub
------------------------------------

Why the form frm1 is show, but the text box is not loaded, it is like
something very busy (yes, SubC is very busy), but everything else is okay.

Thanks

Nick

TextBox not responding...
 

Hi,
I just tested your code. it works if you change sub
Auto_open() to sub workbook_open()
:)
-----Original Message-----
Hi,

I have the follow simple code, a form "frm1" is created
and attached a
textbox

-------------------------------
Public Sub Auto_Open()

frm1.show

End Sub


Public Sub SubB

frm1.TextBox1.text = "test"

Call SubC

End SubB

'in the activate function of frm1

Private Sub UserForm_Activate()

Call SubB

End Sub
------------------------------------

Why the form frm1 is show, but the text box is not
loaded, it is like
something very busy (yes, SubC is very busy), but
everything else is okay.

Thanks

Nick
.

TextBox not responding...
 

Try

Public Sub SubB

frm1.TextBox1.text = "test"
doevents
frm1.repaint
doevents
Call SubC

"Nick" wrote in message
...
Hi,

I have the follow simple code, a form "frm1" is created and attached a
textbox

-------------------------------
Public Sub Auto_Open()

frm1.show

End Sub


Public Sub SubB

frm1.TextBox1.text = "test"

Call SubC

End SubB

'in the activate function of frm1

Private Sub UserForm_Activate()

Call SubB

End Sub
------------------------------------

Why the form frm1 is show, but the text box is not loaded, it is like
something very busy (yes, SubC is very busy), but everything else is
okay.

Thanks

Nick

TextBox not responding...
 

If Auto_open is in a general module it should work as well.

--
Regards,
Tom Ogilvy

"Frank Stone" wrote in message
...
Hi,
I just tested your code. it works if you change sub
Auto_open() to sub workbook_open()
:)
-----Original Message-----
Hi,

I have the follow simple code, a form "frm1" is created
and attached a
textbox

-------------------------------
Public Sub Auto_Open()

frm1.show

End Sub


Public Sub SubB

frm1.TextBox1.text = "test"

Call SubC

End SubB

'in the activate function of frm1

Private Sub UserForm_Activate()

Call SubB

End Sub
------------------------------------

Why the form frm1 is show, but the text box is not
loaded, it is like
something very busy (yes, SubC is very busy), but
everything else is okay.

Thanks

Nick
.

TextBox not responding...
 

This work great!

Thanks!!!

Tom Ogilvy wrote:
Try

Public Sub SubB

frm1.TextBox1.text = "test"
doevents
frm1.repaint
doevents
Call SubC

"Nick" wrote in message
...

Hi,

I have the follow simple code, a form "frm1" is created and attached a
textbox

-------------------------------
Public Sub Auto_Open()

frm1.show

End Sub


Public Sub SubB

frm1.TextBox1.text = "test"

Call SubC

End SubB

'in the activate function of frm1

Private Sub UserForm_Activate()

Call SubB

End Sub
------------------------------------

Why the form frm1 is show, but the text box is not loaded, it is like
something very busy (yes, SubC is very busy), but everything else is

okay.

Thanks

Nick