Thread: Form issues
View Single Post
  #9  
Old April 26th 07, 07:12 PM posted to microsoft.public.outlook.program_forms
daphnejean77
external usenet poster
 
Posts: 21
Default Form issues

I am now trying to write a code using the CustomPropertyChange and I am not
doing something right, only I am not sure what it is. I have a checkbox that
I need to trigger the Now () formula into a text box and I cannot make this
code work I think I am just completely off base on this one.

Sub Item_CustomPropertyChange(ByVal Name)
Set objPage = Item.GetInspector.ModifiedFormPages("Task Manager")
strMyProp1 = Item.UserProperties(“CheckBox3”)
Select Case strCheckBox3 = True
Set objControl = objPage.Controls("TextBox13")
objControl.Text = Now()
Set objControl = Nothing
Set objPage = Nothing
End Sub


"Sue Mosher [MVP-Outlook]" wrote:

That's because you need to use a different event if you're using a bound control, CustomPropertyChange. See http://www.outlookcode.com/d/propsyntax.htm for sample code.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"daphnejean77" wrote in message ...
Once I follow those instructions, the code no longer allows the time stamp to
populate the correct field.

"Sue Mosher [MVP-Outlook]" wrote:

You need to follow Hollis' instructions for creating the check boxes so that they are bound to Outlook properties.

"daphnejean77" wrote in message ...
I am using a code using the checkboxes and I am having the same problem. The
Checkboxes will not stay checked once my form has been saved and closed. The
code I am using is this:

Sub CheckBox3_Click()
Dim objNS
Dim objPage
Dim objControl
Set objNS = Application.GetNamespace("MAPI")
Set objPage = Item.GetInspector.ModifiedFormPages("Task Manager")
Set objControl = objPage.Controls("TextBox13")
objControl.Text = Now()
Set objControl = Nothing
Set objPage = Nothing
Set objNS = Nothing
End Sub

How do I make the check box stay checked?

"Hollis Paul [MVP - Outlook]" wrote:

In article ,
=?Utf-8?B?U25ha2VfUGxpc2tlbg==?= wrote:
I am using Office/ Outlook 2003 if that is more
helpful. In the form design mode I clicked on the All Fields tab and gave
both fields yes/no values.

No, that is not how you do it. When you are in that All Fields Tab, you
would look down at the bottom left corner and see a button saying New.
Click that, and up pops a small dialog. Put a name in the name field. In
the Type field choose the yes/No option from the drop down list, and in the
Format field choose the appropriate display you want to see. I believe that
the Icon choice will show the checkmark. Once you have a field set up, you
go back to the tab that shows the code, right-click the control, choose
properties, and on the tab of the dialog that pops up, click the Choose
Field to drop down the choice of categories, select the appropriate one, and
then your field. You will then see all your field's parameters displayed in
the property box. Now, the control is bound to that field. You can publish
your form, and you are good to go, as the commercial so aptly puts it.

Notice that when that control properties panel opens up, there is a New
button to the right of the choose field business. You can create your new
field there, just as you did from the All Fields tab.

--
Hollis Paul
Mukilteo, WA USA





Ads