How to coding this problem!

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

m2mhung - 04 Jun 2007 07:36 GMT

I created a form in MS Word and now I want to use it just by press "Show"
button.
The value of "text form fields" changed but it didn't show on the screen. I
must double click on "text form fields" which I want it show after that I
click "OK" from the form, its value change . How can I coding this? I
attached this file for you for your ref.
Thank you.
I can't find where I can upload my file? but my code is:

Private Sub cmdShow_Click()
'Set name
Set stName = ActiveDocument.FormFields("txtName").TextInput
stName.Default = txtName

'Set Address
Set stAddr = ActiveDocument.FormFields("txtAddr").TextInput
stAddr.Default = txtAddr

' Set country
Set stCountry = ActiveDocument.FormFields("txtCountry").TextInput
stCountry.Default = txtCountry
'Application.ScreenRefresh
End Sub

Reply to this Message

Susan - 04 Jun 2007 14:05 GMT

you need 2 different routines:

1. this goes in a general module.
Private Sub cmdShow_Click()
load userform1 '<--- change to whatever your form name is
userform1.show
end sub

2. then, in the userform module, you need an initialization sub, that
sets those values......

private sub userform1_initialize()

> 'Set name
> Set stName = ActiveDocument.FormFields("txtName").TextInput
[quoted text clipped - 8 lines]
> stCountry.Default = txtCountry
> 'Application.ScreenRefresh

end sub

hope it helps!
susan

> I created a form in MS Word and now I want to use it just by press "Show"
> button.
[quoted text clipped - 19 lines]
> 'Application.ScreenRefresh
> End Sub

Reply to this Message