View Single Post
  #2  
Old November 17th 08, 07:13 PM posted to microsoft.public.outlook.program_vba
Michael Bauer [MVP - Outlook]
external usenet poster
 
Posts: 1,885
Default Two questions about how to use textboxes in userforms



You're funny. You have a working example, then you change a line of the
code, and it stopps working. And you don't get what might be wrong? :-)

#2: Not sure what that is. Maybe you need to save the project first?
Actually, once the file has been removed it shoudl be possible to create it
again.

--
Best regards
Michael Bauer - MVP Outlook

: Outlook Categories? Category Manager Is Your Tool
: VBOffice Reporter for Data Analysis & Reporting
: http://www.vboffice.net/product.html?pub=6&lang=en


Am Sun, 16 Nov 2008 10:36:08 -0800 schrieb MarceepooNu:

The Outlook VBA help includes a page named: "Cut, Paste Methods, TextBox
Control Example"
A copy of the sample code is set forth below, except that I changed the
first line of the code from
Private Sub UserForm_Initialize()
to...
frmUserForm2
because I named the form: frmUserForm2

I created two forms in my Outlook VbaProject.Otm; one form was named:
UserForm and the other was named: frmUserForm2

The code works fine in the form named "UserForm", but when I tried to run
the same code in frmUserForm2's "Initialize" sub, nothing appears in the
textboxes.
Question #1: I can't figure out why changing the name of the form prevents
the code from working.
Also, I have noticed that if I remove a form from the project, and
thereafter create a new form and give it the same name as the form that I
removed, I get an error message: "Path/file access error. Question #2:

Why
does this occur, and how can I fix it?


Private Sub frmUserForm2_Initialize()
TextBox1.Text = "From TextBox1!"
TextBox2.Text = "Hello "

CommandButton1.Caption = "Cut and Paste"
CommandButton1.AutoSize = True
End Sub

Private Sub CommandButton1_Click()
TextBox2.SelStart = 0
TextBox2.SelLength = TextBox2.TextLength
TextBox2.Cut

TextBox1.SetFocus
TextBox1.SelStart = 0

TextBox1.Paste
TextBox2.SelStart = 0
End Sub

Ads