I have tried to duplicate the Add/Edit users example in the sample pages, and mostly it is working, but my situation is (of course) a bit different, and I'm having some trouble.
In my case, any one of four different types of users may be logging in: employees, suppliers, customers, or contacts. So, with help from the board, I have a user_details form with a dropdown to specify what type of user and four show/hide fields, each with a different lookup to get the Id code. All that works fine. I can enter and change users successfully.
The trouble comes in selecting an existing name off the name list and populating the dialog with the values. The user Id, the password, the startup page and the groups all populate correctly, but I can't seem to get the dropdown nor the Id code to populate. In the picture, Employee is the default, but I should be shown as a Contact. The code I'm using in the initialize event is:
Anyone see where I'm going wrong?
Pat
In my case, any one of four different types of users may be logging in: employees, suppliers, customers, or contacts. So, with help from the board, I have a user_details form with a dropdown to specify what type of user and four show/hide fields, each with a different lookup to get the Id code. All that works fine. I can enter and change users successfully.
The trouble comes in selecting an existing name off the name list and populating the dialog with the values. The user Id, the password, the startup page and the groups all populate correctly, but I can't seem to get the dropdown nor the Id code to populate. In the picture, Employee is the default, but I should be shown as a Contact. The code I'm using in the initialize event is:
Code:
Dim ulink as C a5ws_get_user_values(CurrentForm,request) vUID=left(Ulink,1) select case vUID="E" CurrentForm.Controls.LookupEM.value=ulink CurrentForm.Controls.vUserType="Employee" case vUID="C" CurrentForm.Controls.LookupCU.value=ulink CurrentForm.Controls.vUserType="Customer" case vUID="S" CurrentForm.Controls.LookupSP.value=ulink CurrentForm.Controls.vUserType="Supplier" case vUID="P" CurrentForm.Controls.LookupCO.value=ulink CurrentForm.Controls.vUserType="Contact" end select
Pat
Comment