สมัครสมาชิก

แสดงกระทู้

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 - prajak

หน้า: [1] 2 3 4 ... 16
1
ห้อง MS Access / สอบถามการใช้สูตร Dsum ครับ
« เมื่อ: 09 เม.ย. 62 , 10:45:23 »
ตามรูปส่วนที่สีเหลืองต้องเขียนยังไงครับหากผมต้องการหาผลรวมของฟิวด์ TotalAmount ของคิวรี่ QProBudget2 โดยมีเงื่อนไขว่า ถ้าค่าในฟิวด์ BUYER = Customer_Name ของคิวรี่ Qbudget2

ปล.ฟิวด์ BUYER กับ Customer_Name เป็นแบบ text ครับ


2

คำถามมาจากตารางนี้ครับ คือจะมีการจดเลขมิเตอร์ไฟฟ้าทุกวัน เพื่อหาจำนวนหน่วยในแต่ละวัน โดยเอาเลขมิเตอร์ลบกับเลขของวันก่อน เดิมทีเป็นไฟล์ excel ตามไฟล์แนบ แต่ปัญหาก็คือบางวันจดบ้างไม่จดบ้าง ก็จะทำให้ต้องมาแก้สูตรการลบเพื่อให้ตรงกับcell ก็เลยมีแนวคิดว่าอยากเปลี่ยนมาใช้ access แทน โดยที่หากวันไหนไม่ได้จด ก็เอาเลขมิเตอร์วันที่อ่านไปลบกับเลขที่อ่านวันล่าสุดไปเลยครับ

3
รบกวนสอบถามครับ ถ้าในคิวรี่มี่2ฟิวด์คือ ฟิวด์A กับฟิวด์B
ต้องการให้ที่ฟิวด์B = ฟิวด์A ลบ(-) ฟิวด์Aของrecordก่อนหน้า ต้องใช้สูตรยังไงครับ

4
ห้อง MS Access / : สอบถามคำสั่ง Docmd.Movesize
« เมื่อ: 10 ม.ค. 62 , 16:00:35 »
ได้แล้วครับ ขอบคุณคุณปิ่นณรงค์ที่แนะนำการปรับฟอร์มให้พอดีกับหน้าจอครับ ถ้าฟอร์มที่ต้องการ move ไม่พอดีกับจอที่จะให้ออก มันจะไม่ move ให้ ส่วนการใส่ค่าฟอร์มของผมใส่ 30000 ตามที่บอก ใช้ได้เลยครับ

5
ห้อง 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 ต้องเป็นค่าเท่าไหร่ครับ

6
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 11 ธ.ค. 61 , 12:32:20 »
เข้าใจแล้วครับอาจารย์ ขอบคุณมากๆครับ

7
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 10 ธ.ค. 61 , 17:14:46 »
นึกภาพออกครับอาจารย์ TTT เดี๋ยวผมจะลองทำตามที่อ.แนะนำนะครับ
ปล.ใช้ access 2010 ครับ

8
ห้อง 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ตามรูปครับ

9
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 10 ธ.ค. 61 , 13:39:46 »
ยังงงอยู่เลยครับ

10
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 08 ธ.ค. 61 , 19:06:55 »
ลองแล้วตามที่คุณปิ่นณรงค์แนะนำ แต่ผลคือค่า error ครับ

11
ห้อง 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])))))))))))

12
ไฟล์ที่แนบมาแตกไฟล์ไม่ได้ครับคุณปิ่นณรงค์

13
ต้องกำหนดทุกฟอร์มเลยหรือเปล่าครับ แล้วถ้าเราปิดหรือออกจากโปรแกรม ความละเอียดหน้าจอจะกลับมาที่ความละเอียดปกติมั้ยครับ

14
คือรบกวนสอบครับ ผมสร้างฟอร์มแต่ต้องการให้เวลาไปเปิดกับจอขนาดอื่่น ให้มันแสดงผลพอดีกับหน้าจอ ต้องทำไงครับ

15
ได้แล้วครับอาจารย์ ขอบคุณมากๆครับ

16
ผมลองทำตามที่อาจารย์สันติสุขแนะนำ ในส่วนของการสลับแสดงผลบนฟอร์มOKเลยครับ แต่ลืมบอกอาจารย์ไปว่าข้อมูลที่แสดงผลปกติแล้วจะมีการเปลี่ยนค่าตลอดตามการupdateข้อมูลของผู้ใช้งาน แต่ตอนนี้บนฟอร์มจะไม่เปลี่ยนตาม ยังคงแสดงข้อมูลเก่าที่ไม่update ผมเลยจะลองใช้คำสั่ง me.requery ต่อท้ายคำสั่งที่อาจารย์ให้มาก็ไม่ได้ครับ มันจะกลายเป็นแสดง record เดิมๆซ้ำๆครับ รบกวนอาจารย์แนะนำด้วยครับ
เดิมผมใช้คำสั่งนี้บน On Timer event procedure

Me.ID = DLookup("ID", "QTblSaw1_ByDate")
Me.Requery

หน้า: [1] 2 3 4 ... 16