55
ห้อง MS Access / : สอบถามการปิดเมนูบาร์
« เมื่อ: 28 พ.ค. 64 , 15:39:26 »
ขอบคุณมากครับ
แสดงกระทู้
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.
56
ห้อง 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 ตามรูป สามารถทำได้หรือเปล่าครับ ขอบคุณครับ
57
กระดานข่าว / : เริ่มเทศกาลขายสินค้า หาเงินช่วยเว็บ
« เมื่อ: 12 ธ.ค. 62 , 08:32:39 »
โอนเงินให้แล้วนะครับ 200 บาทครับ ไม่ซื้อหนังสือครับ
58
ห้อง MS Access / สอบถามการใช้สูตร Dsum ครับ
« เมื่อ: 09 เม.ย. 62 , 10:45:23 »
ตามรูปส่วนที่สีเหลืองต้องเขียนยังไงครับหากผมต้องการหาผลรวมของฟิวด์ TotalAmount ของคิวรี่ QProBudget2 โดยมีเงื่อนไขว่า ถ้าค่าในฟิวด์ BUYER = Customer_Name ของคิวรี่ Qbudget2
ปล.ฟิวด์ BUYER กับ Customer_Name เป็นแบบ text ครับ
ปล.ฟิวด์ BUYER กับ Customer_Name เป็นแบบ text ครับ
59
ห้อง MS Access / : หาค่าผลต่างในฟิวด์เดียวกันเทียบกับrecordก่อนหน้า
« เมื่อ: 15 ม.ค. 62 , 10:31:39 »
คำถามมาจากตารางนี้ครับ คือจะมีการจดเลขมิเตอร์ไฟฟ้าทุกวัน เพื่อหาจำนวนหน่วยในแต่ละวัน โดยเอาเลขมิเตอร์ลบกับเลขของวันก่อน เดิมทีเป็นไฟล์ excel ตามไฟล์แนบ แต่ปัญหาก็คือบางวันจดบ้างไม่จดบ้าง ก็จะทำให้ต้องมาแก้สูตรการลบเพื่อให้ตรงกับcell ก็เลยมีแนวคิดว่าอยากเปลี่ยนมาใช้ access แทน โดยที่หากวันไหนไม่ได้จด ก็เอาเลขมิเตอร์วันที่อ่านไปลบกับเลขที่อ่านวันล่าสุดไปเลยครับ
60
ห้อง MS Access / หาค่าผลต่างในฟิวด์เดียวกันเทียบกับrecordก่อนหน้า
« เมื่อ: 12 ม.ค. 62 , 18:35:43 »
รบกวนสอบถามครับ ถ้าในคิวรี่มี่2ฟิวด์คือ ฟิวด์A กับฟิวด์B
ต้องการให้ที่ฟิวด์B = ฟิวด์A ลบ(-) ฟิวด์Aของrecordก่อนหน้า ต้องใช้สูตรยังไงครับ
ต้องการให้ที่ฟิวด์B = ฟิวด์A ลบ(-) ฟิวด์Aของrecordก่อนหน้า ต้องใช้สูตรยังไงครับ
61
ห้อง MS Access / : สอบถามคำสั่ง Docmd.Movesize
« เมื่อ: 10 ม.ค. 62 , 16:00:35 »
ได้แล้วครับ ขอบคุณคุณปิ่นณรงค์ที่แนะนำการปรับฟอร์มให้พอดีกับหน้าจอครับ ถ้าฟอร์มที่ต้องการ move ไม่พอดีกับจอที่จะให้ออก มันจะไม่ move ให้ ส่วนการใส่ค่าฟอร์มของผมใส่ 30000 ตามที่บอก ใช้ได้เลยครับ
62
ห้อง 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 ต้องเป็นค่าเท่าไหร่ครับ
63
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 11 ธ.ค. 61 , 12:32:20 »
เข้าใจแล้วครับอาจารย์ ขอบคุณมากๆครับ
64
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 10 ธ.ค. 61 , 17:14:46 »
นึกภาพออกครับอาจารย์ TTT เดี๋ยวผมจะลองทำตามที่อ.แนะนำนะครับ
ปล.ใช้ access 2010 ครับ
ปล.ใช้ access 2010 ครับ
65
ห้อง 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ตามรูปครับ
67
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 08 ธ.ค. 61 , 19:06:55 »
ลองแล้วตามที่คุณปิ่นณรงค์แนะนำ แต่ผลคือค่า error ครับ
68
ห้อง MS Access / การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 08 ธ.ค. 61 , 08:59:05 »
ผมรบกวนสอบถามหน่อยนะครับ มีคำสั่งอื่นแทนการใช้ iif ซ้อนไหมครับ ผมใช้ iif ใน expression แต่พอใช้ซ้อนหลายๆชั้นมันเหมือนเกินขีดจำกัด และขึ้น error ครับ พอจะมีคำสั่งอื่นใช้แทนหรือเปล่าครับ
Eff20Auto: IIf(Not IsNull([Eff20]),[Eff20],IIf(Not IsNull([Eff19]),[Eff19],IIf(Not IsNull([Eff18]),[Eff18],IIf(Not IsNull([Eff17]),[Eff17],IIf(Not IsNull([Eff16]),[Eff16],IIf(Not IsNull([Eff15]),[Eff15],IIf(Not IsNull([Eff14]),[Eff14],IIf(Not IsNull([Eff12]),[Eff12],IIf(Not IsNull([Eff11]),[Eff11],IIf(Not IsNull([Eff10]),[Eff10],IIf(Not IsNull([Eff9]),[Eff9],[%Efficiancy])))))))))))
Eff20Auto: IIf(Not IsNull([Eff20]),[Eff20],IIf(Not IsNull([Eff19]),[Eff19],IIf(Not IsNull([Eff18]),[Eff18],IIf(Not IsNull([Eff17]),[Eff17],IIf(Not IsNull([Eff16]),[Eff16],IIf(Not IsNull([Eff15]),[Eff15],IIf(Not IsNull([Eff14]),[Eff14],IIf(Not IsNull([Eff12]),[Eff12],IIf(Not IsNull([Eff11]),[Eff11],IIf(Not IsNull([Eff10]),[Eff10],IIf(Not IsNull([Eff9]),[Eff9],[%Efficiancy])))))))))))
69
ห้อง MS Access / : ต้องการให้ฟอร์มแสดงผลพอดีกับจอ
« เมื่อ: 05 ธ.ค. 61 , 08:40:36 »
ไฟล์ที่แนบมาแตกไฟล์ไม่ได้ครับคุณปิ่นณรงค์
70
ห้อง MS Access / : ต้องการให้ฟอร์มแสดงผลพอดีกับจอ
« เมื่อ: 04 ธ.ค. 61 , 16:13:55 »
ต้องกำหนดทุกฟอร์มเลยหรือเปล่าครับ แล้วถ้าเราปิดหรือออกจากโปรแกรม ความละเอียดหน้าจอจะกลับมาที่ความละเอียดปกติมั้ยครับ
71
ห้อง MS Access / ต้องการให้ฟอร์มแสดงผลพอดีกับจอ
« เมื่อ: 04 ธ.ค. 61 , 12:06:32 »
คือรบกวนสอบครับ ผมสร้างฟอร์มแต่ต้องการให้เวลาไปเปิดกับจอขนาดอื่่น ให้มันแสดงผลพอดีกับหน้าจอ ต้องทำไงครับ
72
ห้อง MS Access / : อยากให้ข้อมูลแสดงสลับกันบนฟอร์มแสดงผล
« เมื่อ: 03 ธ.ค. 61 , 10:37:36 »
ได้แล้วครับอาจารย์ ขอบคุณมากๆครับ
