วัตถุประสงค์ของ Program
ผมต้องการ SET PERMISSION ของ USER แต่ละคนที่เข้ามาใช้งาน ว่าสามารถเห็น Form ไหนได้บ้างและแต่ละ Form สามารถทำอะไรได้บ้าง และ Menu Show ตามที่กำหนด

โดยผมจะฝัง Code เพื่อกำหนดรายละเอียด GUI หลังจากที่ USER ผ่านการตรวจสอบ User Name และ Password มาแล้ว
หลักการคือ

Set Property ของ Form หลายๆ Form พร้อมๆกัน ขณะที่ โปรแกรมถูก LOAD ขึ้นมา
โดย Loop เพื่อ Set Property ในครั้งเดียวโดย profile ต่างๆจะถูกดึงจาก Database
<ปัญหาก็คือ>

จะแทนชื่อของ Form ด้วย Record ที่ดึงขึ้นมาได้อย่างไร ตอนนี้เกิด Error คือ Type Missmatch

dim obfFormname as Form
set objFormName = rs(1) <- - - Error Type MissMatch

jujun_t@hotmail.com
*** Edited by Supap Chaiya *** 5/24/2003 10:14:29 AM