Don't add controls using code. It one-offs the form. Design the custom form
and add the controls at design time and bind them to the user properties
then. I didn't notice before that you had specified dynamically created
controls, it's such a bad idea I didn't even consider that's what you wanted
to do.
--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm
<(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I have been all thru there. It is still not working. Here is a piece of
> the code that adds the controls if you have any suggestions. Thanks in
> advance.
>
>
> ctrlcount = 0
> Do While counter <> recCount
> Set Mycmd = Page.Add("Forms.Textbox.1")'name
> appRec = "appRec" & ctrlcount
> MyCmd.Tag = rst4.Fields(1)
> Mycmd.Font.Bold = True
> Mycmd.Left = 16
> Mycmd.Top = y
> Mycmd.Width = 154
> Mycmd.Height = 20
> Mycmd.Font.Size = 10
> Mycmd.Value = rst4.Fields(0)
> Mycmd.BackStyle = 0
> Mycmd.SpecialEffect = Flat
> Mycmd.Locked = True
> Set appProp = Iup.Add(appRec, 1)' add field
> Iup.Find("appRec").ItemProperty = Mycmd.Tag
> Mycmd.ItemProperty = appProp
> Set Mycmd = Page.Add("Forms.Checkbox.1")' to visit
> ctrlcount = ctrlcount + 1
> appRec = "appRec" & ctrlcount
> Mycmd.Tag = rst4.Fields(1)
> Mycmd.Left = 180
> Mycmd.Top = y
> Mycmd.Width = 17
> Mycmd.Height = 20
> Set appProp = Iup.Add(appRec, 6)' add field
> Mycmd.ItemProperty = appProp
> 'there are more controls I took out
> loop
>