1
ห้อง MS Access / : รบกวนสอบถามตามรูปครับ
« เมื่อ: 26 พ.ย. 64 , 15:46:44 »ทำตามที่อาจารย์แนะนำได้แล้วครับ ขอบคุณมากนะครับขอโทษครับอาจารย์พอดีเพิ่งมีเวลาเข้ามาอ่าน เดี๋ยวผมจะลองทำดูนะครับ ขอบคุณมากครับ
แสดงกระทู้
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.
2
ห้อง MS Access / : รบกวนสอบถามตามรูปครับ
« เมื่อ: 26 พ.ย. 64 , 09:46:29 »ขอโทษครับอาจารย์พอดีเพิ่งมีเวลาเข้ามาอ่าน เดี๋ยวผมจะลองทำดูนะครับ ขอบคุณมากครับ
3
ห้อง MS Access / : รบกวนสอบถามตามรูปครับ
« เมื่อ: 15 พ.ย. 64 , 11:29:37 »ความสามารถแบบนี้มีแต่ใน Report ครับ แนะนำให้ใช้ Report ดีกว่าครับreportก็ได้ครับ ขอแนวทางด้วยนะครับอาจารย์ ขอบคุณครับ
4
ห้อง MS Access / รบกวนสอบถามตามรูปครับ
« เมื่อ: 13 พ.ย. 64 , 16:10:26 »
รบกวนสอบถามพี่ๆหน่อยนะครับ คือว่าผมมี1 query ที่มีฟิวด์ตามรูป ต้องการสร้างฟิวด์ชื่อ GenOrder ขึ้นมา โดยให้ดูที่ฟิวด์ order_no หากมีเลขorderที่เหมือนกัน ให้ฟิวด์ GenOrder แสดงเลข order มาแค่1 ตัว ส่วนบรรทัดถัดไปก็ปล่อยว่างไว้ตามรูป ต้องเขียนสูตรหรือคำสั่งยังไงครับ
6
ห้อง MS Access / สอบถามการปิดเมนูบาร์
« เมื่อ: 27 พ.ค. 64 , 14:20:29 »
ผมใช้คำสั่งเพื่อปิดเนูบาร์ตอนเปิดฟอร์มตามนี้ครับ
Private Sub Form_Open(Cancel As Integer)
If SysCmd(acSysCmdAccessVer) > 11 Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Else
DoCmd.ShowToolbar "Menu Bar", acToolbarNo
End If
End Sub
หากผมต้องการให้เหลือไว้เฉพาะปุ่ม undo กับ Redo ตามรูป สามารถทำได้หรือเปล่าครับ ขอบคุณครับ
Private Sub Form_Open(Cancel As Integer)
If SysCmd(acSysCmdAccessVer) > 11 Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Else
DoCmd.ShowToolbar "Menu Bar", acToolbarNo
End If
End Sub
หากผมต้องการให้เหลือไว้เฉพาะปุ่ม undo กับ Redo ตามรูป สามารถทำได้หรือเปล่าครับ ขอบคุณครับ
7
กระดานข่าว / : เริ่มเทศกาลขายสินค้า หาเงินช่วยเว็บ
« เมื่อ: 12 ธ.ค. 62 , 08:32:39 »
โอนเงินให้แล้วนะครับ 200 บาทครับ ไม่ซื้อหนังสือครับ
8
ห้อง MS Access / สอบถามการใช้สูตร Dsum ครับ
« เมื่อ: 09 เม.ย. 62 , 10:45:23 »
ตามรูปส่วนที่สีเหลืองต้องเขียนยังไงครับหากผมต้องการหาผลรวมของฟิวด์ TotalAmount ของคิวรี่ QProBudget2 โดยมีเงื่อนไขว่า ถ้าค่าในฟิวด์ BUYER = Customer_Name ของคิวรี่ Qbudget2
ปล.ฟิวด์ BUYER กับ Customer_Name เป็นแบบ text ครับ
ปล.ฟิวด์ BUYER กับ Customer_Name เป็นแบบ text ครับ
9
ห้อง MS Access / : หาค่าผลต่างในฟิวด์เดียวกันเทียบกับrecordก่อนหน้า
« เมื่อ: 15 ม.ค. 62 , 10:31:39 »
คำถามมาจากตารางนี้ครับ คือจะมีการจดเลขมิเตอร์ไฟฟ้าทุกวัน เพื่อหาจำนวนหน่วยในแต่ละวัน โดยเอาเลขมิเตอร์ลบกับเลขของวันก่อน เดิมทีเป็นไฟล์ excel ตามไฟล์แนบ แต่ปัญหาก็คือบางวันจดบ้างไม่จดบ้าง ก็จะทำให้ต้องมาแก้สูตรการลบเพื่อให้ตรงกับcell ก็เลยมีแนวคิดว่าอยากเปลี่ยนมาใช้ access แทน โดยที่หากวันไหนไม่ได้จด ก็เอาเลขมิเตอร์วันที่อ่านไปลบกับเลขที่อ่านวันล่าสุดไปเลยครับ
10
ห้อง MS Access / หาค่าผลต่างในฟิวด์เดียวกันเทียบกับrecordก่อนหน้า
« เมื่อ: 12 ม.ค. 62 , 18:35:43 »
รบกวนสอบถามครับ ถ้าในคิวรี่มี่2ฟิวด์คือ ฟิวด์A กับฟิวด์B
ต้องการให้ที่ฟิวด์B = ฟิวด์A ลบ(-) ฟิวด์Aของrecordก่อนหน้า ต้องใช้สูตรยังไงครับ
ต้องการให้ที่ฟิวด์B = ฟิวด์A ลบ(-) ฟิวด์Aของrecordก่อนหน้า ต้องใช้สูตรยังไงครับ
11
ห้อง MS Access / : สอบถามคำสั่ง Docmd.Movesize
« เมื่อ: 10 ม.ค. 62 , 16:00:35 »
ได้แล้วครับ ขอบคุณคุณปิ่นณรงค์ที่แนะนำการปรับฟอร์มให้พอดีกับหน้าจอครับ ถ้าฟอร์มที่ต้องการ move ไม่พอดีกับจอที่จะให้ออก มันจะไม่ move ให้ ส่วนการใส่ค่าฟอร์มของผมใส่ 30000 ตามที่บอก ใช้ได้เลยครับ
12
ห้อง MS Access / สอบถามคำสั่ง Docmd.Movesize
« เมื่อ: 10 ม.ค. 62 , 10:55:54 »
รบกวนสอบถามการสั่งให้ฟอร์มอีก1ฟอร์มไปแสดงผลอีกจออัตโนมัติโดยใช้คำสั่ง movesize ครับ
คือผมมีPC1ตัว ต่อออก2จอโดยตั้งเป็นแบบ Extend โดยที่
จอที่1(primary) 21.5" resolution 1920x1080 ต่อผ่านสาย DVI
จอที่2(secondary) 19.5" resolution 1600x900 ต่อผ่านสาย VGA
ที่โปรแกรม Access มี2ฟอร์ม
ฟอร์มที่1 ชื่อฟอร์ม FrmDbLine1_Eng1 ที่ On open ใส่ Call OpenBClient() เพื่อเรียกคำสั่ง Movesize ที่วางไว้ใน Module
ฟอร์มที่2 ชื่อฟอร์ม FrmDbLine2_Eng1 (คือฟอร์มที่ต้องการให้ออกจอ2)
ที่ Module ชื่อ Monitor ใส่ Code ดังนี้
Option Compare Database
Option Explicit
Public clnClient As New Collection
Function OpenBClient()
Dim frm As Form
Set frm = New Form_FrmDbLine2_Eng1
frm.Visible = True
frm.Caption = frm.hWnd & ", Opened " & Now()
clnClient.Add item:=frm, Key:=CStr(frm.hWnd)
DoCmd.MoveSize 20000, 0, 0, 0
DoCmd.Maximize
Set frm = Nothing
End Function
ผลคือฟอร์มที่2 FrmDbLine2_Eng1 ไม่ออกจอ2ครับ ไม่ทราบว่า ตรงcode movesize ต้องเป็นค่าเท่าไหร่ครับ
คือผมมีPC1ตัว ต่อออก2จอโดยตั้งเป็นแบบ Extend โดยที่
จอที่1(primary) 21.5" resolution 1920x1080 ต่อผ่านสาย DVI
จอที่2(secondary) 19.5" resolution 1600x900 ต่อผ่านสาย VGA
ที่โปรแกรม Access มี2ฟอร์ม
ฟอร์มที่1 ชื่อฟอร์ม FrmDbLine1_Eng1 ที่ On open ใส่ Call OpenBClient() เพื่อเรียกคำสั่ง Movesize ที่วางไว้ใน Module
ฟอร์มที่2 ชื่อฟอร์ม FrmDbLine2_Eng1 (คือฟอร์มที่ต้องการให้ออกจอ2)
ที่ Module ชื่อ Monitor ใส่ Code ดังนี้
Option Compare Database
Option Explicit
Public clnClient As New Collection
Function OpenBClient()
Dim frm As Form
Set frm = New Form_FrmDbLine2_Eng1
frm.Visible = True
frm.Caption = frm.hWnd & ", Opened " & Now()
clnClient.Add item:=frm, Key:=CStr(frm.hWnd)
DoCmd.MoveSize 20000, 0, 0, 0
DoCmd.Maximize
Set frm = Nothing
End Function
ผลคือฟอร์มที่2 FrmDbLine2_Eng1 ไม่ออกจอ2ครับ ไม่ทราบว่า ตรงcode movesize ต้องเป็นค่าเท่าไหร่ครับ
13
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 11 ธ.ค. 61 , 12:32:20 »
เข้าใจแล้วครับอาจารย์ ขอบคุณมากๆครับ
14
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 10 ธ.ค. 61 , 17:14:46 »
นึกภาพออกครับอาจารย์ TTT เดี๋ยวผมจะลองทำตามที่อ.แนะนำนะครับ
ปล.ใช้ access 2010 ครับ
ปล.ใช้ access 2010 ครับ
15
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 10 ธ.ค. 61 , 14:50:07 »
ใช้ iif หรือ switch ได้สูงสุดเท่านี้ครับอาจารย์ TTT
Expr2: Switch(Not IsNull([Emp22:30]),[Emp22:30],Not IsNull([Emp22:00]),[Emp22:00],Not IsNull([Emp21:30]),[Emp21:30],Not IsNull([Emp21:00]),[Emp21:00],Not IsNull([Emp20:30]),[Emp20:30],Not IsNull([Emp20:00]),[Emp20:00],Not IsNull([Emp19:30]),[Emp19:30],Not IsNull([Emp19:00]),[Emp19:00],Not IsNull([Emp18:30]),[Emp18:30],Not IsNull([Emp18:00]),[Emp18:00],Not IsNull([Emp17:00]),[Emp17:00],Not IsNull([Emp16:00]),[Emp16:00],Not IsNull([Emp15:00]),[Emp15:00],True,[EmpWork])
ถ้ามากกว่านี้ขึ้นerrorตามรูปครับ
Expr2: Switch(Not IsNull([Emp22:30]),[Emp22:30],Not IsNull([Emp22:00]),[Emp22:00],Not IsNull([Emp21:30]),[Emp21:30],Not IsNull([Emp21:00]),[Emp21:00],Not IsNull([Emp20:30]),[Emp20:30],Not IsNull([Emp20:00]),[Emp20:00],Not IsNull([Emp19:30]),[Emp19:30],Not IsNull([Emp19:00]),[Emp19:00],Not IsNull([Emp18:30]),[Emp18:30],Not IsNull([Emp18:00]),[Emp18:00],Not IsNull([Emp17:00]),[Emp17:00],Not IsNull([Emp16:00]),[Emp16:00],Not IsNull([Emp15:00]),[Emp15:00],True,[EmpWork])
ถ้ามากกว่านี้ขึ้นerrorตามรูปครับ
