แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - wacharapojj

หน้า: [1]
1
โปรแกรม พิมพ์ Slip เงินเดือน
เพื่อศึกาษารออกแบบฐานข้อมูลเบื้องต้น
การเพิ่มข้อมูล , ค้นหา, พิมพ์


โหลดได้ที่
http://access.crtrading.net/filedownload/salaryDatabase.rar











โพสต์นี้ได้รับคำขอบคุณจาก: wacharapojj

2
หลักการคร่าว ๆ เขียน code นับว่าตาราง RecordCount ว่า ttt222 มีกี่ record
แล้วกำหนดตัวแปร integer เพื่อสุ่มค่า RND โดยระบุค่าระหว่าง 0 ถึง max record มาเก็บไว้
แล้วค่อย dlookup เอาชื่อ ตามลำดับที่ได้มาแสดง
โพสต์นี้ได้รับคำขอบคุณจาก: wacharapojj

3
ถ้าทุกๆตาราง มีฟิลล์ใน  textbox1a , textbox2a , textbox3a เหมือนกัน
ใช้แบบนี้ได้เลย

โค๊ด: [Select]
If Not IsNull(Me.comboboxSelectTable) Then
Forms("form1a").Form.RecordSource = Me.comboboxSelectTable
End If
โพสต์นี้ได้รับคำขอบคุณจาก: wacharapojj

4
สามารถใช้ SourceObject ในการกำหนดให้ตารางต่างๆ มาแสดง
โดยจะมีฟอร์มหลักที่มี combobox หรือ Control อื่นๆ ไว้ในการเลือกชื่อตารางมาแสดง

โค้ดที่ปุ่ม Commandbotton เช่น

If Not IsNull(Me.comboboxSelectTable) Then
Forms("frmmain").Form.MySubFrm.SourceObject = "table." & Me.comboboxSelectTable
End If

โพสต์นี้ได้รับคำขอบคุณจาก: wacharapojj

หน้า: [1]